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 on Domino Resources - Part 3

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