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.
| 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.