如何通过VBA从MeetingItem.Recipient中提取合规用户名？

方法1：处理LDAP格式的地址字符串 #

针对你拿到的"/o=POST/ou=Zuerich/cn=Recipients/cn=eicherr"这类LDAP格式字符串，可以通过字符串拆分和截取来提取目标用户名，同时去掉末尾三个多余字符。以下是VBA代码示例：

For Each recip In recips
    Dim ldapAddress As String
    ldapAddress = CStr(recip.Address)
    
    ' 按"/"拆分字符串，取最后一段（即cn=xxx部分）
    Dim parts() As String
    parts = Split(ldapAddress, "/")
    Dim cnSegment As String
    cnSegment = parts(UBound(parts)) ' 获取数组最后一个元素
    
    ' 移除"cn="前缀
    Dim rawUsername As String
    rawUsername = Replace(cnSegment, "cn=", "")
    
    ' 去掉末尾三个多余字符（判断长度避免报错）
    Dim finalUsername As String
    If Len(rawUsername) > 3 Then
        finalUsername = Left(rawUsername, Len(rawUsername) - 3)
    Else
        finalUsername = rawUsername ' 处理长度不足3的特殊情况
    End If
    
    Debug.Print finalUsername
Next recip

这段代码的逻辑是：

• 用Split把LDAP字符串按/拆分成数组，取最后一个元素（因为用户名总是在最后一段的cn=后面）
• 替换掉cn=前缀得到原始用户名
• 用Left函数截掉末尾三个字符，同时加了长度判断防止异常

方法2：更可靠的用户名获取途径 #

其实你完全可以跳过LDAP字符串解析，直接通过Outlook的属性获取更准确的用户名，推荐两种方式：

方式A：从SMTP地址提取用户名 #

你已经有获取PR_SMTP_ADDRESS的代码，SMTP地址的@前面部分通常就是准确的用户名，直接拆分即可：

For Each recip In recips
    Dim pa As Outlook.PropertyAccessor
    Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set pa = recip.PropertyAccessor
    Dim email As String
    email = CStr(pa.GetProperty(PR_SMTP_ADDRESS))
    
    ' 提取@前面的部分作为用户名
    Dim smtpUsername As String
    smtpUsername = Split(email, "@")(0)
    Debug.Print smtpUsername
Next recip

方式B：直接读取账户名属性 #

通过PropertyAccessor读取PR_ACCOUNT_NAME属性，这个属性会直接返回用户的短账户名，不需要任何字符串处理：

For Each recip In recips
    Dim pa As Outlook.PropertyAccessor
    Const PR_ACCOUNT_NAME As String = "http://schemas.microsoft.com/mapi/proptag/0x3A00001E"
    Set pa = recip.PropertyAccessor
    
    Dim accountUsername As String
    accountUsername = CStr(pa.GetProperty(PR_ACCOUNT_NAME))
    Debug.Print accountUsername
Next recip

这两种方式都比解析LDAP字符串更稳定，因为它们直接调用Outlook的内置属性，不受LDAP格式变化的影响。

内容的提问来源于stack exchange，提问作者khashashin