用Excel VBA在.Body后Outlook电子邮件中添加签名

Sub AddSignatureToEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Signature As String
    
    '创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    '创建新邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    '设置邮件内容
    With OutlookMail
        '添加收件人、主题等信息
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        
        '添加邮件正文内容
        .Body = "邮件正文内容"
        
        '获取Outlook的默认签名
        Signature = OutlookMail.GetInspector().WordEditor.Application.EmailOptions.EmailSignature
        
        '在邮件正文后添加签名
        .HTMLBody = .HTMLBody & "<br><br>" & Signature
    End With
    
    '显示邮件窗口
    OutlookMail.Display
    
    '释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub