Can you make this one line addition to the code and tell me what it says in column E?
Count = Count + 1 Sheet1.Range("E" & Count).Value = objMail.SenderEmailType Sheet1.Range("C" & Count).Value = objMail.SenderEmailAddress Sheet1.Range("D" & Count).Value = objMail.ReceivedTime
Last edited by Croweater; 02-06-2023 at 05:12 AM.
excelforum.xlsm
here is the sample file
Please make the Post as solved, when you get your answer & Click * if you like my suggestion
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
akhileshgs 
Register To Reply
Bookmarks