Can some one help me on this.... error indicating in second line.
For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("email_Date").Value Then
Range("email_Subject").Offset(i, 0) = OutlookMail.Subject
Range("email_Date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("email_Sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("email_Body").Offset(i, 0).Value = OutlookMail.Body
i = i + 1
End If
For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("email_Date").Value Then
Range("email_Subject").Offset(i, 0) = OutlookMail.Subject
Range("email_Date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("email_Sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("email_Body").Offset(i, 0).Value = OutlookMail.Body
i = i + 1
End If