vba - 从 Outlook 获取中间名首字母

我在将 middleName 设置为等于 entry.GetContact.Initials 时遇到错误。

它说对象变量或未设置 block

还有其他方法可以访问用户中间名的首字母缩写吗？

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

最佳答案

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

为什么不简单地将名字和姓氏的首字母连接起来？

关于vba - 从 Outlook 获取中间名首字母，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/40113568/