Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Sub Initialize
Dim ss As New NotesSession
Dim db As NotesDatabase
'Dim view As notesview
'Dim dc As NotesDocumentCollection
'Dim doc As NotesDocument
Dim maildoc As NotesDocument
Set db=ss.CurrentDatabase
tmptotal = Evaluate(|@Elements(@DbColumn("";"";"List";1))|)
If Isempty(tmptotal) Or tmptotal(0) < 100 Or tmptotal(0)="" Then Exit Sub
'Send email:
Set maildoc = New NotesDocument( db )
maildoc.Form = "Memo"
maildoc.Subject = "Reminder: Please Review New Application"
Set Body=New NotesRichTextItem(maildoc,"Body")
message="Please Review the New Application"
Call Body.AppendText(message)
Call Body.AddNewLine(2)
tmpname = "Your Mail addess"
Call maildoc.Send( True, tmpname )
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.