如何在单独的函数中编写电子邮件的正文?

时间:2018-09-06 22:06:07

标签: excel vba excel-vba email outlook

我有以下非常有效的宏(在线找到了代码):

nullptr

是否可以通过执行单独的宏来编写正文?最终用户的电子邮件相当长,通常是标准电子邮件,因此我希望电子邮件正文尽可能为单独的宏。

这样,我可以编写任意数量的自定义消息,并且每次该宏写入电子邮件正文时,我都会调用另一个具有所需内容的宏。

1 个答案:

答案 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