от
Я пишу некоторые код VBA открыть, чтобы получить счет, сколько раз конкретный адрес электронной почты была отправлена. Проблема я бегу в том, что впервые отправленного почтового сообщения, электронной почты покидает наш сервер Exchange как
email1@domain.com
Но после того, как человек отвечает на это письмо, то все последующие сообщения отображаются в виде
'lastname, firstname'
Я использую ниже код VBA для поиска email1@domain.com например, но как я могу использовать VBA, чтобы получить имя из списка глобальных адресов?
Function Test()

Dim searchEmail As String: searchEmail = "'abc123@abc123.com'"
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olReply As Outlook.MailItem
Dim msg As Object
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderSentMail)

For Each msg In Fldr.Items
    If TypeName(msg) = "MailItem" Then
        If msg.To = searchEmail Then
            'now we start counting
        End If
    End If
Next msg

End Function

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
...