Blatt als Mail mit Blattname für pdf
29.01.2019 20:28:39
MaBlu
ich habe ein Makro das mir ein PDF erzeugt und es als PDF an Mail anhängt, jedoch mit dem Dokument Name, ich möchte dass das Dokument als Blattname versendet wird, wie heisst da der Befehl?
Hier ist das Problem:
pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & "_" & Date & Format(Time, "hhmm") & ".pdf" 'Speicherpfad
das ganze Makro ist so:
Sub pdf_per_mail()
Dim pdf As String
pdf = pdf_erstellen
Call permail(pdf)
Kill (pdf) 'pdf wieder löschen
End Sub
Function pdf_erstellen()
Dim pdf As String
Dim sep As String
sep = Application.PathSeparator
'pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & "_" & Date & Format(Time, "hhmm") & ". _
pdf" 'Speicherpfad
pdf = ThisWorkbook.Path & sep & ThisSheet.Name & "_" & Date & Format(Time, "hhmm") & ".pdf" _
'Speicherpfad
On Error Resume Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
On Error GoTo 0
pdf_erstellen = pdf
End Function
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments
With objMail
.To = "dieWahlmail@web.de"
.Subject = "Dein Wunsch Dokument"
.Body = "Hallo" & vbNewLine _
& vbNewLine _
& "Im Anhang das gewünschte Rezept, viel Freude damit!" & vbNewLine _
& "Bitte nicht vergessen © by xy"
myAttachments.Add pdf 'Anhang
'Nachricht zur Kontrolle anzeigen
.Display
'Oder direkt senden
'.Send
End With
End Sub