outlook automation

Good day experts. Please help me in solving this issue.

I have a macro that will extract the subject and received date and EntryID from the mails to excel, but my requirement was,

(It should extract the subject and received date and time, content of the mail.) if subject and received date and time, content of the mail are same.. it should not be extracted to excel.. iam telling this condition to stop duplication of mail..


Please help me in doing this..

Sub ReadEmails()

        'Stop Screen Updates
        Application.ScreenUpdating = False
        ' Then remember to run automatic calculations back on
        Application.Calculation = xlCalculationManual
        Application.EnableEvents = False

'set this to the folder
Set Olf = CreateObject("Outlook.Application").GetNamespace("MAPI").Folders(1).Folders("inbox")

       
i = Olf.Items.Count + 1
LR = Range("A65536").End(xlUp).Row
r = 1

Do Until r = i

subs = Olf.Items(r).Subject
daterec = Olf.Items(r).ReceivedTime
strID = Olf.Items(r).EntryID



Worksheets("Sheet1").Cells(LR, 1).Value = subs
Worksheets("Sheet1").Cells(LR, 2).Value = daterec
Worksheets("Sheet1").Cells(LR, 3).Value = strID

r = r + 1
LR = LR + 1

Loop

        'Stop Screen Updates
        Application.ScreenUpdating = True
        ' Then remember to run automatic calculations back on
        Application.Calculation = xlCalculationAutomatic
        Application.EnableEvents = True
End Sub

Good day.. Experts.. please help me in doing this, waiting for reply

Good day experts,, Please help me in doing this.

Mails subject and received date will be extracted to the excel from (row 1), but i have titles in the (row 1. So edit this macro to copy from
(row 2),, Please help me

Sub ReadEmails()

        'Stop Screen Updates
        Application.ScreenUpdating = False
        ' Then remember to run automatic calculations back on
        Application.Calculation = xlCalculationManual
        Application.EnableEvents = False

'set this to the folder
Set Olf = CreateObject("Outlook.Application").GetNamespace("MAPI").Folders

(1).Folders("inbox")

       
i = Olf.Items.Count + 1
LR = Range("A65536").End(xlUp).Row
r = 1

Do Until r = i

subs = Olf.Items(r).Subject
daterec = Olf.Items(r).ReceivedTime




Worksheets("Sheet1").Cells(LR, 4).Value = subs
Worksheets("Sheet1").Cells(LR, 3).Value = daterec



r = r + 1
LR = LR + 1

Loop

        'Stop Screen Updates
        Application.ScreenUpdating = True
        ' Then remember to run automatic calculations back on
        Application.Calculation = xlCalculationAutomatic
        Application.EnableEvents = True
End Sub

Good day

@ HaHoBe

Really thanks for your help, it works well..

How can i get the follow up column,size, attachment,etc., iam asking this for my knowledge..

Good day,

@ HaHoBe, Thanks for your help.

As per your previous post we use the below code for extracting the subject and receivedtime...

But for my knowledge iam asking, how can we extract other columns like this, Example (followup, size, attachment, Category,From, TO, CC, BCC,
other columns in view tab in outlook.

 With Worksheets("Sheet1")
      .Cells(r + 1, 4).Value = OlF.Items(r).Subject
      .Cells(r + 1, 3).Value = OlF.Items(r).ReceivedTime