05.08.2023, 12:23
Hallo Leute,
ich hoffe ihr könnt mir helfen. Ich suche eine Möglichkeit um ein bestimmtes Tabellenblatt in pdf zu wandeln,
und dies dann per E-Mail zu versenden.
Ich habe diesen VBA Code im Netz gefunden, jedoch generiert der Code aus der Datei ein pdf und nicht wie ich es benötige
für das Tabellenblatt.
--
könnt Ihr mir helfen?
Danke Gruß Phoeni
ich hoffe ihr könnt mir helfen. Ich suche eine Möglichkeit um ein bestimmtes Tabellenblatt in pdf zu wandeln,
und dies dann per E-Mail zu versenden.
Ich habe diesen VBA Code im Netz gefunden, jedoch generiert der Code aus der Datei ein pdf und nicht wie ich es benötige
für das Tabellenblatt.
--
Code:
'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
'** Vorgaben definieren
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
'** PDF erzeugen
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Excel-File.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
'** E-Mail versenden
strPDF = ThisWorkbook.Path & "\Excel-File.pdf"
With strEmail
.To = "Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein."
.Subject = "PDF als Anlage" 'Betreffzeile
.body = "Als Anlage die PDF-Datei"
.Attachments.Add strPDF
.Display
'.Send 'Damit wir die E-Mail sofort versendet
Kill strPDF
End With
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End Subkönnt Ihr mir helfen?
Danke Gruß Phoeni