Question

我有以下非常有效的宏（在线找到了代码）：

nullptr

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

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

Answer 1

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

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

1 个答案: