vba在邮件正文底加入 邮件的签名

在VBA中，你可以通过修改`MailItem.Body`属性来将邮件签名添加到电子邮件的正文底部。以下是一个简单的例子，说明如何在发送邮件时自动添加签名：

Sub 添加签名到邮件()
    Dim olApp As Outlook.Application
    Dim olMail As MailItem
    Dim signatureText As String ' 你需要在这里填写你的邮件签名文本

    ' 创建Outlook应用实例
    Set olApp = New Outlook.Application

    ' 创建新邮件
    Set olMail = olApp.CreateItem(0) ' 使用0表示新建一封邮件

    ' 设置邮件正文
    olMail.Subject = "这是一个主题"
    olMail.Body = "这是邮件的正文内容" ' 这里的正文可以是任何文字

    ' 在正文末尾添加签名
    olMail.Body &= vbCrLf & vbCrLf ' 换两行插入空行
    olMail.Body &= "------" & vbCrLf ' 根据需要添加分隔线
    olMail.Body &= signatureText ' 你的签名

    ' 发送邮件
    olMail.Send

    ' 清理引用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

在这个例子中，签名会作为文本添加到邮件的最后，如果需要的话，还可以添加换行符或其他样式来美化。请注意替换`signatureText`为你实际的签名。