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

Question

我从代码中概述的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 

Answer 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