0
我從代碼中概述的2個單元格創建一封新電子郵件。新電子郵件沒有附加我的電子郵件簽名。將Outlook簽名添加到新的郵件項目
我試圖解決它,但我掙扎了一下。它是否將它從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 = "[email protected]"
cc_sender = "[email protected]"
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