从Outlook获取中间名缩写

Question

设置middleName等于entry.GetContact.Initials时出错。

它表示对象变量或未设置块

是否有另一种方法可以访问用户中间名的缩写？

Dim firstName, lastName, middleName, email As String

For Each entry In exUser.GetDirectReports() 'each entry is an exchangeUser
    firstName = entry.GetExchangeUser.firstName
    lastName = entry.GetExchangeUser.lastName
    middleName = entry.GetContact.Initials
    email = entry.GetExchangeUser.PrimarySmtpAddress
Next entry

Answer 1

GetContact会返回一个ContactItem对象，该对象存在于您的某个“联系人”文件夹中的IPM.Contact消息之上。对于GAL用户来说显然不存在。

为什么不简单地连接名字和姓氏的第一个字母？