Tägliches Mailversenden mit Outlook

[nfsgame]

Tägliches Mailversenden mit Outlook

Moin,

ich habe eben ein Anliegen vorgetragen bekommen, in dem es darum geht, jeden Werktag eine "Erinnerungsmail" an eine Person zu schicken. Da Outlook als Mailclient verwendet wird, dachte ich mir, dass das mit einem kleinen Makro (das per Taskplaner samt Flags hinterm Outlook-Pfad gestartet wird) funktionieren würde... Kann mal bitte jemand drüber schauen ob das so funktionieren würde?

Sub mail()

Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "BETREFF" & Now
mail.To = "EMPFÄNGER"
mail.cc = "KOPIE"
mail.bcc = "BLINDKOPIE"
mail.body = "ZEILE 1" & Chr(13) & _
"ZEILE 2" & Chr(13) & _
"ZEILE 3" & Chr(13) & Chr(13)
mail.Attachments.Add "PFAD ZUM ANHANG"
mail.Display
mail.send

End Sub

(ich weiß schon wieso FISI und nicht FIAE )

Danke schonmal...

 

[nfsgame]

AW: Tägliches Mailversenden mit Outlook

Die Person möchte maximal einen Klick machen müssen... Ist ja nicht so, dass ich die Erinnerung auch schon vorgeschlagen habe .

Edit: Ach so meinst du das... Nunja, die zu erinnernde Person befindet sich extern und dort wird ein eigenes, webbasiertes Mailingsystem genutzt .