'Change this:-
Cells(iRows, 1) = objMail.SenderEmailAddress
Cells(iRows, 2) = objMail.To
Cells(iRows, 3) = objMail.Subject
Cells(iRows, 4) = objMail.ReceivedTime
'To:-
Call fAddRec(objMail.SenderEmailAddress, objMail.To, objMail.Subject, objMail.ReceivedTime)