Does anyone know of a way to use @mailsend when saving a form, but delay when the mail is actually sent?OR
Can you send an email when saving a form that can become a Calendar Entry or To Do?
Subject: RE: @MailSend Delay
maybe this will help…send mail in the future. Maybe it will give you some other ideas how to do what you’re wanting.
Send Mail in the Future…
- put this is a button in the form call it something like “future send”
FIELD tmpAction := “SaveAsDraft”;
@PostedCommand([FileSave]);
@PostedCommand([FileCloseWindow])
-
create a layout region with an editable time field
-
in the agent put the following script
in hte initialize event
run “on schedule daily”
"on all documents in database"
did not make it shared so it will be personal for me
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim text As String
Dim names As String
Dim view As notesview
Dim todayx As Variant
Dim rtitem As notesrichtextitem
Dim object As notesembeddedobject
todayx = Today
Set db = session.CurrentDatabase
'Set collection = db.unprocesseddocuments
Set view = db.getview("($drafts)")
Set doc = view.GetfirstDocument
While Not(doc Is Nothing)
Set item = doc.getfirstitem("SendTo")
names = item.text
Set item = doc.getfirstitem("xxxxxdate")
text = item.text
If Cdat(text) = todayx Then
Set doc2 = New NotesDocument(db)
doc2.Form = "When Memo"
doc2.SendTo = names
doc2.subject = doc.subject
doc2.xxxxxdate = doc.xxxxxdate
Set rtitem = New notesrichtextitem( doc2, "Body")
Set object = rtitem.embedobject(embed_attachment,"","c:\plane.txt") 'I think I stuck this in for a test may not need it
Call doc2.Send( True )
End If
Set doc = view.GetnextDocument(doc)
Wend
may need to make some personal modifications