Microsoft Excel

Herbers Excel/VBA-Archiv

Blatt als Mail mit Blattname für pdf


Betrifft: Blatt als Mail mit Blattname für pdf von: MaBlu
Geschrieben am: 29.01.2019 20:28:39

Hallo

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

  

Betrifft: & ActiveSheet.Name & o.T. von: Sepp
Geschrieben am: 29.01.2019 20:56:45

 ABCDEF
1Gruß Sepp
2
3



  

Betrifft: AW: & ActiveSheet.Name & o.T. von: MaBlu
Geschrieben am: 29.01.2019 21:02:49

Hallo Sepp

vielen Dank
Gruss MaBlu


  

Betrifft: AW: & ActiveSheet.Name & o.T. von: MaBlu
Geschrieben am: 29.01.2019 21:02:50

Hallo Sepp

vielen Dank
Gruss MaBlu


  

Betrifft: AW: & ActiveSheet.Name & o.T. von: Luschi
Geschrieben am: 29.01.2019 21:18:09

Hallo MaBlu,

wozu hast Du eigentlich diese Objekt-Referenz definiert: ThisSheet und warum benutzt Du sie nicht?

fragt sich Luschi
aus klein-Paris


  

Betrifft: AW: & ActiveSheet.Name & o.T. von: MaBlu
Geschrieben am: 29.01.2019 23:36:01

Hallo Luschi
das war mein Stümperhafter Versuch dass es gehen könnte, aber das Makro läuft dann nicht nur wenn ich wie Sepp mir das vorgeschlagen hat ActiveSheet.Name dann geht es!

Gruss MaBlu


Beiträge aus dem Excel-Forum zum Thema "Blatt als Mail mit Blattname für pdf"