Save time coding for your workflow applications by creating a script library
for these TWO (2) commonly used mail-send routine.
This is a sample code-segment is for an action button's click event.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db as NotesDatabase
Set db = session.CurrentDatabase
Dim strArraySendTo (0 To 2) As String
strArraySendTo(0) = "Test User01"
strArraySendTo(1) = "Test User02"
strArraySendTo(2) = "Test User03"
If SendMail (db, strArraySendTo, "", _
"Test Mail - Please ignore.", _
"Testing mailing.") = False Then
Msgbox "Error sending mail"
End If
End Sub
Function SendMail (db As NotesDatabase, vSendTo As Variant, vCopyTo As Variant,
strSubject As String, strBody As String) As Integer
%REM
This function sends mail to the specified receipents.
%END REM
SendMail = False
Dim doc_mail As New NotesDocument (db)
If doc_mail Is Nothing Then Exit Function
doc_mail.Form = "Memo"
doc_mail.Subject = strSubject
doc_mail.SendTo = vSendTo
doc_mail.CopyTo = vCopyTo
Dim rtxtitem As New NotesRichTextItem (doc_mail,"Body")
If rtxtitem Is Nothing Then Exit Function
Call rtxtitem.AppendText(strBody)
doc_mail.Send False
SendMail = True
End Function
Function SendMailWithDocLink (db As NotesDatabase, vSendTo As Variant, vCopyTo
As Variant, strSubject As String, _
strBody As String, docLink As NotesDocument) As Integer
%REM
This function sends mail to the specified receipents with a document
link.
%END REM
SendMailDocLink = False
Dim doc_mail As New NotesDocument (db)
If doc_mail Is Nothing Then Exit Function
doc_mail.Form = "Memo"
doc_mail.Subject = strSubject
doc_mail.SendTo = vSendTo
doc_mail.CopyTo = vCopyTo
Dim rtxtitem As New NotesRichTextItem (doc_mail,"Body")
If rtxtitem Is Nothing Then Exit Function
Call rtxtitem.AppendText(strBody)
Call rtxtitem.AppendDocLink (docLink, "")
doc_mail.Send False
SendMailWithDocLink = True
End Function
This was first published in November 2000