Domino 9 und frühere Versionen > ND6: Entwicklung

automatischer Mail Versand

(1/2) > >>

steeve415:
Hi,

ich möchte eine Email aus VBA (Excel) versenden. Dabeio soll die Datei angehängt werden...
Soweit kein Problemm, da es genug Beispiele im Internet gibt.

Mein Problem besteht darin, dass ich dem Benutzer die Möglichkeit geben will, dass er die Email noch bearbeiten kann bevor sie geschickt wird.

Mein Code sieht wie folgt aus...

Vielen Dank und viele Grüße

steeve


Function NotesMailSend(strEmpfaenger As Variant, strBetreff As Variant, _
strText As Variant, strcc As Variant, strbcc As Variant, strFilename As _
String)
' Dimensionierung der Objektvariablen
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem
Dim msg As String
'
' Zuweisung der Objektvariablen
'On Error GoTo ExitF
Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.GETDATABASE("", "")
' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
Call objNotesDB.OPENMAIL
Set objNotesMailDoc = objNotesDB.CREATEDOCUMENT
objNotesMailDoc.Form = "Memo"
Call objNotesMailDoc.Save(True, False)
Set SendItem = objNotesMailDoc.APPENDITEMVALUE("SendTo", "")
Set NCopyItem = objNotesMailDoc.APPENDITEMVALUE("CopyTo", "")
Set BlindCopyToItem = objNotesMailDoc.APPENDITEMVALUE("BlindCopyTo", "")
objNotesMailDoc.sendto = strEmpfaenger
objNotesMailDoc.Subject = strBetreff
Set rtitem = objNotesMailDoc.CREATERICHTEXTITEM("Body")
objNotesMailDoc.Body = strText
rtitem.ADDNEWLINE (1)
Call rtitem.EMBEDOBJECT(1454, "", strFilename)
' Mail zustellen
Call objNotesMailDoc.Save(True, False)

'Call objNotesMailDoc.send(False)
'objNotesMailDoc.RemoveItem ("DeliveredDate")
'Call objNotesMailDoc.Save(True, False)
' Nachricht an Benutzer
msg = "Die E-Mail wurde erfolgreich versendet!"
MsgBox msg, vbInformation, "Notesmail versenden..."
' Objektvariablen zurücksetzen
Call objNotes.Close
' Leider funktioniert der Quit-Befehl aus irgend einem Grund nicht.
'objNotes.Quit
Set objNotes = Nothing
ExitF:
End Function

steeve415:
Nachträglich noch.

Gibt es irrgendwo eine ausfürliche Dokumentation des Notes API's

Gruß steeve

m3:

--- Zitat von: steeve415 am 08.05.06 - 15:08:55 ---Nachträglich noch.

Gibt es irrgendwo eine ausfürliche Dokumentation des Notes API's
--- Ende Zitat ---
Notes Designer Online-Hilfe?

Glombi:
siehe
http://atnotes.de/index.php?topic=30350.0

alexbeer:
Hi,

in dem Thread http://atnotes.de/index.php?topic=30327.0 in dem ich quasi genau das selbe gefragt habe, hat mir Zaludtske den http://atnotes.de/index.php?topic=30327.msg191171#msg191171 gegeben.
Ich kann da leider nicht viel mit anfangen - vielleicht hilft es dir ja!

Gruß
Alex

Navigation

[0] Themen-Index

[#] Nächste Seite