|
Hat nun super geklappt!!!! DANKEEEEEE für deine HILFE!!!!!!
Falls wer den Code braucht....
Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strPDF As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'++ Dateiname
Dim Dateiname As String
Dateiname = Range("AA2")
'++ PDF erzeugen vom aktuellen Tabellenblatt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\TEMP\" & Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'++Pfad der Zwischenspeicherung
strPfad = "C:\TEMP\"
'** Pfad + Dateiname der neuen Datei (PDF) zwischenspeichern
strPDF = strPfad & Dateiname & ".pdf"
'** Body-Text festlegen
strBodyText = Range("AZ2")
'** Mail erzeugen
With Mail
.To = ""
.CC = ""
.Subject = Dateiname
.BodyFormat = 2
.Attachments.Add strPDF
.Body = strBodyText
End With
'** Erzeugte Datei wieder löschen
Kill "C:\TEMP\" & Dateiname & ".pdf"
'** E-Mail anzeigen
Mail.Display
'++ Objektvariablen wieder löschen
Set outObj = Nothing
Set Mail = Nothing
End Sub
|