Excel und outlook
20.02.2004 10:26:05
Jens Meier
Frage, eine email aus Excel versenden wenn sich an der Datei etwas geändert hat, müsste doch mit diesem Makro funktionieren, oder?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Test" & Now
mail.To = "xxx@yyy.de"
'mail.cc = ""
'mail.bcc = ""
mail.body = "Testmail" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & Chr(13)
mail.Display
mail.send
End Sub
Hab ich da irgendwo einen denkfehler?
Gruss
Jens