Tabellenblätter als pdf senden
15.02.2022 13:06:11
Andrea
ich sende mit Hilfe des Forums mit dem folgenden Makro viele Tabellenblätter (ca. 85) an die Adressaten in jeweils Zelle A1.
Das Problem ist nun, dass die pdf-Dateien jeweils plan.pdf heißen.
Gibt es die Möglichkeit, das Makro so anzupassen, dass der pdf-Name so heißt wie die Tabellenblätter? Die haben ja jeweils andere Bezeichnungen.
Wenn ja, wie?
Vielen Dank für eure Hilfe.
Viele Grüße
Andrea
Sub pdfMail()
Dim mePDFD As String, strTo As String, TB As Worksheet
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\plan.pdf"
For Each TB In ActiveWindow.SelectedSheets
strTo = TB.Range("A1")
TB.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=mePDFD, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = strTo 'Adressen aus Zelle A1?
.Subject = "Wichtige Information 2" 'Betreffzeile
.body = "Bitte die weitere Mail heute mit Erläuterungen beachten. Vielen Dank." 'Inhalt, ev. auskommentiert
.Attachments.Add mePDFD
.Display
'.Send auskommentiert: senden pro Datei - nicht auskommentiert: senden ohne Nachfrage
End With
Kill mePDFD
Set MyMessage = Nothing
Set MyOutApp = Nothing
Next
End Sub
