我有以下非常有效的宏(在线找到了代码):
nullptr
是否可以通过执行单独的宏来编写正文?最终用户的电子邮件相当长,通常是标准电子邮件,因此我希望电子邮件正文尽可能为单独的宏。
这样,我可以编写任意数量的自定义消息,并且每次该宏写入电子邮件正文时,我都会调用另一个具有所需内容的宏。
答案 0 :(得分:3)
Sub Sample_Auto_Generated_Email()
Dim objOutl
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
objMailItem.Display
strEmailAddr = "User@Use.com"
objMailItem.Recipients.Add strEmailAddr
objMailItem.Subject = "Sample"
objMailItem.Body = GetMessageBody() ' <--- This line is different
objMailItem.Send
Set objMailItem = Nothing
Set objOutl = Nothing
End Sub
' This Function has been added.
Private Function GetMessageBody() As String
GetMessageBody = "Test."
End Function