Common Mail-Send Routine For Workflow

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

Dig Deeper

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close