如何通过VBA或Windows Registry临时设置Outlook回复/转发签名为无并还原？

针对你的需求——在自动转发邮件的过程中临时取消回复/转发签名，完成后恢复原有设置——这里提供两种可行方案，优先推荐第一种（无需修改注册表，兼容性更好）。

方法一：直接操作Outlook配置（推荐） #

通过Outlook VBA的DefaultProfileEmailOptions对象，可以直接读取和修改默认的回复/转发签名设置，操作完成后再恢复原值。

修改后的完整VBA代码 #

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
' 用于存储原有签名的全局变量
Private strOriginalReplySig As String
Private strOriginalForwardSig As String

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
    ' 启动时读取并保存当前的回复/转发签名设置
    With Outlook.Application.DefaultProfileEmailOptions
        strOriginalReplySig = .ReplySignature
        strOriginalForwardSig = .ForwardSignature
    End With
End Sub

Private Sub objInboxItems_ItemAdd(ByVal item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem

    ' 非邮件项直接退出
    If Not TypeOf item Is MailItem Then Exit Sub

    ' 临时将回复/转发签名设为“无”
    With Outlook.Application.DefaultProfileEmailOptions
        .ReplySignature = ""
        .ForwardSignature = ""
    End With

    ' 错误捕获：确保无论操作是否成功，都能恢复原有签名
    On Error GoTo RestoreSignature

    Set objMail = item
    Set objForward = objMail.Forward

    ' 自定义转发配置
    With objForward
        .Recipients.Add ("abcde@yahoo.com")
        .Recipients.ResolveAll
        .Send
    End With

RestoreSignature:
    ' 恢复原有签名设置
    With Outlook.Application.DefaultProfileEmailOptions
        .ReplySignature = strOriginalReplySig
        .ForwardSignature = strOriginalForwardSig
    End With
    ' 释放对象
    Set objMail = Nothing
    Set objForward = Nothing
End Sub

关键说明 #

• 利用DefaultProfileEmailOptions直接修改全局签名配置，无需依赖注册表路径
• 通过On Error GoTo语句保证签名设置一定会被恢复，避免因操作出错导致签名永久丢失
• 操作逻辑简单，兼容性覆盖所有支持VBA的Outlook版本

方法二：修改Windows注册表 #

如果需要通过注册表实现，Outlook的回复/转发签名设置存储在以下路径：

HKEY_CURRENT_USER\Software\Microsoft\Office<版本号>\Outlook\Preferences

版本号对应：

• Outlook 2013：15.0
• Outlook 2016/2019/365：16.0

注册表操作的VBA代码示例 #

' 注意：需在VBA编辑器中添加对「Microsoft Scripting Runtime」的引用
Private Sub ToggleSignatureRegistry(isSetToNone As Boolean, ByRef originalReply As String, ByRef originalForward As String)
    Dim regBasePath As String
    ' 根据你的Outlook版本修改路径中的版本号
    regBasePath = "Software\Microsoft\Office\16.0\Outlook\Preferences"
    
    With CreateObject("WScript.Shell")
        If isSetToNone Then
            ' 读取并保存原有签名设置
            originalReply = .RegRead(regBasePath & "\ReplySignature")
            originalForward = .RegRead(regBasePath & "\ForwardSignature")
            ' 设置签名为“无”（空字符串）
            .RegWrite regBasePath & "\ReplySignature", "", "REG_SZ"
            .RegWrite regBasePath & "\ForwardSignature", "", "REG_SZ"
        Else
            ' 恢复原有签名设置
            .RegWrite regBasePath & "\ReplySignature", originalReply, "REG_SZ"
            .RegWrite regBasePath & "\ForwardSignature", originalForward, "REG_SZ"
        End If
    End With
End Sub

' 修改后的自动转发过程
Private Sub objInboxItems_ItemAdd(ByVal item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem
    Dim strOriginalReply As String, strOriginalForward As String

    If Not TypeOf item Is MailItem Then Exit Sub

    ' 临时设置签名为“无”
    ToggleSignatureRegistry True, strOriginalReply, strOriginalForward

    On Error GoTo RestoreSignature

    Set objMail = item
    Set objForward = objMail.Forward

    With objForward
        .Recipients.Add ("abcde@yahoo.com")
        .Recipients.ResolveAll
        .Send
    End With

RestoreSignature:
    ' 恢复原有签名
    ToggleSignatureRegistry False, strOriginalReply, strOriginalForward
    Set objMail = Nothing
    Set objForward = Nothing
End Sub

注意事项 #

• 必须准确匹配Outlook版本号，否则无法找到注册表项
• 操作注册表需要系统权限，部分企业环境可能被组策略限制
• Outlook可能缓存注册表设置，修改后需短暂等待才能生效，因此方法一更稳妥

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