Excel vba кода за четене на Outlook email от входящата кутия отдолу - excel-vba, vba, excel

С помощта на по-долу кодиране аз съм в състояние даизвличане на данните от входящата поща и актуализиране на същите в excel. Проблемът е, че аз не съм в състояние да актуализира най-новия отговор като макрос прочетете първи дойде първата актуализация основа. Ако получа отговор от abc вчера и актуализиран отговор от abc днес, макросът е актуализиране на отговора вчера. ,

Накратко, искам да актуализирам най-новия отговор в моите записи.

Dim outlookApp As Outlook.Application, oOutlook As Object
Dim oInbox As Outlook.Folder, oMail As Outlook.MailItem
Dim strAddress As String, strEntryId As String, getSmtpMailAddress As String
Dim objAddressentry As Outlook.AddressEntry, objExchangeUser As Outlook.ExchangeUser
Dim objReply As Outlook.MailItem, objRecipient As Outlook.Recipient
Set outlookApp = New Outlook.Application
Set oOutlook = outlookApp.GetNamespace("MAPI")
Set oInbox = oOutlook.GetDefaultFolder(olFolderInbox)

For Each oMail In oInbox.Items

If oMail.SenderEmailType = "SMTP" Then
strAddress = oMail.SenderEmailAddress

Else
Set objReply = oMail.Reply()
Set objRecipient = objReply.Recipients.Item(1)
strEntryId = objRecipient.EntryID
objReply.Close OlInspectorClose.olDiscard
strEntryId = objRecipient.EntryID
Set objAddressentry = oOutlook.GetAddressEntryFromID(strEntryId)
Set objExchangeUser = objAddressentry.GetExchangeUser()
strAddress = objExchangeUser.PrimarySmtpAddress()
End If

getSmtpMailAddress = strAddress
body = oMail.body

Отговори:

Завъртете назад:

    For i = oInbox.Count To 1 Step -1
If TypeName(oInbox.item(i)) = "MailItem" Then
Set oMail = oInbox.item(i)
"Do stuff here
Set oMail = Nothing
End If
Next i