如何在共享文件夹中查找联系人匹配项

Question

我正在编写一个宏，它可以根据联系人备注字段中的信息自动重命名电子邮件。我希望这个宏能够引用共享联系人文件夹中的联系人。我无法让它工作。

问题是我依赖于 GetContact。我不知道如何获得这种功能来引用另一个联系人文件夹。

我显然不是程序员 - 任何帮助将不胜感激。这是我所写内容的相关部分：

Function AddSender(X As String)

Set myContact = thisItem.Sender.GetContact

If Not myContact Is Nothing Then

contactProperties = myContact.Body

a = InStr(contactProperties, ";")
b = InStr(contactProperties, "]")

Role = Mid(contactProperties, a + 2, b - a - 2)
MsgBox (Role)

newSubject = Role + " - " + X
thisItem.Subject = newSubject
thisItem.Save

End If

End Function

Answer 1

GetContact 将搜索任何启用为 Outlook 通讯簿的联系人文件夹（在文件夹的属性对话框中）。但是，我相信对于共享文件夹中的联系人，仅搜索用户的默认联系人文件夹，因为只能共享默认文件夹。