Das es mit Path und FullName nicht das gleiche nimmt verstehe ich.
Weiss aber nicht was ich ändern muss damit es mir das mit dem Makro erstellte PDF im Ordner holt und dem E-Mail anhängt. Dies ist es, was ich mit Attachments.Add erreichen will.
Da erstellt es den gewünschten Dateinamen richtig aber das PDF wir dem Mail nicht mehr angehängt, weil es den Namen nicht mehr findet:
sDateiName = ThisWorkbook.Path
If Right$(sDateiName, 1) <> "\" Then sDateiName = sDateiName & "\"
sDateiName = sDateiName & WSh.Range("F20") & "_" & WSh.Name
Da funktioniert der Anhang aber der Dateiname ist nicht mehr korrekt:
sDateiName = ThisWorkbook.FullName
sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"
T = ThisWorkbook.Path & "\"
sDateiName = Replace(sDateiName, T, T)
Müsste ich dann hier etwas ändern?
'Anlage anfügen
If Dir$(sDateiName) <> "" Then
.Attachments.Add sDateiName
End If
Oder kann ich das PDF anders per Makro aus dem Ordner holen und dem Mail anhängen?
|