Excel VBA调用Outlook发邮件时签名无法附加至正文末尾

我来帮你搞定这个签名不显示的坑！你遇到的问题根源在于：刚创建邮件对象时，Outlook并不会自动加载默认签名，你当时取到的sig其实是空的（或者没有签名的空白内容），自然最后拼接后看不到签名。

修正后的代码 #

直接调整代码顺序，先触发签名加载再获取内容就可以了：

Sub SendEmail()
    Dim OA As Object
    Dim msg As Object
    Dim sig As String
    
    Set OA = CreateObject("Outlook.Application")
    Set msg = OA.CreateItem(0)
    
    ' 关键步骤：调用Display触发Outlook加载默认签名
    msg.Display
    ' 此时获取的HtmlBody已经包含签名了
    sig = msg.HtmlBody
    ' 隐藏邮件窗口，让代码后台执行
    msg.Visible = False
    
    ' 设置收件人、主题
    msg.To = "fake@fake.com"
    msg.Subject = "Subject Line!"
    
    ' 把你的正文加到签名前面，保持HTML格式
    msg.HtmlBody = "<p>Body</p>" & sig
    
    msg.Send
End Sub

为什么这样能行？ #

Outlook的签名加载逻辑是：只有当邮件窗口被显示（通过Display方法）时，才会自动把默认签名插入到邮件正文中。你之前的代码在创建邮件后立刻取HtmlBody，此时签名还没被加载，所以拿到的是空内容，拼接后自然看不到签名。

额外提示 #

• 如果你的Outlook设置了不同场景的签名（比如新邮件、回复邮件用不同签名），Display方法会自动加载「新邮件」的默认签名，完全符合发送新邮件的需求。
• 如果你不想让邮件窗口闪一下，可以在Display后立刻设置msg.Visible = False，不影响签名加载，还能让代码后台静默执行。
• 确保你自己写的正文HTML格式正确（比如闭合标签），避免和签名的HTML冲突导致格式错乱。

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