Mit nachstehendem Makro möchte ich eine bestimmte Datei per Mail senden.
Die Datei liegt im volgenden Verzeichnis:
R:\AUTO\VRENI\WBau-Stunden\Rapporte\Berichte\
Der Name der Datei möchte ich aus der Tabelle1 Zelle F1 entnehmen und am obrigen Pfad anhängen.
Mit nachstehendem VBA habe ich es versucht, bekomme aber immer eine Fehlermeldung in der Zeile Mail.Attachments.Add
Sub MailVersenden()
Dim outl As Object
Dim Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Stundenerfassung"
Mail.Body = "Hallo Michael" & Chr(13) & _
"anbei sende ich die die aktuellen Stunden " & _
Chr(13) & " " & Chr(13) & Chr(13) & _
"Gruss" & Chr(13) & _
"Vreni Gattlen "
Mail.To = "roman.glaus@tycoelectronics.com"
'Beispiel wenn an mehrere Empfänger Mail.To = "roman.glaus@tycoelectronics.com", "Weitere E-Mail-Adressen"
'Mail.CC = "Mach...@aol.com"
Mail.Attachments.Add "R:\AUTO\VRENI\WBau-Stunden\Rapporte\Berichte\" & Tabelle1.[F1] & ".xls"
Mail.Display
Set outl = Nothing
Set Mail = Nothing
End Sub