Send Delay Mail

Do you want to send an e-mail, when you can't connect with your system? Here is an agent that can help you.

Code:
Add a fist ordered column in Draft view with:
@If(@IsAvailable(DDate); DDate; "")

An view action button with:
IELD DDate:=DDate;
DelayDate:=@Prompt([OKCANCELEDIT]; "Specify a date."; "When you want send this mail? "; @Text(@Date(@Now)));
@SetField("DDate";@TextToTime(DelayDate))

An daily agent with:
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument

  Set db = session.CurrentDatabase
  Set view = db.GetView("($Drafts)")
  Set dc = view.GetAllDocumentsByKey(Today(), False)
  Set doc = view.GetFirstDocument()

  If Not dc Is Nothing Then
    For x = 1 To dc.Count
        If Cdbl(doc.DDate(0)) = Cdbl(Today()) Then
        doc.SaveMessageOnSend = True
          Call doc.Send(True)
    End If
    Set doc = dc.GetNthDocument(x)
    Next
    End If

End Sub

This was last published in December 2000

Dig Deeper on Domino Resources

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close