Email per vba nur einmal alle 10 Tage versenden

Hallo,
wenn in meiner Tabelle ein neues Produkt verfügbar ist, wird an einige Personen automatisch eine Email versendet. Das geschied durch ein Workbook_beforeclose Ereignis abhängig davon, ob die Zelle A2 befüllt ist.
Manchmal sind diese neuen Produkte aber Tagelang in der Tabelle. Ich möchte gerne, dass die Email für ein bestimmtes Produkt (Produktname ist in A2) nur einmal alle 14 Tage versandt wird.
Im Moment sieht es bei mir so aus:
If Range("A2").Value > " " Then
With objMailItem
.To = eAdress
.Subject = "Neues Produkt verfügbar."
.Display
'.Send
.body = eSubject
End With
End If
Kann jemand hier eine Funktion einbauen, die wenn sich der Inhalt von A2 nicht geändert hat auch keine Email verschickt wird?
Vielen Dank!
Beste Grüße Lara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler If Not Intersect(Range("A2"), Target) Is Nothing Then Application.EnableEvents = False Range("B2") = Date End If Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear Application.EnableEvents = True End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("A2").Value > " " And Date - Range("B2") >= 10 Then MsgBox "würde jetzt senden" With objMailItem .To = eAdress .Subject = "Neues Produkt verfügbar." .Display '.Send .body = eSubject End With Else MsgBox "Tue nichts" End If End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("A2").Value > " " _ And (Range("B2") = Date Or Date - Range("B2") >= 11) Then Range("B2") = Date - 1 ' hierdurch wird Heute nur 1x gesendet / und das Zählen der Tage _ beginnt neu MsgBox "würde jetzt senden" ' With objMailItem ' .To = eAdress ' .Subject = "Neues Produkt verfügbar." ' .Display ' '.Send ' .body = eSubject ' End With Else MsgBox "Tue nichts" End If End Sub

Hi
Soll für jede Zeile ein eigenes Datum verwaltet werden, oder reicht eins?
Bei EINEM wäre das so möglich

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lastsend As Range
Dim Bereich As Range
Set Lastsend = Range("B2") 'Kann beliebige Zelle sein
Set Bereich = Range("A2:A7")
If WorksheetFunction.CountA(Bereich) > 0 _
And (Lastsend = Date Or Date - Lastsend >= 11) Then
Lastsend = Date - 1 ' hierdurch wird Heute nur 1x gesendet / und das Zählen der Tage  _
beginnt neu
MsgBox "würde jetzt senden"
'        With objMailItem
'            .To = eAdress
'            .Subject = "Neues Produkt verfügbar."
'            .Display
'            '.Send
'            .body = eSubject
'        End With
Else
MsgBox "Tue nichts"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lastsend As Range
Dim Bereich As Range
On Error GoTo Fehler
Set Lastsend = Range("B2") 'Kann beliebige Zelle sein
Set Bereich = Range("A2:A7")
If Not Intersect(Bereich, Target) Is Nothing Then
Application.EnableEvents = False
Lastsend = Date
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Gruß UweD

Beliebteste Forumthreads (12 Monate)

Email per vba nur einmal alle 10 Tage versenden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread