Mail mit PDF Kreieren
10.12.2016 21:07:21
Tino
Hallo Zusammen,
da es mir nicht möglich ist auf einen Beitrag von letzter Woche zu antworten, mache ich es so.
Vielen Dank für die Hilfe!
Mein Sub schaut so aus:
Sub Mail_an_EmiL()
Dim Mailadresse As String, Betreff As String
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Mailadresse = "emil@firma.de"
Betreff = "Dienstbericht"
Sheets("Druckversion").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Tino\Vorfä _
_
lle\Pfad" & Format(Datum, "YYYYMMDD") & "_" & Sheets("Druckversion").Range("L1") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olApp.CreateItem(0)
.to = Mailadresse
.Subject = Betreff
.Attachments.Add "C:\Users\Tino\Vorfälle\Pfad" & Format(Datum, "YYYYMMDD") & "_" & _
Sheets("Druckversion").Range("L1") & ".pdf"
.Display
End With
Set olApp = Nothing
End Sub
Die E-Mail wird kreiert die Datei gespeichert und angehangen.
Das einzige was nicht gehen will (viel probiert, nichts passiert), er speichert in diesem Makro nicht mit Datum und Range "L1", sondern immer das Wort "Pfad" und Range "L1".
wie bekomme ich jetzt das Wort Pfad in das Datum geändert sodass mein Anhang "20161210_Test" heißt und nicht "Pfad_Test"?
Vielen Dank!