Outlook更新后VBA设置默认邮件签名异常问题求助

问题背景 #

原VBA代码在Outlook推出「按邮件账户设置签名」功能前可正常设置全局签名：

Public Sub setmails()
Application.EmailOptions.EmailSignature.NewMessageSignature = "SIG"
Application.EmailOptions.EmailSignature.ReplyMessageSignature = "SIG"
End Sub

但更新后出现异常：设置后仅其中一项签名生效（新邮件或回复签名），调换赋值顺序则另一项生效，两项操作互相抵消。原因是Outlook将签名设置绑定到了具体邮箱账户，全局赋值会被账户级设置覆盖，注册表中对应签名键值已关联邮箱账户。

解决方法 #

方法1：VBA批量修改账户级签名设置 #

通过VBA操作注册表，为所有邮箱账户统一设置签名，同时保留全局设置：

Public Sub SetDefaultSignatureForAllAccounts()
    Dim wshShell As Object
    Dim outlookVersion As String
    Dim profilePath As String
    Dim accountKeys As Variant
    Dim i As Integer
    
    Set wshShell = CreateObject("WScript.Shell")
    
    ' 获取当前Outlook版本号（如16.0对应Office 365/2019）
    outlookVersion = wshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\Version")
    
    ' 替换为你的Outlook配置文件名，默认配置名为"Outlook"
    profilePath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & outlookVersion & "\Outlook\Profiles\Outlook\"
    
    ' 读取所有邮箱账户的注册表项
    accountKeys = wshShell.RegRead(profilePath & "9375CFF0413111d3B88A00104B2A6676\")
    
    ' 为每个账户设置签名
    For i = LBound(accountKeys) To UBound(accountKeys)
        wshShell.RegWrite profilePath & "9375CFF0413111d3B88A00104B2A6676\" & accountKeys(i) & "\New Signature", "SIG", "REG_SZ"
        wshShell.RegWrite profilePath & "9375CFF0413111d3B88A00104B2A6676\" & accountKeys(i) & "\Reply-Forward Signature", "SIG", "REG_SZ"
    Next i
    
    ' 同步全局签名设置
    Application.EmailOptions.EmailSignature.NewMessageSignature = "SIG"
    Application.EmailOptions.EmailSignature.ReplyMessageSignature = "SIG"
    
    Set wshShell = Nothing
    MsgBox "签名已为所有账户设置完成"
End Sub

注意事项

• 若你的Outlook配置名不是默认的"Outlook"，需在注册表中找到对应路径修改profilePath
• 运行代码后建议重启Outlook确保生效
• 确认"SIG"签名文件已存在于%appdata%\Microsoft\Signatures目录

方法2：手动通过Outlook界面设置 #

1. 打开Outlook，点击「文件」→「选项」→「邮件」
2. 在「撰写邮件」区域点击「签名」按钮
3. 点击「默认签名」，为每个邮箱账户分别设置「新邮件」和「回复/转发」签名为"SIG"
4. 保存设置后重启Outlook

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