Versenden einer E-Mail mittels VBA aus Excel an mehrere Empfänger

[Andreas0407]

Hallo,
ich möchte mittels eines Makro eine E-Mail an mehere Empfänger versenden. Das Absenden der Mail funktioniert, jedoch nur an den ersten Adressaten. Die anderen Empfänger werden irgendwie nicht übergeben.

Ich habe dazu auch schon einige Forumsbeiträge gelesen, jedoch kann ich das Problem bei mir nicht so recht finden. Schon mal besten Dank für die Hilfe vorab und einen guten Rutsch ins neue Jahr.

Mein Code sieht wie folgt aus:
--------------------------------------------------------------------------
'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 As Variant
    Dim Adressat_1 As String
    Dim Adressat_2 As String
    Dim Adressat_Kopie As String
    Dim Betreff As String
    Dim Nachricht1 As String
    Dim Nachricht2 As String
                           
    Set Session = CreateObject("Notes.NotesSession")
    Set Maildb = Session.CURRENTDATABASE
    Set MailDoc = Maildb.CREATEDOCUMENT
       
    Nachricht1 = "Sehr geehrte Damen und Herren,"
    Nachricht2 = "anbei übersenden wir Ihnen den aktuellen Kostenstellennachweis."
    Nachricht2 = "Mit freundlichen Grüßen"
    Betreff = "Kostenstellennachweis (KSN) " & Monat & " " & Jahr & " " & Bahnstelle & "-" & Rahmenkostenstelle
   
    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 (Nachricht1)
        .ADDNEWLINE (2)
        .APPENDTEXT (Nachricht2)
        .ADDNEWLINE (2)
        Call .EMBEDOBJECT(1454, "", Speicherort & "\" & Speichername)
        .ADDNEWLINE (2)
        .APPENDTEXT (Nachricht3)
        .ADDNEWLINE (2)
        .APPENDTEXT Signature
    End With
   
    MailDoc.SAVEMESSAGEONSEND = True
   
    MailDoc.PostedDate = Now()
    MailDoc.send 0
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
       
    End If
    '----------------------------------------------------------------------------------

[koehlerbv]

Empfaenger_KSN muss ein Array mit den Mailadressen der Empfänger sein.

Bernhard

[Andreas0407]

Super,

besten Dank für den Hinweis. Jetzt klappt es.

Vg und viel Gesundheit im neuen Jahr!