堆栈内存溢出
  简体   繁体   English

如何在 Excel VBA 电子邮件中添加签名？

[英]How to add a signature in Excel VBA email?

 原文  2014-08-29 15:26:31  6   3    excel/ vba/ email/ outlook

问题描述

I use this VBA code to send an email when a user clicks a cell in a row.当用户单击一行中的单元格时，我使用此 VBA 代码发送电子邮件。

I want to add a signature, with an image, to my email body.我想在我的电子邮件正文中添加带有图像的签名。 How could I amend my code to put this in?我怎么能修改我的代码来把它放进去？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = Range("BL1").Column Then

     If Target.Row > 7 And Target.Value = "Take Action" Then

         Set OutApp = CreateObject("Outlook.Application")
         Set OutMail = OutApp.CreateItem(0)

         strbody = "<p style='font-family:calibri;font-size:16'>" & "Dear Sirs," & "<br><br>" & vbNewLine & vbNewLine & _
              "F.A.O: " & "<b>" & Range("B" & ActiveCell.Row) & "</b>" & "," & vbNewLine & vbNewLine & _
              "<br>" & "This is an urgent update on the status of your account." & "<br>" & vbNewLine & _
              "Our records show that your insurance is due to expire on: " & "<b>" & Format(Range("BE" & ActiveCell.Row), "dd" & " Mmmm " & "yyyy") & "." & "</b>" & " To ensure that you remain active on our systems as an approved Hewden Stuart Ltd Supplier, it is important that you provide us with the details of your renewed insurance policy. Please can you provide us with these details for the following insurance as soon as possible, in order to remain active on our systems:" & vbNewLine & vbNewLine & _
              "<br><br>" & "Insurance: " & "<b>" & "{Insurance Type Goes Here}" & "</b>" & "<br>" & vbNewLine & _
              "Due for Period: " & "<b>" & Format(Range("BE" & ActiveCell.Row), "dd" & " Mmmm " & "yyyy") & "</b>" & " - " & "<b>" & Format(Range("BE" & ActiveCell.Row) + 365, "dd" & " Mmmm " & "yyyy") & "</b>" & vbNewLine & vbNewLine & _
              "<br><br>" & "Note:" & "<br>" & vbNewLine & _
              "Please ensure that the above information is provided by your insurance broker, or your insurer, in the form of a standard letter or certificate. If your insurance is in the name of a parent company, please provide a breakdown of the companies covered from your insurer. In order to provide us with the above information, please login to your Control Panel with your unique Username and Password and attach your documents. Regrettably, failure to provide us with the information requested will result in suspension of your account. If you have any queries, please email us at SupplierAudits@Hewden.co.uk." & vbNewLine & vbNewLine & _
              "<br><br>" & "Your Reference:" & "<br><br>" & vbNewLine & vbNewLine & _
              "<b>" & Range("AB" & ActiveCell.Row) & "</b>" & vbNewLine & _
              "<p style='font-family:calibri;font-size:13'>" & "Please quote your unique Supplier Reference number when providing us with any insurance documents and in the even that you should have any enquiries." & "</p>" & vbNewLine & vbNewLine & _
              "<p style='font-family:calibri;font-size:16'>" & "<br>" & "Kind Regards," & "<br><br>" & vbNewLine & vbNewLine & _
              "<b>" & "Hewden Supply Chain Department" & "</b>" & "</P>"

        With OutMail
            .SentOnBehalfOfName = "newsuppliers@hewden.co.uk"
            .To = "mark.o'brien@hewden.co.uk"
            .CC = ""
            .BCC = ""
            .Subject = "Important! - Insurance Alert!"
            .HTMLbody = strbody
            .Attachments.Add ("P:\cover.jpg")
            .Send   'or use .Display
        End With

    End If

End If

End Sub

3 个解决方案

解决方案1
 5  2015-09-05 21:57:43

Outlook adds the signature to the new unmodified messages (you should not modify the body prior to that) when you call MailItem.Display (which causes the message to be displayed on the screen) or when you access the MailItem.GetInspector property - you do not have to do anything with the returned Inspector object, but Outlook will populate the message body with the signature.当您调用MailItem.Display （这会导致邮件显示在屏幕上）或访问MailItem.GetInspector属性时，Outlook 会将签名添加到新的未修改邮件（在此之前您不应修改正文） - 您这样做不必对返回的 Inspector 对象执行任何操作，但 Outlook 将使用签名填充邮件正文。

Once the signature is added, read the HTMLBody property and merge it with the HTML string that you are trying to set.添加签名后，读取HTMLBody属性并将其与您尝试设置的 HTML 字符串合并。 Note that you cannot simply concatenate 2 HTML strings - the strings need to be merged.请注意，您不能简单地连接 2 个 HTML 字符串 - 需要合并这些字符串。 Eg if you want to insert your string at the top of the HTML body, look for the <body substring, then find the next occurrence of > (this takes care of the <body> elements with attributes), then insert your HTML string after that > .例如，如果您想在 HTML 正文的顶部插入您的字符串，请查找<body子字符串，然后找到下一次出现的> （这会处理带有属性的<body>元素），然后在之后插入您的 HTML 字符串那个> 。 Embedded image attachments and styles must be handled separately.嵌入的图像附件和样式必须单独处理。

On a general note, the name of the signature is stored in the account profile data accessible through the IOlkAccountManager Extended MAPI interface.一般而言，签名的名称存储在可通过IOlkAccountManager扩展 MAPI 接口访问的帐户配置文件数据中。 Since that interface is Extended MAPI, it can only be accessed using C++ or Delphi.由于该接口是扩展 MAPI，因此只能使用 C++ 或 Delphi 进行访问。 You can see the interface and its data in OutlookSpy if you click the IOlkAccountManager button.如果单击IOlkAccountManager按钮，您可以在OutlookSpy 中看到界面及其数据。

Outlook Object Model does not expose signatures or accessing arbitrary properties on accounts. Outlook 对象模型不会公开签名或访问帐户的任意属性。

If using Redemption is an option, you can use its RDOAccount object (accessible in any language, including VBA).如果使用Redemption是一个选项，您可以使用它的RDOAccount对象（可以用任何语言访问，包括 VBA）。 New message signature name is stored in the 0x0016001F property, reply signature is in 0x0017001F.新消息签名名称存储在 0x0016001F 属性中，回复签名存储在 0x0017001F 中。 You can also use the RDOAccount .您还可以使用RDOAccount 。 ReplySignature and NewSignature properties. ReplySignature和NewSignature属性。
All Outlook signatures are exposed through the RDOSession.Signatures collection.所有 Outlook 签名都通过RDOSession.Signatures集合公开。
A signature can be applied to a message using RDOSignature.ApplyTo - it will take care of correctly merging the data and bringing over embedded image attachments and styles.可以使用RDOSignature.ApplyTo将签名应用于消息 - 它将负责正确合并数据并引入嵌入的图像附件和样式。

EDIT : as of summer 2017, only MailItem.Display inserts the signature in Outlook 2016. MailItem.GetInspector does not do that anymore.编辑：截至 2017 年夏季，只有MailItem.Display在 Outlook 2016 中插入签名MailItem.GetInspector不再这样做。

解决方案2
 1  2014-08-29 15:50:17

In Outlook 2007 Tools – Options – Mail Format tab Hold down cntrl key and click on Signatures在 Outlook 2007 工具 - 选项 - 邮件格式选项卡中按住 cntrl 键并单击签名

The folder where signatures are kept will open and the path and file name will be displayed.保存签名的文件夹将打开并显示路径和文件名。 This will be the path and file name to be used to call the GetSignature function below.这将是用于调用下面的 GetSignature 函数的路径和文件名。

Function GetSignature(fPath As String) As String  
    Dim fso As Object  
    Dim TSet As Object  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    Set TSet = fso.GetFile(fPath).OpenAsTextStream(1, -2)  
    GetSignature= TSet.readall  
    TSet.Close  
End Function

In your send email code, declare a string variable to hold the signature text returned from the GetSignature function.在发送电子邮件代码中，声明一个字符串变量来保存从 GetSignature 函数返回的签名文本。 Once set, then the string then needs to be appended to the end of the body of the email.一旦设置，然后需要将字符串附加到电子邮件正文的末尾。

Dim StrSignature As String
StrSignature = GetSignature(sPath)

.HTMLbody = strbody & vbNewLine & vbNewLine & StrSignature

解决方案3
 0  2016-03-03 11:23:41

Had the same problem, especially when using HTMLbody.有同样的问题，尤其是在使用 HTMLbody 时。 Instead of using this:而不是使用这个：

    With OutMail
    .SentOnBehalfOfName = "newsuppliers@hewden.co.uk"
    .To = "mark.o'brien@hewden.co.uk"
    .CC = ""
    .BCC = ""
    .Subject = "Important! - Insurance Alert!"
    .HTMLbody = strbody
    .Attachments.Add ("P:\cover.jpg")
    .Send   'or use .Display
    End With*

You should do this:你应该做这个：

    With OutMail
    .SentOnBehalfOfName = "newsuppliers@hewden.co.uk"
    .To = "mark.o'brien@hewden.co.uk"
    .CC = ""
    .BCC = ""
    .Subject = "Important! - Insurance Alert!"
    ''''' part that is missing
    . Display
    End with
    With OutMail
    '''''
    .HTMLbody = strbody & vbNewLine & .HTMLBody ' add the signature without losing the HTML-formatting of the signature
    .Attachments.Add ("P:\cover.jpg")
    .Send   'or use .Display
    End With

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 如何使用 HTMLBody 在电子邮件上添加 VBA 签名？ - How to add VBA Signature on Email with HTMLBody? 如何在 Excel 中使用 VBA 添加附件到 email - How to add an attachment to an email using VBA in Excel 在Excel VBA中发送带有签名的批量电子邮件 - Sending out bulk email with signature in Excel VBA 在Excel 2013中使用VBA插入电子邮件签名 - Inserting email signature using vba in Excel 2013 将签名插入 Outlook email 从 Excel Z6E3EC7E6A9F6007B09838FC0EEZ93A - Inserting Signature into Outlook email from Excel VBA VBA 在 Excel 中创建带有表格和签名的电子邮件 - VBA In Excel to Create Email with Table and Signature 使用Excel VBA进行电子邮件和签名格式设置 - email and signature formatting using Excel VBA 如何在 Excel VBA 中调用添加数字签名对话框 - How to invoke Add a Digital Signature dialog in Excel VBA 如何在Excel上添加签名 - How to add a Signature on Excel 将签名和剪贴板图像添加到电子邮件正文VBA - Add signature and clipboard image to email body VBA
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM