Fehlender Name im Gesendet-Protkoll

    Hallo zusammen,


    wie muss ich meinen Code in VBA-Excel ergänzen.damit im Gesendet-Protokoll der 1.Name einer Gruppe von Empfängern erscheint.In der jetzigen Programmversion ist die Spalte " Wer " leer.Sende ich die Mail an nur einen Empfänger, erscheint der Name im Protokoll.
    hier der Programmcode:


    Sub Mailen(Monat, Jahr)
    Dim Session As Object
    Dim Workspace As Object
    Dim DataBase As Object
    Dim Document As Object
    Dim RichTextFile As Object
    Dim Attachment As Object

    Set Session = CreateObject("Notes.NotesSession")
    sNotesServer = "……/……./DE"
    sMailFile = "mail\......nsf"
    Set DataBase = Session.GetDatabase(sNotesServer, sMailFile)
    sBody = "Sehr geehrte Damen und Herren,“


    Sheets(1).Select
    r = Range("Mail").Row
    Range("Mail").Offset(1, 0).Select
    Selection.End(xlDown).Activate
    rEnde = ActiveCell.Row - Range("Mail").Row

    Dim arr()
    For r = 1 To rEnde
    ReDim Preserve arr(r)
    arr(r) = Range("Mail").Offset(r, 0)
    Next

    Set Document = DataBase.CreateDocument

    Anlegen_Senddatei Monat, Jahr

    With Document
    .Form = "Memo"
    .SendTo = arr
    .Subject = "bla,bla,bla…….“
    Set RichTextFile = .CREATERICHTEXTITEM(Document, "Body")
    Call RichTextFile.AppendText(sBody)
    Set Attachment = RichTextFile.EmbedObject(1454, "", Senddatei, "Anhang")
    End With

    'Send mail
    With Document
    .SaveMessageOnSend = True
    .PostedDate = Now
    Document.send False, arr
    End With
    Kill Senddatei

    Set RichTextFile = Nothing
    Set Document = Nothing
    SendMail = True

    Exit Sub


    Vielen Dank im voraus für eventuelle Hilfe.


    :-?