如何在 Outlook 中自动为所有外发邮件附加名片?
在某些情况下,您可能希望为所有外发邮件发送您的 vCard,以便收件人可以快速轻松地将您的信息保存在他们的地址簿中。 在 Outlook 中,您可以使用以下方法尽快解决此任务。
通过创建签名自动为所有传出消息附加名片
通常,您可以为您的 vCard 创建一个签名,然后始终打开该签名。 请这样做:
1. 创建新电子邮件,在新消息窗口中,单击 插页 > 签名,请参见屏幕截图:
2。 在弹出的 签名和文具 对话框中的 电子邮件签名 标签,点击 全新 按钮,然后输入这个新签名的名称,看截图:
3。 然后,点击 OK 关闭 新签名 对话框中,从 选择要编辑的签名 列表框,然后单击 名片,请参见屏幕截图:
4。 在 插入名片 对话框中,从 在看 下拉列表,然后在下面的列表框中选择指定的名片,看截图:
5。 然后,点击 OK 关闭此对话框,然后返回 签名和文具 对话框,继续选择新的签名名称,然后从 邮箱帐号 下拉列表。 然后,从 新讯息 下拉列表。
6。 完成设置后,请点击 OK 按钮。 从现在开始,当您创建新消息时,指定的名片将插入消息正文并同时添加为附件,见截图:
使用 VBA 代码自动为所有传出消息附加名片
要为所有外发邮件附加名片,您可以将名片另存为 vcf 文件,然后应用 VBA 代码将其自动附加为附件。 请执行以下步骤:
1。 去的 同事与员工 窗格中,选择要作为名片发送的联系人。
2. 然后,单击 文件 > 另存为,在另存为窗口中,指定放置此卡片的位置,然后在 文件名 文本框,然后选择 电子名片文件 来自 除上文所 类型下拉,看截图:
3. 然后,按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
4。 然后,双击 本次展望会议 来自 项目-项目1 窗格,然后将以下代码复制并粘贴到空白代码窗口中:
VBA 代码:自动为所有传出消息附加名片
Public WithEvents GInpectors As Inspectors
Private Sub Application_Startup()
Set GInpectors = Application.Inspectors
End Sub
Private Sub GInpectors_NewInspector(ByVal Inspector As Inspector)
'Updateby ExtendOffice
Dim xMail As MailItem
Dim xSubject As String
On Error Resume Next
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set xMail = Inspector.CurrentItem
xSubject = VBA.UCase$(xMail.Subject)
If (VBA.InStr(xSubject, "RE: ") = 1) Or (VBA.InStr(xSubject, "FW: ") = 1) Then Exit Sub
With xMail
.Attachments.Add "C:\Users\Desktop\Leonel Davis.vcf"
End With
End Sub
5. 然后,保存并关闭代码窗口,重新启动 Outlook 以激活代码。
6. 现在,在创建新消息时,指定的名片会自动作为附件插入,见截图:
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。