Per vba Lotus-Mail verschicken
29.12.2006 11:30:21
Moni
ich verschicke mit dem nachfolgenden VBA-Code (Auszug) mit Lotus eine E-Mail
mit Anhang. Klappt soweit ganz gut, aber ich hätte gerne 2 Verbresserungen:
1. Wie kann ich in "Sendto" einen Verteiler anlegen ?
Ich habe es hiermit versucht: " " & " ", mit Komma, usw. Aber es funktioniert nicht. Kann ich hier wirklich nur einen Empfänger eingeben ?
2. Kann ich eine Mail verschicken, ohne dass ich Lotus vorher öffnen muss ?
Habt Ihr einen Tipp ?
Viele Grüße,
Moni
Dim Betreff As String
Dim Empfaenger As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim ABSENDER As String
Dim DATEIANHANG As String
Dim rtitem As Object
Dim EmbeddedObject As Object
ABSENDER = ""
On Error GoTo Err_Mail_Click
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
Set NotesDB = SessionNotes.GetDatabase("", "")
NotesDB.OPENMAIL
If NotesDB.IsOpen = False Then
MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
Exit Sub
End If
Set NotesDoc = NotesDB.CreateDocument
With NotesDoc
.Form = "Memo"
.Subject = ""
.sendto = " "
.copyto = " "
'.blindcopyto= ""
.body = " "