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

如何在 Outlook 中自动为所有外发邮件添加名片?

作者晓阳修改日期

在某些情况下,您可能希望随所有外发邮件一同发送您的 vCard,方便收件人快捷地将您的信息保存到他们的通讯录中。在 Outlook 中,您可以通过以下方法轻松实现这一需求。

通过创建签名,自动为所有外发邮件附加名片

通过使用 VBA 代码,自动为所有外发邮件附加名片


通过创建签名,自动为所有外发邮件附加名片

通常,您可以创建包含 vCard 的签名,并始终启用该签名。请按照以下步骤操作:

11. 在新建邮件窗口,点击插入> 签名,见下图:

通过创建签名,实现自动为所有外发邮件附加名片的步骤

22. 在弹出的签名和信纸对话框中,切换至电子邮件签名选项卡,点击新建按钮,并为该新签名输入名称,见下图:

通过创建签名,实现自动为所有外发邮件附加名片的步骤

33. 然后,点击确定以关闭新建签名对话框,在选择要编辑的签名列表框中选中该新签名名,然后点击名片,见下图:

通过创建签名,实现自动为所有外发邮件附加名片的步骤

44. 在插入名片对话框中,选择联系人文件夹于查找范围下拉列表中,然后在下方列表框选择指定的名片,见下图:

通过创建签名,实现自动为所有外发邮件附加名片的步骤

55. 点击确定关闭此对话框后,将返回签名和信纸对话界面,保持选中新签名。然后,在电子邮件帐户下拉列表中,指定需要自动添加该签名的电子邮件帐户。接着,在新邮件下拉列表中选择刚刚创建的签名名称。

提示:如果您希望在每次回复和转发时都添加 vCard,请在回复/转发列表中选择包含 vCard 的新签名名称。
通过创建签名,实现自动为所有外发邮件附加名片的步骤

66. 设置完成后,请点击确定按钮。此后,每当您新建邮件时,所选名片将自动插入邮件正文,并以附件形式添加,详见下图:

通过创建签名,实现自动为所有外发邮件附加名片的步骤

Outlook AI 邮件助手:智能回复,沟通更高效清晰(只需一键,轻松体验神奇效果!)

通过 Kutools for Outlook 的 AI 邮件助手,轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯,提供高效、精准的回复建议,优化邮件内容,助您轻松起草和润色邮件。
doc ai 邮件处理

该功能支持:

  • 智能回复:根据您的历史对话内容生成个性化且精准的回复,随时为您所用。
  • 内容优化:自动完善您的邮件文本,让表达更加清晰且更具影响力。
  • 轻松写作:您只需输入关键词,剩下的交给 AI,多种润色风格随心选择。
  • 智能扩展:结合上下文,智能拓展您的想法,提供精准建议。
  • 智能摘要:轻松为冗长邮件快速生成简明概览,让信息一目了然。
  • 全球畅邮:轻松将邮件翻译为任意语言。

该功能支持:

  • 智能邮件回复
  • 内容优化
  • 关键词草稿
  • 智能内容扩展
  • 邮件摘要
  • 多语言翻译

立即行动——现在就下载 AI 邮件助手,畅享高效体验,不容错过!


通过使用 VBA 代码,自动为所有外发邮件附加名片

要为所有外发邮件自动附加名片,您可以先将名片保存为 vcf 文件格式,然后通过 VBA 代码将其自动添加为附件。请按照以下步骤操作:

11. 在人员窗格中,选中需要以名片形式发送的联系人。

2. 2. 然后,点击文件 > 另存为,在弹出的另存为窗口中,为该卡片选择保存位置,在文件名输入框中填写名称,并在保存类型下拉菜单中选择 vCard 文件,如下图所示:

通过使用 VBA 代码,实现自动为所有外发邮件附加名片的步骤

33. 接着,按下 ALT + F11 组合键即可打开 Microsoft Visual Basic for Applications 窗口。

44. 双击 ThisOutlookSession,在 Project-Project 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
注意:在上述代码中,C:\Users\Desktop\Leonel Davis.vcf 是您已保存的文件路径名片路径,请根据实际情况修改。
通过使用 VBA 代码,实现自动为所有外发邮件附加名片的步骤

55. 保存并关闭代码窗口后,重启 Outlook 即可激活代码。

6 现在,当新建邮件时,指定的名片会被自动作为附件插入,见下图:

通过使用 VBA 代码,实现自动为所有外发邮件附加名片的步骤

演示:自动为所有外发邮件附加名片

 

最佳办公效率工具

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

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

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

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

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

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

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

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

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

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

kutools for outlook features1kutools for outlook features2

🚀 一键下载 — 即可获取全部 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