Hallo liebes Notes Forum,
ich bin neu hier und möchte mich ersteinmal für die schnelle Freischaltung bedanken :knuddel: !
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.
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.