在 Outlook 2013 中是否有办法将多个传入电子邮件地址视为同一个联系人?例如:
电子邮件 #1 - Johnny Appleseed[电子邮件保护]
电子邮件 #2 - JAppleseed[电子邮件保护]
我希望在收件箱中看到他们两人都是 Johnny Appleseed。不幸的是,如果他们的 Yahoo 帐户设置了一个名字,而他们的智能手机邮件客户端设置了另一个名字,那么他们两人的收件箱就会有所不同。(即使来自完全相同的电子邮件地址)这使得按发件人排序变得很困难。在工作中,我们经常遇到这样的情况:电子邮件对话在一个邮件客户端上开始,然后在另一个客户端上继续。
我对对话视图不感兴趣(我喜欢它,但这是给我老板的),因为按发件人排序并查看数百封电子邮件很重要。
答案1
您需要将电子邮件地址作为 Outlook 中的一列添加,如下所述:在邮件视图中将发件人的电子邮件地址显示为一列
引用:
下载配置文件
将其复制到此文件夹(假设英文系统上的 WINx64)
C:\Program 文件(x86)\Microsoft Office\Office14\FORMS\1033
安装配置文件(.cfg)
- 文件->选项->高级部分->选项组开发人员->按钮自定义表单…->按钮管理表单…
- 在表单管理器对话框中,按安装...按钮。
- 浏览到您放置 viewsenderaddress.cfg 的位置
- 选择文件并按打开
- 将打开一个属性窗口,其中包含 cfg 文件的详细信息。按“确定”确认并关闭对话框
- 按“关闭”关闭“表单管理器”对话框
- 按“确定”,直到所有打开的对话框都关闭,然后返回到 Outlook 主窗口
配置视图以添加列
- 打开视图设置对话框(选项卡视图->按钮视图设置)
- 按下“字段”按钮
- 从名为“选择可用列”的下拉列表中选择;表格...
- 这里选择“发件人的电子邮件地址”,然后按“添加 ->
- 从名为“选择可用列”的下拉列表中选择;发件人的电子邮件地址
- 选择“发件人电子邮件地址”,然后按“添加 ->
- 使用“上移”和“下移”按钮将其放置在您想要的位置
答案2
按 Alt + F11 进入 Visual Basic 编辑器。单击插入 - 模块。粘贴以下代码。
进入 Outlook - 查看选项卡 - 添加列 - 新列 - 名称 = 域、类型 = 文本、格式 = 文本 - 从用户定义字段中添加此项以在 Outlook 中显示。
选择收件箱中的所有邮件(ctrl + A)- 按 Alt + F11 打开刚刚创建的模块。按 F5 运行。如果您有很多电子邮件,您可能需要选择 200 封左右的邮件,然后按 Alt+ F11,然后按 F5。
VBA 代码:
Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(0, oMail.SenderEmailAddress))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub