Question

从链接的图片中，我想获得交换用户的中间名首字母

Function getFullName(exchangeUser As ExchangeUser) As String
    Dim firstName, middleName, lastName, As String
    firstName = exchangeUser.GetExchangeUser.firstName
    middleName = exchangeUser.GetExchangeUser.{somehow retrieve middle name}
    lastName = exchangeUser.GetExchangeUser.lastName
    getFullName = firstName & " " & middleName & " " & lastName
End Function

我尝试了GetExchangeUser.fullName但是没有返回中间的首字母

----------------------------------------------- - - - - - 编辑 - - - - - - - - - - - - - - - - - - - - -----------------------------

我不知道评论是如何运作的，所以我在这里添加我的代码

我试过了：

Function getFullName(exchangeUser As ExchangeUser) As String
    Dim firstName, middleName, lastName, As String
    Dim propName As String
    propName = "http://schemas.microsoft.com/mapi/proptag/0x3A44001F"
    firstName = exchangeUser.GetExchangeUser.firstName
    middleName = exchangeUser.GetExchangeUser.PropertyAccessor.GetProperty(propName)
    lastName = exchangeUser.GetExchangeUser.lastName
    getFullName = firstName & " " & middleName & " " & lastName
End Function

现在我收到一个错误，找不到该属性

Answer 1

使用AddressEntry.PropertyAccessor.GetProperty检索PR_MIDDLE_NAME MAPI属性。 DALS属性名称为http://schemas.microsoft.com/mapi/proptag/0x3A44001F

如何获得＆＃39;首字母＆＃39;联系人的中间名称outlook vba

1 个答案: