Save lotus email attachment

[meboz]

Hi all,

I have two things that Id like to be able to do.

1. Open an attachment in a Lotus email via VBA

2. Save an attachment in a lotus email via VBA

I have a situation where users are sending spreadsheets back to a mailbox and there are plenty of them. So i want to automatically search the mailbox and either open the attachments for processing, or alternatively save them to a network drive to be processed.

Either way, I do NOT want to open each email manually and save the attachements.

Thanks to all in advance...

 

[meboz]

Solution found

I found the solution.

I am able to loop through the NotesDocumentsCollection and call the EXTRACTFILE method on the EMBEDDEDOBJECTS property for each embedded object.

One trick was to use the EMBEDDEDOBJECTS property of the RICHTEXTITEM class, not the NOTESDOCUMENT class. If anyone is interested in the code, reply to this post and im happy to post a cleanish version.