Automatischer Mailversand bei > HEUTE()
18.08.2013 13:00:49
Andre
wie der Titel sagt bin auch auf der Suche nache einer Möglichkeit automatisierte Mails aus Excel zu versenden. Ich habe mir alle vorhanden Threads zu diesem Thema duchgelesen, finde aber keine Lösung die zu meinem Problem passt.
Ich nutze Excel und Outlook 2010 und bin was VB angeht Anfänger.
Ich möchte erreichen das Excel automatisch eine Mail versendet wenn das Datum einer Zelle das jeweils heutige Datum überschreitet. Die passenden Mailadresse ist in einer Spalte hinterlegt. Die Tabelle umfasst ca. 200 Zeilen, jede Zeile ist ein Datensatz und beinhaltet jeweils einen anderen Adressat.
bislang habe ich an folgendem Code rumgebastelt, allerdings bezieht dieser sich immer nur auf eine bestimmte Zeile und nicht auf alle Zeilen dessen Daum überschritten ist.
Sub test ()
If Range ("D4") Sub mailen()
Dim oApp As Object
Set oApp = CreateObject ("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
.To = Range("F4")
.Subject = "Betrefftext"
.Body = "Der Prozess ist überfällig"
.Display
.Send
End With
End Sub
Hier gefallen mir bestimmte Dinge nicht, zum einen bedingt diesen das einfügen einer Schaltfläche zum ausführen, dies würde ich vemeiden wollen, zum anderen lässt es sich nicht auf die gesamte tabelle anwenden. D.H es sollten gleichzeitig mehrer Mails versendet werden wenn in meheren Datensätzen das Datum überschritten ist.
Für Hilfe wäre ich sehr Dankbar!
Vielen Dank für Hilfe!!