Clever-Excel-Forum

Hallo zusammen,

ich hoffe auf Hilfe, ich habe einen Button erstellt, der sich in mein Mail Programm verlinkt ( outlook) ich würde die Datei gerne anhängen, von mir aus als Excel, lieber als PDF versenden. 

Folgenden Makro benutze ich, dieser ist allerdings fehlerhaft, bitte um Hilfe. DANKE

Sub EmailManuellAbsenden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
  .To = "andreas.nawrath@wfbm-lev.de"
  .Subject = "Betreff"
  .Body = "Ihre Nachricht."
  .Attachments.Add "c:/Mappe1.xlsx"
  .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

End Sub

Hallo Andy,

es muss richtig lauten:

.Attachments.Add "c:\Mappe1.xlsx"

Gruß Uwe