VBA SendMail nach Delphi konvertieren - brauche Hilfe

[Piro]

Hier mein Lösung:

Delphi-Quellcode:

procedure SendMailLotusNotes(const Subject, FileName, SenderEMail: String);
var
 oSession : OleVariant; // Notes Session
 oDB      : OleVariant; // Notes Datenbank
 oDoc     : OleVariant; // Notes Document
 oRTitem  : OleVariant; // Notes RichText Item
 oWS      : OleVariant; // Notes Workspace
 sMailserver : String;
 sMailFile   : String;
begin
 oSession := CreateOleObject('Notes.Notessession');

 sMailserver := oSession.GETENVIRONMENTSTRING('Mailserver', True);
 sMailFile   := oSession.GETENVIRONMENTSTRING('Mailfile', True);
 oDB := oSession.GETDATABASE(sMailserver, sMailFile);

 oDoc := oDB.CREATEDOCUMENT;
 oDoc.SendTo := SenderEMail;
 oDoc.subject := Subject;

 oDoc.Form := 'Memo';
 oRTitem := oDoc.CREATERICHTEXTITEM('Body');
 oRTitem.EMBEDOBJECT(1454, '', FileName);

 oWS := CreateOleObject('Notes.NotesUIWorkspace');
 oWS.OpenDatabase(sMailserver, sMailFile);
 oWS.EDITDOCUMENT(True, oDoc);

 // Direkter Versand
 // oDoc.SEND(False)
end;

Code:

oRTitem.EMBEDOBJECT(1454, '', FileName);

Weiß einer was die Zahl bedeutet und welche Werte möglich sind?

Gruß, Sven