KutoolsforOffice — 一套方案,五大工具。事半功倍。

如何在 Outlook 中为回复和转发邮件分别设置不同的签名?

作者晓阳修改日期

通常,您可以为 Outlook 中的不同账户设置各自的签名,但您是否想过为回复和转发邮件分别使用不同的签名?也就是说,回复邮件时自动插入签名 1,转发邮件时则应用签名 2. 那么,如何在 Outlook 中实现这一需求呢?

使用 VBA 代码为回复和转发设置不同的签名


使用 VBA 代码为回复和转发设置不同的签名

以下 VBA 代码可以帮助您为回复和转发设置不同的签名,请按如下步骤逐步操作:

1. 按住 ALT + F11 键即可打开 Microsoft Visual Basic for Applications 窗口。

2 然后,点击插入> 模块,将以下代码复制并粘贴到打开的空白模块中,如下图所示:

VBA 代码:为回复和转发设置不同的签名

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

注意:在上述代码中,Signature 1Signature 2 分别为您在回复和转发时使用的两个签名名称。请根据实际需求修改为您自己的签名名称。

文档签名转发回复 1

3 仍然在 Microsoft Visual Basic for Applications 窗口中,点击工具> 引用,进入 References-Project 1 对话框,并勾选 Microsoft Scripting Runtime 选项,在可用引用列表框中,如下图所示:

文档签名转发回复 2

4 在点击确定关闭对话框后,以后每次回复邮件时都会立即插入 Signature 1,如下图所示:

文档签名转发回复 3

而当您转发邮件时,将会插入 Signature 2,如下图所示:

文档签名转发回复 4

最佳办公效率工具

体验全新 Kutools for Outlook,畅享 100+ 强大功能!立即点击下载,不容错过!

🤖KUTOOLS AI采用先进 AI 技术,轻松处理邮件,涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化自动答复(支持 POP 和 IMAP)/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发(高级规则)/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言!

一键解锁 Kutools for Outlook,告别等待,立即下载,让效率倍增!

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐:Kutools for Office(5 合 1)

一键下载五个安装包,即可同时获得 Kutools for Excel、Outlook、Word、PowerPointOffice Tab Pro立即点击下载!

  • 一键便捷:只需一次操作,即可下载全部五个安装包。
  • 🚀 轻松应对各类 Office 任务:随时按需安装所需插件,助您高效办公,不容错过!
  • 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint