E-Mail-Empfänger aus ListBoxen
10.12.2020 22:34:25
Longo
Ich möchte ein PDF an mehrere Empfänger senden, welche zuvor in vier verschiedenen ListBoxen (1-5) angewählt werden. Kann mir jemand helfen wie ich das hin kriege? Bis jetzt habe ich folgenden Code:
Private Sub CommandButton2_Click()
'PDF als E-Mail senden
Dim DateiName As String
DateiName = ActiveWorkbook.Path & "\Archiv\" & Range("B3").Text & "_Tagesplanung_" & " _
Gruppe " & Range("G1") & ".pdf"
Range("A1:G47").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = ListBox1.List(ListBox1.ListIndex)
.Subject = "Tagesplanung"
.Body = " Hier die aktuelle Tagesplanung"
myAttachments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Anzeige