Email mit Dateianhang versenden

Sub EMailMitDateiSenden()
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Email mit Datei im Anhang " & Now
mail.To = "bert@bert-koern.de"
mail.cc = "Berti@swol.de"
mail.bcc = "Berti@swol.de"
'mit body wird nur noch im txt-Format versandt!
mail.body = "Testmail" & Chr(13) & _
"Dieses Mail wurde direkt aus Excel versandt" & Chr(13) & _
"und dabei der nachfolgende Dateianhang angehängt." & Chr(13) & Chr(13)
mail.Attachments.Add "c:\config.sys"
'Mail anzeigen
mail.Display
' mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send
End Sub