E-Mail senden an ArrayList
13.02.2024 09:12:47
Tossli
In einem Makro erstelle ich zuerst ein PDF, welches ich danach als Mail an meine Arbeitskollegen versenden möchte.
Soweit so gut.
Nun habe ich eine Userform erstellt, in welcher per Checkbox ausgewählt werden kann, an wen ich die Mail versenden möchte.
Diese Empfänger füge ich zu einer Arraylist.
Wie füge ich nun die Inhalte der Arraylist zu den Empfängern hinzu?
If CheckBox1 = True Then MeineListe.Add "test1@abc.com"
If CheckBox2 = True Then MeineListe.Add "test2@abc.com"
If CheckBox3 = True Then MeineListe.Add "test3@abc.com"
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Anhang = ActiveWorkbook.Path & "\Unterlagen von Projektleiter\Terminangabe fuer Unterlagen.pdf"
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = MeineListe
.Subject = "Unterlagen"
.attachments.Add Anhang
.Body = "Hallo hier noch die Terminangaben " & vbCrLf & vbCrLf & "Freundliche Grüsse"
.Display
'.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
Besten Dank im Voraus
Gruss Tossli