Lotus Notes - Save mail to file with OLE - email

Question

I am accessing Lotus Notes via OLE, and this is how I retrieve the selected mail:
try
UIView := FLNotes.CURRENTVIEW; // am I in a view or in an opened document ?
if VarIsClear(UIView) then begin
try
aDocument := FLNotes.CURRENTDOCUMENT.Document;
except
raise;
end;
end else begin // any selected mails in view ?
UIDocuments := UIView.DOCUMENTS;
for counter := 1 to UIDocuments.Count do begin
if counter = 1 Then
aDocument := UIDocuments.GETFIRSTDOCUMENT
else
aDocument := UIDocuments.GETNEXTDOCUMENT(aDocument);
end;
end;
finally
UIView := Unassigned;
UIDocuments := Unassigned;
aDocument := Unassigned;
end;
I have the reference to the particular mail in aDocument. Now I would like to save every each mail (on the disk as a file, not inside Lotus Notes), but I didnt find the right method to use with OLE.
I have found this Notes Commands, but I didnt figure out whats the syntax for OLE access. I tried it like this: aDocument.Command("FileSave", "Test.eml"), and I tried also lot of other combinations with Save but none of them worked. So maybe somebody did this already or has a tip where I could look for a solution
Thanks
Regards

Answer 1

Save operations in Notes will save a document in an NSF file, not the filesystem. It's an Export operation you would be looking for.
The FileSave command saves a currently open-for-edit document in the
Notes UI and saves it to the NSF file that it was opened from.
The Save method similarly does a back-end save - i.e., it bypasses the UI operations, takes the in-memmory representation of an existing Notes document (not necessarily the one that is current in the Notes client), and saves it to the NSF file that it was opened from.
Back to the subject of Export operations, as far as I know, there is no supported Export method for .eml files. Although the Notes client can save a .eml file if you drag a message from a view and drop it on your desktop, I don't believe there is any supported method in any of the supported Notes APIs for automating this process. (In theory, I imagine that one might be able to use the Windows API to send the appropriate event messages to the Notes client in order to make it think the user is doing a drag-and-drop operation, but that's way beyond the scope of what could possibly be addressed here on StackOverflow.)

Answer 2

It seems that there is a way to save the mail as an eml file (actually any file that you want, but since .eml is what I need I will use that). So for any case somebody may need it here the code :
try
oleSession := GetActiveOleObject('Notes.NotesSession');
except
oleSession := CreateOleObject('Notes.NotesSession');
end;
path := '...Somepath.../Mail.eml';
oleDB := oleSession.CurrentDatabase;
oleSession.ConvertMIME := false;
oleView := GetSelectedMail; //the code for this is in the first post
oleDoc := oleView.GetFirstDocument;
oleDoc.converttomime(1);
mime := oleDoc.getmimeentity;
oleEmailText := oleSession.CreateStream; // create a stream to fill it with the data
oleEmailText.open(path, 'us-ascii');
mime.GetEntityAsText(oleEmailText); // write inside stream
oleSession.ConvertMIME := true; // put this flag back to its original state - per default its true -
Just as a side note, with this method attachments are missing from the saved mail. But since I separate them and save inside another folder, its not a big issue for my case
Regards