如何用VBA编写指定签名的Sub函数生成Outlook邮件并配置正文

Got it, let's tackle how to set up your Outlook email body properly in that VBA sub. Here are two common approaches depending on whether you want plain text or formatted HTML:

1. 纯文本格式（使用.Body） #

如果不需要复杂格式，直接用纯文本拼接就行，把你的参数自然插入到正文里，用换行符分隔内容更清晰：

With m
    .Display
    .To = "somewhere@someplace.com"
    .Subject = "Test Events"
    ' 组装纯文本正文
    .Body = "Hello All, Please find the following information..." & vbCrLf & vbCrLf & _
            "Task Name: " & taskName & vbCrLf & _
            "Group: " & myGroup & vbCrLf & _
            "File: " & myFile & vbCrLf & _
            "Percentage: " & myPer & vbCrLf & vbCrLf & _
            "Related Tasks:" & vbCrLf & _
            Join(RelatedTasks, vbCrLf)
End With

• vbCrLf用来生成换行，让内容分层；
• Join(RelatedTasks, vbCrLf)把数组里的相关任务转换成每行一条的格式。

2. HTML格式（使用.HTMLBody） #

如果想要更美观的排版（比如加粗标题、列表展示任务），用HTML格式会更合适：

With m
    .Display
    .To = "somewhere@someplace.com"
    .Subject = "Test Events"
    
    ' 先构建相关任务的HTML列表
    Dim relatedTasksHtml As String
    relatedTasksHtml = "<ul>"
    Dim taskItem As Variant
    For Each taskItem In RelatedTasks
        relatedTasksHtml = relatedTasksHtml & "<li>" & taskItem & "</li>"
    Next taskItem
    relatedTasksHtml = relatedTasksHtml & "</ul>"
    
    ' 组装完整HTML正文
    .HTMLBody = "<p>Hello All, Please find the following information...</p>" & _
                "<p><strong>Task Name:</strong> " & taskName & "</p>" & _
                "<p><strong>Group:</strong> " & myGroup & "</p>" & _
                "<p><strong>File:</strong> " & myFile & "</p>" & _
                "<p><strong>Percentage:</strong> " & myPer & "</p>" & _
                "<p><strong>Related Tasks:</strong></p>" & _
                relatedTasksHtml
End With

• <strong>标签用来加粗关键信息的标题；
• <ul>和<li>把相关任务转换成有序列表，可读性更强。

实用小技巧：保留Outlook默认签名 #

直接替换.HTMLBody会覆盖Outlook的默认签名，如果你想保留签名，可以先显示邮件获取签名内容，再拼接到正文后面：

With m
    .Display ' 先显示邮件触发签名加载
    Dim signatureHtml As String
    signatureHtml = .HTMLBody ' 保存默认签名的HTML
    
    ' 组装正文后把签名加在末尾
    .HTMLBody = "<p>Hello All, Please find the following information...</p>" & _
                ' 这里加上其他内容...
                signatureHtml
End With

内容的提问来源于stack exchange，提问作者gopala krishna