Email senden, wenn Datum in nächsten 7 Tagen
13.08.2014 15:18:40
Jack
ich arbeite zur Zeit an einer Programmierung (und langsam frustriert es mich echt), die sobald ein Datum bevorsteht (frühestens aber 7 Tage vorher) automatisch Emails an die jeweiligen Verantwortlichen schickt. Allerdings kenne ich mich noch nicht so gut in der VBA-Programmierung aus (bin sozusagen ein Neuling).
Besonders die fett gedruckten Punkte sind kritisch, hoffentlich hat das mit den restlichen Aspekten funktioniert?
Bezüglich der 7 Tage im Voraus habe ich echt garkeine Idee.
Kann mir bitte jemand helfen?
Private Sub EMail_Click()
Dim heute As Date
Dim Adresse As String
Dim Betreff As String
Dim Mailtext As String
Dim Mail As Object
Dim Outlook As Object
Dim a As Long
Adresse = "Cells(a, 8) And Cells(a, 10)"
Betreff = "Wartung fällig von Gerät: + Cells(a, 1)"
Mailtext = ""
With ActiveSheet
a = Columns(2).Find(What:=Target, LookAt:=xlWhole).Row
End With
Set heute = Date
Set Target = Cells(a, 2)
Set Outlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)
heute.NumberFormat = "dd/mm/yy"
Target.NumberFormat = "dd/mm/yy"
If heute = Date Then
If Target.Value