Error Getting while downloading from outlook mail

[Giriraj Desai]

Hi ,

Need your help

I have macro to extract mail subject ,received time ,sender which is attached
macro is not working could you please help me



and also I want one more help in the macro can we line
like in the subject line it will mentioned with some company code name
like A010 in the folder could you also help with that

Many thanks for your help.

Regards
Giriraj

 

[Chihiro]

Try...

Dim OutlookApp As Object
Dim OutlookNamespace As Object

I'm guessing that since you don't have reference to Outlook library, it's giving the error you mentioned.

 

[Giriraj Desai]

still getting error

 

[Chihiro]

Your syntax for that line is off. You are already setting folder to default inbox via GetDefaultFolder(olFolderInbox)

Is the folder you are interested in default inbox?

See link for how NameSpace.GetDefaultFolder() is used.
https://msdn.microsoft.com/en-us/library/office/ff866724.aspx

 

[Giriraj Desai]

Hi Chihiro,

Thanks for reply .

yes that is the folder in my inbox "SBS BLR JOURNAL LATAM CHCG" and the mails in the inbox.

 

[Chihiro]

My question is, is that your default inbox?

 

[Giriraj Desai]

Hi Chihiro,

yes it is default inbox.

Regards
Giriraj

 

[Chihiro]

If it's default then you just need.

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)

 

[Giriraj Desai]

Hi Chihiro,

Sorry there are other folders in my mail box this is one of the folder which I want to track the mails received on daily basis folder name is "SBS BLR JOURNAL LATAM CHCG" in that Inbox.

regards
Giriraj

 

[Chihiro]

It does not matter if there are other folders. As long as the folder that you are interested is the default "Inbox". Did you test it?

If not, I'll need more details to help you (such as if there are multiple accounts, or just one account, folder structure etc).

You may find the link useful.
https://www.slipstick.com/developer/working-vba-nondefault-outlook-folders/

Edit: You may want to use early bind with reference to Microsoft Outlook object library. Which will give you benefit of being able to object members and methods.

 

[Giriraj Desai]

Hi Chihiro,

I tired running the macro I am now getting this error

 

[Chihiro]

Without full detail of your folder structure. Can't really help you.

But assuming it's 2 layer structure. You can access it by.

Set Folder = OutlookNamespace.Folders("Parent Folder Name").Folders("Sub Folder Name")

 

[Giriraj Desai]

Hi Chihiro,

Many Thanks for your Help!!
After adding the line now the macro is working fine, however the macro is not stopping and after 30 minutes the macro will stop and return me the below error .

I have question can we add "received date " and "to date " like 6/8/2017 to 6/8/2017 ,now currently I have only received date , may be that is the reason
it is taking too long time .

 

[Chihiro]

Because an item in folder can be types other than mail item. Some items may not have that property populated.
So you'd want to check that it is mailitem.

If TypeName(OutlookMail) = "MailItem" Then
'do something if it's mailitem
End If

Have a read of link as well
https://stackoverflow.com/questions...ilitem-properties-return-values-others-do-not

 

[Giriraj Desai]

Hi Chihiro,

I could not understand ,can you please let me know where to add this line.

 

[Chihiro]

It should go right after For Each line.