Spamalert - Feature Request: Add timecheckCreated on |
Sep 5, 2008 |
Created by |
Daniel Hasa |
Status |
Submitted |
Hi
Nice idea.
I recommend adding the following lines:
'under declaration 'Dim intCheck As Integer'
+ Dim ndtThis As NotesDateTime, ndtNow As New NotesDateTime(Cstr(Now))
+ Call ndtNow.AdjustDay(-1)
'and after the Do-Loop-Beginning 'Do Until doc Is Nothing'
+Set ndtThis = New NotesDateTime(Cstr(doc.Created))
+If ndtNow.TimeDifference(ndtThis) < 0 Then 'process mails
.....
End if
'finish the 'IF' right before the 'Set doc=coll.GetNextDocument(doc)
Taken Actions by OwnersNo actions have been taken yet.