如何在VBA中对outlook电子邮件使用换行符



我正试图使用excel中的VBA将这些消息分离为问候语、正文和签名,这将自动生成outlook电子邮件。但我不能用换行符把它们分开。想帮忙吗?

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)
MyMail.To = "sampleemail@google.com"
MyMail.CC = "sampleemail@google.com"enter code here
MyMail.Subject = "Sample Subject"
MyMail.Body = "Hello Team," & _
"Please see attached for this month's summary" & _
"Thanks!" & _
"Sample Signature"
Attached_File = "C:UserspublicDocumentssample_reports.xls"
MyMail.Attachments.Add Attached_File
MyMail.Send
End Sub

使用vbNewLine

MyMail.Body =  "Hello Team," & vbNewLine & _
"Please see attached for this month's summary" & vbNewLine & _
"Thanks!" & vbNewLine & _
"Sample Signature"

最新更新