如何用VBA在Access创建的Outlook约会正文中添加多行内容

要让通过Access VBA创建的Outlook约会正文显示多行内容，只需用VBA的换行常量分隔每行字符串，同时采用更稳定的字符串拼接方式：

• 使用vbCrLf（回车+换行）或vbNewLine作为每行的分隔符
• 用&拼接字符串（比+更稳妥，避免空值导致代码报错）

修改后的完整代码片段 #

With itmAppoint
    .Subject = Me.txtTechCode & " = " & Me.txtClientName
    .Start = Me.txtAppDate + Me.txtAppTime
    .End = Me.txtAppDate + Me.txtAppTime + Me.txtAppDuration
    '   .Location = Me.ActionLocation
    ' 逐行添加字段，用vbCrLf实现换行
    .Body = "Client Name: " & txtClientName & vbCrLf & _
            "Contact Person: " & txtContactPerson & vbCrLf & _
            "Tech Code: " & Me.txtTechCode & vbCrLf & _
            "Appointment Date: " & Me.txtAppDate & vbCrLf & _
            "Duration: " & Me.txtAppDuration
    .Recipients.Add ("abc@def.com")
    .Recipients.ResolveAll
    .Save ' <- 这一步会将约会保存到Outlook中
End With

扩展说明 #

如果需要添加更多Access表单字段，只需按照以下格式继续追加到.Body的赋值语句中：
"字段名称: " & Me.控件名称 & vbCrLf & _
注意最后一行不需要加vbCrLf和下划线_。

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