Mailverteiler aus Exeltabelle
26.05.2020 13:42:52
Markus
ich habe den untenstehenden Code um eine PDF aus einer Excel-Tabelle zu erstellen und als Mail zu versenden.Funktioniert auch soweit Prima. Jedoch bekomme ich mit der Anweisung .To und .CC jeweils nur einen Adressaten ausgewählt. Ich möchte dies jedoch individuell gestalten und bei Bedarf mehrere Empfänger (.To wie auch .CC) die untereinander in einer Liste stehen auswählen können. Bsp: Range("BO476:BO485"). Es wäre klasse wenn mir hier jemand unter die Arme greifen könnte :)
Dim Dateiname As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Info XY").Range("AL467").Value
Dateiname = Speicherpfad & "\" & Range("AL517") & ".pdf"
ActiveWorkbook.Sheets("Info XY").Range("AK500:AT550").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, _
OpenAfterPublish:=False, IncludeDocProperties:=True
Sheets("Info XY").PageSetup.Orientation = 1
Sheets("Info XY").PageSetup.Zoom = False
Sheets("Info XY").PageSetup.FitToPagesWide = 1
Sheets("Info XY").PageSetup.FitToPagesTall = 1
Dim OutlookApp 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 = Range("BO476") ' Range("BO476:BO485") funktioniert nicht wirklich
.CC = Range("BP476")
.Subject = Range("AL517")
.Body = Range("AL518").Text
myAttachments.Add Dateiname
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing