Hi,
Looking to extract email from outlook from a specific sender.
Can anyone please suggest modification to the code pls.
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set myolItems = objNS.GetDefaultFolder(olFolderInbox).Items
For i = 1 To myolItems.Count
Set myitem = myolItems(i)
msgtext = myitem.Body
Range("c" & i + 6).Value = myitem.ReceivedTime
Range("d" & i + 6).Value = myitem.SenderName
Range("e" & i + 6).Value = myitem.Subject
Range("f" & i + 6).Value = myitem.Categories
Next
Looking to extract email from outlook from a specific sender.
Can anyone please suggest modification to the code pls.
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set myolItems = objNS.GetDefaultFolder(olFolderInbox).Items
For i = 1 To myolItems.Count
Set myitem = myolItems(i)
msgtext = myitem.Body
Range("c" & i + 6).Value = myitem.ReceivedTime
Range("d" & i + 6).Value = myitem.SenderName
Range("e" & i + 6).Value = myitem.Subject
Range("f" & i + 6).Value = myitem.Categories
Next