vba 邮件正文换行

在VBA中，如果你想要在邮件正文中插入换行，可以使用`\n`特殊字符。这是一个简单的示例，展示如何创建一封包含多行文本的电子邮件：

Sub SendEmailWithNewline()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    
    ' 创建一个新的邮件
    Set OutMail = OutApp.CreateItem(0) ' 0表示新建邮件
    
    ' 设置收件人、主题和正文
    With OutMail
        .To = "recipient@example.com"
        .Subject = "测试邮件"
        .Body = "这是第一行文本。\n这是第二行文本。" ' 每行结尾加上\n换行符
    End With
    
    ' 发送邮件
    .Send
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

在这个例子中，当你运行这个VBA宏时，邮件正文将显示两行："这是第一行文本。" 和 "这是第二行文本。"