Tag: 电子邮件

用电子邮件将电子邮件中的Excel工作表的一部分作为PDF附件用button发送: 我在上面的标题中有代码，下面的代码将把电子邮件中的Excel表单的PDF发送到单元格中指定的电子邮件地址。我的问题是它给PDF文件的名称是文件名后跟标签名称。我将如何编辑下面的代码，以便为文件提供表单中单元格中指定的名称？ Sub savePDFandEmailPayPlan() Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object 'Create PDF of active sheet only strPath = Environ$("temp") & "\" trailing "\" strFName = ActiveWorkbook.Name strFName = Left(strFName, InStrRev(strFName, ".") – 1) & "_" & ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & strFName, […]

为什么我的图像不embeddedHTML电子邮件？: 我试图运行VBA中的代码，将发送HTML电子邮件，并试图在电子邮件中embedded图像。我有以下代码这样做： Sub EmailImage() Dim oApp As Outlook.Application Dim oEmail As MailItem Dim colAttach As Outlook.Attachments Dim oAttach As Outlook.Attachment Set oApp = CreateObject("Outlook.Application") Set oEmail = oApp.CreateItem(olMailItem) Set colAttach = oEmail.Attachments Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg") oEmail.Close olSave oEmail.To = "abc@abc123.com" oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0> </BODY>" oEmail.Send Set oEmail = Nothing Set […]

从列中获取所有非空值并转换为电子邮件列表: 我试图创build一个VBA代码，发送一个电子邮件地址列E列中的电子邮件。我列在E列的电子邮件如下所示： abc@email.com 123@email.com <Blank Cell> pop3@email.com <Blank Cell> email@test.com 这是我的代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("M2")) Is Nothing And Range("M2").Value = "Send Prospect Alerts" Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "This is an email" On Error Resume Next With OutMail .To = Range("E6:E100").Value .CC = "" […]

用于邮件合并的特定列的浓缩列表: 我有一个特别的问题，我正在寻找解决，但我会尽量保持简洁：最终目标：使用邮件合并为每个特定收件人创build一大堆信件。数据集我被给了： Company e-mail Part Num Part Descr. broncos jman@hotmail.com 6S iphone 6s plus broncos pey_me@nationwide.com 5S iphone 5s saints drew@NOLA.gov 6 iphone 6 broncos jman@hotmail.com 6S+ iphone 6s plus packers AA-ron@pac.com 6 iphone 6 falcons MattyIce@yahoo.com 5C iphone 5C saints drew@NOLA.gov 6+ iphone 6 plus dolphins rhill@gmail.net 5S iphone 5S jets Tebow@uf.edu 5 […]

禁止在电子邮件validation公式中使用“@”以外的特殊字符: 我有这个公式validationExcel的电子邮件地址： =AND(ISERROR(FIND(" ",[Send Report To],1)),IF(ISERROR(FIND("@",[Send Report To],2)),FALSE,AND(ISERROR(FIND("@",[Send Report To],FIND("@",[Send Report To],2)+1)),IF(ISERROR(FIND(".",[Send Report To],FIND("@",[Send Report To],2)+2)),FALSE,FIND(".",[Send Report To],FIND("@",[Send Report To],2)+2)<LEN([Send Report To]))))) 但是，当我input这个电子邮件ID： sandy,rocks@gmail.com或sandy.rocks@gmail,co.uk时会失败。任何人都可以修改上面的validation公式，以避免电子邮件地址中的逗号等特殊字符？

将Outlook邮件项目parameter passing给函数: 我正在写一个生成电子邮件的子文件，并附上PDF收据和（根据客户端）excel在一天中完成的业务收据。由于并不是每家公司都收到优秀的收据，而是每家公司都收到一份PDF收据; 我正在build立处理这些操作的单独的函数。问题：将已经创build的Outlook邮件项目传递给一个函数收到错误消息：用户定义types未定义位置：错误发生在代码发布的底部的私人子。 Private Sub BuildPDFConfirmEmail(ByRef outMail As olMailItem, ByVal firmName1 As String, ByVal firmName2 As String, ByVal firmName3 As String, ByVal isTraderSeparate As Boolean) 目前在BuildPDFConfirmEmail中的代码只是用于testing的虚拟代码，直到我能得到它的工作 Option Explicit Private Const EMAIL_BODY As String = "Hello," & "<br><br>" & "Please find today's trade confirmation(s) attached. Thank you." & "<br><br>" & "Best Regards," & […]

如何在Outlook中密码保护电子邮件发送: 我正在使用Outlook 2010桌面应用程序。我想密码保护电子邮件发送选项，如果有人试图用我的电子邮件帐户发送电子邮件，会提示（popup）密码来validation是否是我。我从一些朋友那里得知，我可以创build一个macros，在我的outlook中添加一个模块，过滤，也许使用VB语言或其他编码…当我离开我的桌子时，我只能激活这个filter或类似的东西然后没有人可以使用我的电子邮件帐户发送电子邮件，但我不知道我该怎么做…任何人有一个想法吗？

Dwonload从特定的发件人附件，并在Excel中打开: 我对VBA相当陌生，希望能在项目上得到一些帮助。为了给大家提供一些背景知识，每隔15分钟我会收到一封电子邮件，内容是Excel附件。我需要打开附件，一旦电子邮件进入并查看它/比较它在15分钟前发送的电子邮件。如果电子邮件有所不同，那么我必须采取行动。我希望能够自动化至less一些这个过程。理想情况下，我可以使用macros来扫描我的收件箱中是否有来自特定发件人的新邮件。如果它发现一条消息，它可以检查附件，如果附件在那里，它会下载并打开它。在一个理想的世界中，我能做的另一件事就是将先前的excel附件与当前的附件进行比较，如果不同，则可以ping一条消息（警报）。任何帮助将非常感激。正如我所说，我是VBA新手，但我正在尽我所能去理解函数。

Excel创buildOutlook电子邮件，但文本不alignment: 我有附加的文件，创build收据电子邮件给客户。我试图让第二个字段在Outlook电子邮件alignment，但迄今未能find解决scheme。已经尝试了Chr9，vbTab，只是增加了空格等解决scheme将不胜感激 – 我不认为它是一个巨大的任务来解决，但它目前certificate是难以捉摸的。 Sub GenerateEmails() Dim ce As String: ce = "example@email.com" 'create draft emails Dim OutApp As Object, OutMail As Object Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup If ce Like "?*@?*.?*" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .TO = ce .CC = "" .Subject = […]

超链接在个人.xlsb中触发macros: 我有一个excel中的一些文本（date，发件人，主题）引用一个电子邮件的列。问题是（据我所知），你可以超链接到公共文件夹的Outlook电子邮件，因为电子邮件可能会移动（链接从PC到PC）。所以我的想法是获得这个电子邮件是build立一个超级链接，在personal.xlsb中触发一个macros，然后search该电子邮件并显示它。我唯一的问题是，我不知道如何链接文本来启动一个macros， Worksheet_FollowHyperlink意味着我需要将该代码放在我的文本是工作表。我想我可以做到这一点，但这实现了我需要创build此代码时打开工作簿，并在工作簿closures时将其删除，除非我必须重命名所有文件xlsx到xlsm，并且我不确定是否其他同事有链接到我希望避免这样做的Excel表。所以我的问题是，有没有什么办法可以使一个超链接到personal.xlsb!ShowEmail(cellValue) ？或者是否可以直接链接到公用文件夹中的电子邮件？以下是创build电子邮件文本的代码： Function getEpostField(projectNumber As String, drawingNumber As String, partNumber As String) As String On Error Resume Next Dim myFolderArray() As String Dim i As Long Dim j As Long Dim k As Long Dim OutApp As Object Dim myNameSpace As Object Dim myFolder As Object Dim […]