VBA SendMail nach Delphi konvertieren - brauche Hilfe

[mkinzler]

Scheint ja normale COM/OLE-Automation zu sein. Sollte alo problemlos möglich sein:

Delphi-Quellcode:

uses ... ComObj;

var
    oSession: OleVariant;   //Notes Session
    ...
    oSession = CreateOleObject('Notes.Notessession');
    ...

[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

[mkinzler]

http://www-12.lotus.com/ldd/doc/lotu...2?OpenDocument

[Piro]

Interessante Seite aber wie bekomme ich jetzt die Zahl ausgewertet. Auf dem IBM seite ist ja nur von

Zitat:

EMBED_ATTACHMENT
EMBED_OBJECT
EMBED_OBJECTLINK

die Rede.

[mkinzler]

Diese Konstanten werden auch irgendwo deklariert sein

1454 ist wohl EMBED_ATTACHMENT

http://www.experts-exchange.com/Prog..._11174671.html