Code von VB nach Delphi portieren (Lotus Notes Mail) - Wer kann mir helfen?

[Marc - Pierre Gubler]

Hallo zusammen,

ich benötige eure Hilfe.<br>
Ich habe Code in VBA und möchte diesen in Delphi einsetzen. <br>
Da ich momentan keinen Plan habe, wie ich das machen soll, wäre es toll, <br>wenn mir jemand von euch helfen könnte. <br><br>

Danke im voraus für alle Antworten! <br><br>

Function NotesMailSend(strEmpfaenger As Variant, strBetreff As Variant, strText As Variant, strcc As Variant, strbcc As Variant, strFilename As String) <br>
' Fehlerbehandlung <br>
'On Error GoTo Err_NotesMailSend <br>
'Dimensionierung der Objektvariablen <br><br>

' Hier fängt es dann schon an!!!<br>
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object, objView As Object<br>
Dim objNotesDoc As Object, objUIDoc As Object, objWS As Object<br>
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem<br><br>
' Zuweisung der Objektvariablen <br>
'On Error GoTo ExitF <br><br>

Set objNotes = GetObject("", "Notes.Notessession") <br>
Set objWS = GetObject("", "Notes.NotesUIWorkspace") <br>
Set objNotesDB = objNotes.GETDATABASE("", "") <br><br>

'Öffnen der Standard-Maildatenbank / Erstellen eines neuen Dokumentes <br>
Call objNotesDB.OPENMAIL <br>
Set objNotesMailDoc = objNotesDB.CreateDocument <br>
objNotesMailDoc.Form = "Memo" <br>
'Call objNotesMailDoc.COMPUTEWITHFORM(-1, 0) <br><br>

... <br>
ExitF: <br>
End Function <br><br>

Der von mir Kommentierte Teil sollte falls möglich nach Delphi gebracht werden. <br>
Den Rest kann ich. <br>
Ihr würdet mir wirklich sehr helfen!!! <br>

Danke, <br>
mgubler

[Andreas Kosch]

Hallo,

das VBA-Beispiel greift über die späte Bindung auf die COM-Objekte zu. Da dieser Weg auch in Delphi zur Verfügung steht, mann man folgendes machen:

a) Anstelle von Object werden Variablen vom Typ <b>OleVariant</b> deklariert.

b) Anstelle von GetObject wird die Funktion <b>CreateOleObject</b> aus der Delphi-Unit <b>ComObj</b> aufgerufen.

Im Fall der späten Bindung (d.h. die Typbibliothek des COM-Objekts wurde nicht in Delphi importiert) steht die Programmierhilfe und die Typprüfung des Compilers nicht zur Verfügung. Die Namen der Interface-Methode des COM-Objekts müssen "blind" eingetippt werden, d.h. aus der Dokumentation des COM-Objekts übernommen werden