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
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
Comment