Email mit excel
17.02.2004 11:05:27
Herbert Hens
Mit diesem Makro wird jedesmal eine email rausgeschickt, wenn die Datei geschlossen wird. Ich möchte aber, dass nur eine mail versendet wird, wenn an dieser Datei wirklich etwas geändert wurde.
Vielen Dank schonmal für eure Hilfe
Sub auto_close()
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Maschine x Wartungs- /Reparaturarbeiten" & Now
mail.To = "xxx@xxx.de"
'mail.cc = ""
'mail.bcc = ""
mail.body = "Diese Mail wurde direkt aus Excel versandt" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & Chr(13)
mail.Display
mail.send
End Sub