将 Outlook 签名添加到新邮件项目答案

【问题标题】：Add Outlook signature to new Mail item将 Outlook 签名添加到新邮件项目
【发布时间】：2016-09-16 14:48:13
【问题描述】：

我从代码中列出的 2 个单元格创建了一封新电子邮件。新电子邮件没有附加我的电子邮件签名。

我已经尝试解决它，但我有点挣扎。它是从HTMLBody 引用中提取的吗？

Sub SendHTMLEmail(from_sender As String, what_address1 As String, cc_sender As String, subject_line1 As String, mail_body1 As String)

      Dim olapp As Outlook.Application
      Dim olmail As Outlook.MailItem

      Set olapp = CreateObject("Outlook.Application")
      Set olmail = olapp.CreateItem(olMailItem)

      olmail.SentOnBehalfOfName = from_sender
      olmail.To = what_address1
      olmail.CC = cc_sender
      olmail.Subject = subject_line1
      olmail.HTMLBody = mail_body1
      olmail.Display

End Sub

Sub SendHoldingEmail()

      Dim EmailWordings As Excel.Worksheet
      Dim row_number As Long
      Dim from_sender As String, cc_sender As String, Email_Subject As String, full_name As String, mail_body_message As String


      Set EmailWordings = ThisWorkbook.Sheets("EmailWordings")

      row_number = 1

      Do
         DoEvents

         row_number = row_number + 1

         from_sender = "blah@hotmail.com"
         cc_sender = "blah@hotmail.com"
         mail_body_message = EmailWordings.Range("D3")
         Email_Subject = EmailWordings.Range("B3")

         Call SendHTMLEmail(from_sender, "", cc_sender, Email_Subject, mail_body_message)

      Loop Until row_number = 2


  End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

设置 HTMLbody 时，请确保将现有 HTMLbody 附加到它的末尾。包含现有签名。

Sub SendEmail()

    Dim OutlookApplication As Object, OutlookMail As Object

    Set OutlookApplication = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApplication.CreateItem(0)
    With OutlookMail
        .GetInspector
        .HTMLBody = "Email Content" & .HTMLBody
        .Display
    End With

End Sub

【讨论】：