如何在Outlook中为答复和转发设置不同的签名?
通常,您可以在Outlook中为不同的帐户设置不同的签名,但是,曾经尝试对答复和转发应用不同的签名。 这意味着,当您回复电子邮件时,将插入signature1;当您转发电子邮件时,将应用signature2。 您如何在Outlook中解决此任务?
设置不同的签名以使用VBA代码进行答复和转发
以下VBA代码可以帮助您为回复和转发设置不同的签名,请按以下步骤进行操作:
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
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
备注:在上面的代码中, Signature1 和 Signature2 是您要用于回复和转发的两个签名名称。 请根据需要更改名称。
3。 仍在 Microsoft Visual Basic应用程序 窗口中,单击 工具 > 参考资料 去 参考-Project1 对话框,然后检查 Microsoft脚本运行时 选项从 可用参考 列表框,请参见屏幕截图:
4。 然后点击 OK 要关闭对话框,从现在开始,当您回复电子邮件时,将立即插入Signature1,请参见屏幕截图:
当您转发邮件时,将插入Signature2,如下图所示:
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。