ich habe folgenden Quellcode im Netz gefunden, um per VBA Dateien per Mail (Lotus Notes) zu versenden. Das klappt auch soweit, so lange ich immer nur einen Adressaten habe.
Ich möchte aber gerne die Mail an mehrere Personen senden. Ich habe schon versucht, die Personen mit Hilfe eines Arrays zu erfassen. Leider bekommt immer nur die 1.Person die Mail, die zweite Person nicht mehr.
Wäre toll, wenn mir jemand helfen könnte.
Danke und Vg
Andreas
'----------------------------------------------------------------------------
'5. Datei als E-Mail versenden
If Mailsendung = "ja" Then
Dim Session As Object
Dim Maildb As Object
Dim MailDoc As Object
Dim rtitem
Dim AttachME As Object
Dim EmbedObj As Object
Dim Signature As String
Dim Empfaenger_KSN()
Dim Adressat_1 As String
Dim Adressat_2 As String
Adressat_1 = Worksheets("Übersicht Kostenstellen").Cells(i, 11)
Adressat_2 = Worksheets("Übersicht Kostenstellen").Cells(i, 12)
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.CURRENTDATABASE
Set MailDoc = Maildb.CREATEDOCUMENT
Nachricht = "Sehr geehrte Damen und Herren, anbei übersenden wir Ihnen den aktuellen Kostenstellennachweis."
Betreff = "Kostenstellennachweis (KSN) " & Monat & Jahr
Empfaenger_KSN = Array(Adressat_1, Adressat_2)
MailDoc.sendto = Empfaenger_KSN
MailDoc.copyTo = Adressat_Kopie
MailDoc.Subject = Betreff
Signature = Maildb.GETPROFILEDOCUMENT("CalendarProfile").GETITEMVALUE("Signature")(0)
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
With rtitem
.APPENDTEXT (Nachricht)
.ADDNEWLINE (2)
Call .EMBEDOBJECT(1454, "", Speicherort & "\" & Speichername)
.ADDNEWLINE (2)
.APPENDTEXT Signature
End With
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.send 0, Empfaenger_KSN
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End If
'----------------------------------------------------------------------------------