Danke für die Antwort.
sDateiName = ThisWorkbook.Path
If Right$(sDateiName, 1) <> "\" Then sDateiName = sDateiName & "\"
sDateiName = sDateiName & WSh.Range("F20") & "_" & WSh.Name
Dies funktioniert damit das PDF mit dem richtigen Dateinamen beschriftet wird, nun wir aber der Anhang nicht mehr direkt aus dem Ablageordner dem Mail angehängt!?
'Anlage anfügen
If Dir$(sDateiName) <> "" Then
.Attachments.Add sDateiName 'Anlage anfügen
End If
Ich vermute weil dies über sDateiName läuft, weiss aber nicht was ich ändern müsste?
sDateiName bleibt doch bestehen?
Oder ist es weil sDateiName = ThisWorkbook.Path ist und nicht ThisWorkbook.FullName?
Freue mich auf eure Hilfe.
|