Hi

I would like to seek for your assistance on how to run below codes since I am encountering some error. Very new to VBA and I find it really hard to understand and solve it. I would also appreciate if you could add codes to on how to download the attachment to my pc shared drive like Drive C\John\. I'm encountering error like runtime error 404 and runtime error 1004. Please, this is the second time I've posted here and yet unsolved. Kindly help me.

Dim olApp as Outlook.Application
Dim olNS as Outlook.Namespace
Dim olFldr as Outlook.MAPIFolder
Dim OlItms as Outlook.Items
Dim olMail as Variant


Dim 1 as Integer


Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace ("MAPI")
Set OlFldr = olNS.Pickfolder
if olFldr = "Nothing" then Exit sub
Set olItms = olFldr.Items


i = 1


if olItms.ReceivedTime >= Range("B4").value then


Range("Email_Subject").offset(1,0).Value = OutlookMail.Subject
Range("Email_Date").offset(1,0).Value = Outlookmail.ReceivedTime
Range("Email_Sender").offset(1,0).Value = Outlookmail.SenderName
Range ("Email_Body").offset(1,0).Value = Outlookmail.body
i = 1 + 1
else
endif


Range("A:D").EntireColumn.Autofit


Set Folder = Nothing
Set olFldr = Nothing
Set olApp = Nothing


End Sub
Thanks