Mails Senden aus Excel Problem mehrere Empfänger

[deltaone]

Hallo liebes Notes Forum,

ich bin neu hier und möchte mich ersteinmal für die schnelle Freischaltung bedanken  !

Leider muss ich euch direkt mit einem Problem konfrontieren, in der Hoffnung das Ihr mir weiterhelfen könnt.

Und zwar habe ich mir eine Excel Liste gebastelt in der Termine verwaltet werden. Mittels eines
Buttons kann man dann Erinnerungen an alle Personen schicken (Für alle Termine die in den nächsten 7 Tagen anliegen).

Das klappt auch alles soweit ganz wunderbar, aber leider nur bis zu dem Punkt, an dem ich 2 Empfänger eingebe. Dann erhält immer nur der Erstgenannte eine Mail.

Code

Sub LotusMail()

    Application.DisplayAlerts = False
    Dim Maildb As Object
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim session As Object
    Dim Recipient As String
    Dim e As String
    Dim f As String
    Dim rtitem
    Dim empfarr As Variant
    Dim x As Integer
    Dim xmax As Integer
    Dim inhaltzelle As String
    Dim heute As Date
    
   
    
    heute = Date
    ymax = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    AWS = ActiveWorkbook.FullName
    Set session = CreateObject("Notes.NotesSession")
    Set Maildb = session.CURRENTDATABASE
        'On Error Resume Next
   
    With rtitem
        
        For x = 14 To ymax + 1
      If (Worksheets("Tabelle1").Range("a" & x) < (heute + 7) And (Worksheets("Tabelle1").Range("a" & x) > (heute - 1))) Then
      
       Set MailDoc = Maildb.CREATEDOCUMENT
       MailDoc.Form = "Memo"
  
       Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
      
        inhaltzelle = Worksheets("Tabelle1").Range("a" & x) & "  " & Worksheets("Tabelle1").Range("d" & x)
        Call rtitem.APPENDTEXT(inhaltzelle)
        .ADDNEWLINE (2)
           
          Recipient = Worksheets("Tabelle1").Range("c" & x).Value
          empfarr = Split(Recipient, " ; ")
          MailDoc.sendto = empfarr
          MailDoc.CopyTo = ""
          MailDoc.Subject = Worksheets("Tabelle1").Range("b5").Value
          
          MailDoc.SAVEMESSAGEONSEND = True

          MailDoc.PostedDate = Now()
          MailDoc.SEND 0, Recipient
        End If
        Next

    End With

    MailDoc.SAVEMESSAGEONSEND = True

    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachMe = Nothing
    Set session = Nothing
    Set EmbedObj = Nothing
    Application.DisplayAlerts = True
    MsgBox "Es wurde eine Erinnerung versendet!"
End Sub

Die Zelle mit den E-Mail Adressen in Excel sieht wie folgt aus:

max.mustermann@web.de ; max.mustermann@gmx.de


Egal ob ich die Eingabe mit Komma oder Semikolon trenne, es kommt leider immer nur die Mail an die erste Mailadresse an. 


Vielen Dank im Voraus!

Deltaone.

[Keydins]

Nur mal so ins Blaue geschossen:

Recipient = Worksheets("Tabelle1").Range("c" & x).Value
empfarr = Split(Recipient, " ; ")
MailDoc.sendto = empfarr
--> Du trennst die Empfänger aus der Variablen 'Recipient' und schreibst sie in das SendTo-Item


MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
--> Du sendest das Dokument an die in der Variablen 'Recipient' enthaltenen Nutzer. In diesem Fall wird das SendTo überschrieben. Der 'Empfänger'-Parameter ist optional, aber wenn er verwendet wird, dann hat er Vorrang.

Gruß
Dirk

[deltaone]

Vielen Dank für deine Antwort. Leider bin ich mir noch nicht ganz im klaren welche Änderungen ich dadurch nun im code vornehmen müsste. Ich muss dazu sagen, dass ich kein wirklicher VBA König bin. Wäre also um eine kurze Hilfestellung dankbar!

Gruß

Deltaone

[DerAndre]

Hi

das hat nichts mit VBA König zu tun.

MailDoc.SEND 0, Recipient


lass das Rote mal weg und schaue was passiert.

[deltaone]

Hallo und vielen Dank für die Hilfe,

leider kommt die Mail dennoch nur beim 1. Empfänger an und dieses mal sogar 2 mal.

Sonst noch eine Idee womit es zusammenhängen könnte?

Gruß

deltaone

[deltaone]

Ich nehme alles zurück. Die Mail kam an! Zwar mit 10 Minuten Verzögerung aber Sie kam an

Vielen Vielen Dank für eure Unterstützung.

Ich hoffe ich kann in hier Zukunft auch jemandem weiterhelfen!

gruß

Delta