Recuperar o ID do email em vez do nome

1

Abaixo, a codificação recupera todas as informações dos arquivos .msg . No entanto, quando recupera o ID de e-mail do remetente e é recebido, ele reflete o nome em vez do ID de e-mail. Por favor, me ajude e avise sobre quais alterações são necessárias para exibir o ID de e-mail em vez do nome.

Dim MyOutlook As Outlook.Application

Dim Msg As Outlook.MailItem
Dim x As Namespace
Dim Row As Integer
Dim Path As String
Set MyOutlook = New Outlook.Application
Set x = MyOutlook.GetNamespace("MAPI")
Path = "C:\Users\USERNAME\Desktop\My working\Macro\New folder\Ilearn - Grp 1\"

FileList = GetFileList(Path + "*.msg")
Row = 1

While Row <= UBound(FileList)

    Set Msg = x.OpenSharedItem(Path + FileList(Row))

    Sheet2.Cells(Row + 1, 1) = Msg.Subject
    Sheet2.Cells(Row + 1, 2) = Msg.Sender
    Sheet2.Cells(Row + 1, 3) = Msg.CC
    Sheet2.Cells(Row + 1, 4) = Msg.To
    Sheet2.Cells(Row + 1, 5) = Msg.SentOn
    Row = Row + 1
Wend
    
por Gaus 03.06.2016 / 11:03

0 respostas