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
Tags microsoft-outlook vba