Mehrere PDF erzeugen und per Mail senden
06.10.2021 14:45:40
Mike
ich habe eine Liste aus der ich 2 Formulare erzeuge, die ich per Email verschicken muss.
Ich bin so weit, dass ich mit einem Makro aus beiden Sheets je eine PDF erzeuge, aber es wird nur eine davon in die Email übernommen.
Wie kriege ich nun beide PDFs mit in den Anhang?
Sub Docs_print_and_send()
Dim DateiName As String
Sheets("Doc1").Select
DateiName = Range("B2") & ".pdf"
Range("B10:E16").ExportAsFixedFormat Type:=x1TypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Doc2").Select
DateiName = Range("B3") & ".pdf"
Range("B10:E16").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 = Range("B3")
.CC = Range("B4")
.Subject = Range("B5")
.Body = Range("B6")
myAttachments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
https://www.herber.de/bbs/user/148464.xlsm