Ich möchte ein Tabellenblatt von Excel in PDF als E-Mail versenden.
dazu hab ich folgenden Code:
Sub PdfUndEmailErstellen()
Dim objOlApp As Object
Dim strNewFileName As String, strOldBody As String
strNewFileName = ThisWorkbook.Path & "\" & "_#TEMP#.pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strNewFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Email erstellen
Set objOlApp = CreateObject("Outlook.Application")
With objOlApp.CreateItem(0)
.GetInspector.Display
strOldBody = .htmlBody
.To = "....@.....de"
'.CC = "CC-Empfänger"
.Subject = "Reklamation"
.Attachments.Add strNewFileName
.htmlBody = "Reklamation" & "
" & strOldBody
End With
'Erstellte PDF-Datei wieder löschen (optional)
Kill strNewFileName
End Sub
Funktioniert auch soweit, nur ich bräuchte folgende Änderungen:1. Der Dateiname wir jetzt als "#Temp#" ausgegeben, soll aber der Dateiname der Excel-Datei sein. Pfad brauch ich nicht.
2. Der Betreff ist jetzt "Reklamation", soll aber "Reklamation"+ Dateiname sein.
Kann mir da jemand helfen?
mfg. Hans