提示:其他语言是Google翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何根据Outlook中的收件人自动更改签名?

默认情况下,Outlook具有内置功能,用户可以在通过不同的电子邮件帐户发送电子邮件时自动更改签名。 但除此之外,我将在此向您展示在Outlook的“收件人”字段中根据不同收件人自动更改签名的方法。

使用VBA代码自动更改基于收件人的签名


始终使用Outlook中的默认电子邮件帐户回复电子邮件:

如果您想在Outlook中使用默认电子邮件帐户回复电子邮件,请执行 始终以默认帐户回复 选项 Kutools for Outlook 会帮你一个忙 查看截图:

Kutools for Outlook:比40更方便的Outlook加载项,可以在45天免费试用。 下载并免费试用现在!


使用VBA代码自动更改基于收件人的签名

在Outlook中发送电子邮件时,请按照以下步骤将不同的签名应用于相应的收件人。

1。 首先,您需要在Outlook中禁用自动附加签名功能。 请点击 文件 > 选项 打开 Outlook选项 窗口。

2。 在里面 Outlook选项 窗口,选择 邮件 在左侧窗格中,然后单击 签名 按钮在 撰写邮件 部分。 看截图:

3。 在里面 签名和文具 对话框,转到 选择默认签名 下的部分 电子邮件签名 选项卡,选择中的电子邮件帐户 电子邮件帐户 下拉列表,然后选择 (无) 来自 新消息回复/转发 下拉列表。 重复这些步骤,直到所有电子邮件帐户都设置为 (无)。 然后点击 OK 按钮。

注意:您还可以在此创建所需的签名 签名和文具 对话框。

4。 点击 OK 按钮返回时 Outlook选项 窗口。

5。 按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

6。 在里面 Microsoft Visual Basic for Applications 窗口,双击 ThisOutlookSession 在左侧窗格中打开代码窗口,并将VBA代码下方的副本放入窗口。 查看截图:

VBA代码:根据Outlook中的收件人自动更改签名

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

笔记:

1。 在VBA代码中,请替换“电子邮件地址1 / 2 / 3 / 4“使用收件人的某些电子邮件地址。

2。 “aaa.htm“”bbb.htm“和”ccc.htm“是您将发送给相应收件人的指定签名。

3。 在这种情况下,签名“AAA“将被发送到”电子邮件地址1“,签名”BBB“将被发送到”电子邮件地址2“和”电子邮件地址3,和“电子邮件地址4“将收到嵌入签名的电子邮件”CCC”。 请根据您的需要进行更改。

7。 然后点击 > 参考文献参考项目 对话框。 在对话框中,请检查 Microsoft脚本运行时 选项,然后单击 OK 按钮,看截图:

8。 按 其他 + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始,在撰写电子邮件并点击“发送”按钮后,相应的签名将根据“收件人”字段中收件人的电子邮件地址自动插入电子邮件正文的末尾。

如果要在Outlook中创建/回复/转发新电子邮件时将时间戳作为签名插入电子邮件正文中,则可以启用 创建新邮件,回复邮件和转发邮件时添加日期签名 选项 Kutools for Outlook 实现它。 查看截图:

Kutools for Outlook:比40更方便的Outlook加载项,可以在45天免费试用。 下载并免费试用现在!



Kutools for Outlook

超过100高级功能的Outlook 2010,2013,2016,2019和365

屏幕截图kutools for outlook tiny for banner 201812

更多功能 | 免费下载 | 只有$ 39.00数百个函数

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.