Lotusscript: Mail Notification Class

This Post Has 14 Comments

1. 

   Theo Heselmans October 20, 2013 Reply

   Late reply to this blogpost, but found it useful.
   One thing to note: If there is no field ‘PostedDate’, it does NOT show up in traveler-mails (e.g. iPad).
   It does in the regular Notes mail, but not via Traveler. Weird, but easy solution.
   So in your case, add ‘maildoc.PostedDate=now’ in the ‘Send’ section.

   1. 

      Karl-Henry Martinsson October 22, 2013 Reply

      Good point! Code has been updated, thanks Theo!

2. 

   Debojyoti Ray January 5, 2014 Reply

   Hi Karl,

   Thanks a lot for this class I am using this class for sending mail from script. I am new to Lotus Script and trying to learn this part. I have a scenario where I have to send files to users from 2 different mail id’s. If there is a failure in sending mail then I need to create an agent which will run to read this failure mails and call an different service and send the details. Can you please help me regarding this issue.

   One more query can I send Html mail through this class also?

   1. 

      Karl-Henry Martinsson January 5, 2014 Reply

      Define “failure”. Are you talking about a non-delivery message, like a 4xx or 5xx error?

      Those messages will be sent to the mailbox that you set as sender (Principal) in your code. You simply write a Lotusscript agent to read the mail box, locate those emails, parse the content and create/send your mail notifications. You could also create agents in the two mailboxes set to run “before mail is received”.

      The class does currently not support HTML (MIME) email, but you can add that if you like. if you do, please consider sharing your code back with the community, as a thanks for the code you been getting for free.

      1. 

         Debojyoti Ray January 6, 2014 Reply

         Hi Karl,

         By Failure I meant delivery failure of any sort like be it user not present or anything. Now if I set a different Reply to will it be sent to that mail box or the sender mail box? One more thing is that in my scenario I have 2 domino server. One where the service will run to send mail and another domino is the actual mail server. So if I place this agent in the first domino server will I be able to read the mail box?

         I tried to enhance this class to support HTML email but for that when I add a simple private field even I am getting this Error: ” Type mismatch on external name: NOTESMAIL”. I am pretty new and don’t know how to get the detail log.

         1. 

            Karl-Henry Martinsson January 7, 2014 Reply

            Mail is mail, it all works the same, no matter what software you use to send it. The receiving SMTP server will reject the email, either at the initial connection or after processing the email, and you will get a non-delivery message back, to whatever address you set as sender, or if you set “return-path” it will be sent there instead.
            http://en.wikipedia.org/wiki/Bounce_message

            Mail boxes in Domino is like any other database, you can read one on server B even if your code is on server A. You may have to set up the servers as trusted if they are not on the same Named Notes Network.

            The error you get is because the signature of the class has changed, you need to perform a “Recompile all Lotusscript” to rebuild the class signature and update all calling code.

            But to create HTML mail, you should take a look at the NotesMIMEEntity class…

            1. 

               Debojyoti Ray January 7, 2014

               Thanks Karl,

               I have made this class to send HTML mail. Please re-factor it if necessary.

               Public maildoc As NotesDocument
               Public textBody As String
               Public htmlBody As String
               Private p_replyto As String
               Private p_subject As String
               Private p_sendto List As String
               Private p_copyto List As String
               Private p_blindcopyto List As String
               Private p_principal As String
               Public NoReply As Integer
               ‘Public IsHTML As Integer
               Public mailbox As NotesDatabase
               Public bodyMIME As NotesMIMEEntity
               Public header As NotesMIMEHeader
               Private session As NotesSession

               Public Sub New()
               Set session = New NotesSession
               Dim mailservername As String
               session.Convertmime = False
               mailservername = session.Currentdatabase.Server
               ‘ Using mail.box directly is unsupported, but is the
               ‘ only way to make the mail look like it is actually
               ‘ sent from another address, in our case the principal.
               Set mailbox = New NotesDatabase(mailservername,”mail.box”)
               If mailbox.Isopen = False Then
               Print “mail.box on ” & mailservername & ” could not be opened”
               Exit Sub
               End If
               Set me.maildoc = New NotesDocument(mailbox)
               Call me.maildoc.ReplaceItemValue(“Form”,”Memo”)
               Set me.bodyMIME = me.maildoc.Createmimeentity

               me.p_subject = “”
               me.p_principal = “”
               me.p_replyto = “”
               ‘ Empty lists for addresses
               Erase me.p_sendto
               Erase me.p_copyto
               Erase me.p_blindcopyto
               me.NoReply = False ‘ Default is to add a disclaimer to the end
               End Sub

               Public Property Set Subject As String
               me.p_subject = FullTrim(Subject)
               End Property

               Public Property Get Subject As String
               Subject = me.p_subject
               End Property

               Public Property Set Principal As String
               me.p_principal = FullTrim(Principal)
               End Property

               Public Property Get Principal As String
               Principal = me.p_principal
               End Property

               ‘*** Recipient address (mailto) functions ***

               Public Property Set MailTo As String
               me.p_sendto(FullTrim(MailTo)) = FullTrim(MailTo)
               End Property

               Public Property Get MailTo As String ‘ Get the first address only
               ForAll mto In me.p_sendto
               MailTo = mto
               Exit ForAll
               End ForAll
               End Property

               Public Property Set SendTo As String ‘ Alias for MailTo
               MailTo = SendTo
               End Property

               Public Property Get SendTo As String ‘ Alias for MailTo
               SendTo = MailTo
               End Property

               Public Sub AddMailTo(address As String) ‘ Additional address
               me.p_sendto(address) = address
               End Sub

               Public Sub RemoveMailTo(address As String) ‘ Remove address
               Erase me.p_sendto(address)
               End Sub

               ‘ *** Functions for CC address ***

               Public Property Set MailCC As String
               me.p_copyto(FullTrim(MailCC)) = FullTrim(MailCC)
               End Property

               Public Property Get MailCC As String ‘ Get the first address only
               ForAll mcc In me.p_copyto
               MailCC = mcc
               Exit ForAll
               End ForAll
               End Property

               Public Sub AddMailCC(address As String)
               me.p_copyto(address) = address
               End Sub

               Public Sub RemoveMailCC(address As String)
               Erase me.p_copyto(address)
               End Sub

               ‘ *** Functions for BCC address ***

               Public Sub AddMailBCC(address As String)
               me.p_blindcopyto(address) = address
               End Sub

               Public Property Set MailBCC As String
               me.p_blindcopyto(FullTrim(MailBCC)) = FullTrim(MailBCC)
               End Property

               Public Property Get MailBCC As String ‘ Get the first address only
               ForAll bcc In me.p_blindcopyto
               MailBCC = bcc
               Exit ForAll
               End ForAll
               End Property

               Public Sub RemoveMailBCC(address As String)
               Erase me.p_blindcopyto(address)
               End Sub

               ‘ *** Functions for Reply To address ***
               Public Property Set MailReplyTo As String
               me.p_replyto = FullTrim(MailReplyTo)
               End Property

               Public Property Get MailReplyTo As String
               MailReplyTo = me.p_replyto
               End Property
               ‘ *** Functions for email body ***

               Public Sub AppendText(bodytext As String, contentType As String)
               Dim contentStream As NotesStream
               Set contentStream = session.Createstream()
               Dim bodyChild As NotesMIMEEntity
               Set bodyChild = me.bodyMIME.Createchildentity()
               Call contentStream.Writetext(bodytext)
               contentStream.Position = 0
               Call bodyChild.setcontentFromText(contentStream,contentType,Enc_none)
               ‘Call me.body.AppendText(bodytext)
               End Sub

               Public Sub AttachFile(filename As String, filepath As String)
               Dim bodyChild As NotesMIMEEntity
               Set bodyChild = me.bodyMIME.CreateChildEntity()
               Set header = bodyChild.createHeader(“Content-Type”)
               Call header.setHeaderVal(“multipart/mixed”)
               Set header = bodyChild.createHeader(“Content-Disposition”)
               Call header.SetHeaderVal({attachment; filename=”} & fileName )
               Set header = bodyChild.createHeader(“Content-ID”)
               ‘Call header.setHeaderVal(| fileName |)
               ’01-2005.doc should be replaced with the file name of the file you need to attach
               Dim stream As NotesStream
               Set stream = session.CreateStream()

               If Not stream.Open(filepath, “binary”) Then Print “Open failed”:
               If stream.Bytes = 0 Then Print “File has no content”:

               Call bodyChild.SetContentFromBytes (stream, “application/pdf”, ENC_IDENTITY_BINARY)
               End Sub

               ‘ *** Send the mail
               Public Sub Send()
               Dim session As New NotesSession
               Dim richStyle As NotesRichTextStyle
               If me.subject”” Then
               maildoc.Subject = me.subject
               End If
               If ListItemCount(me.p_sendto)>0 Then
               maildoc.SendTo = ListToArray(me.p_sendto)
               maildoc.Recipients = ListToArray(me.p_sendto)
               End If
               If ListItemCount(me.p_copyto)>0 Then
               maildoc.CopyTo = ListToArray(me.p_copyto)
               End If
               If ListItemCount(me.p_blindcopyto)>0 Then
               maildoc.BlindCopyTo = ListToArray(me.p_blindcopyto)
               End If
               If me.p_principal”” Then
               Call maildoc.ReplaceItemValue(“Principal”, me.p_principal)
               ‘ If principal is set, we want to fix so mail looks like
               ‘ it is coming from that address, need to set these fields
               Call maildoc.ReplaceItemValue(“From”, me.p_principal)
               Call maildoc.ReplaceItemValue(“Sender”, me.p_principal)
               Call maildoc.ReplaceItemValue(“ReplyTo”, me.p_replyto)
               Call maildoc.ReplaceItemValue(“SMTPOriginator”, me.p_principal)
               End If
               ‘ If NoReply is set (default), append red warning…
               ‘If NoReply = True Then
               ‘Set richStyle = session.CreateRichTextStyle
               ‘richStyle.NotesFont = 4
               ‘richStyle.NotesColor = 2
               ‘richStyle.Bold = True
               ‘Call me.body.AppendStyle(richStyle)
               ‘Call me.body.AddNewLine(1)
               ‘Call me.body.AppendText(“*** DO NOT REPLY TO THE SENDER OF THIS MESSAGE! ***”)
               ‘Call me.body.AddNewLine(1)
               ‘Call me.body.AppendText(“*** IT IS AN AUTOMATED SYSTEM MAIL ***”)
               ‘End If
               Call maildoc.ReplaceItemValue(“PostedDate”,Now())
               If me.p_principal”” Then
               Call maildoc.Save(True,False) ‘ Save in mail.box
               Else
               Call maildoc.Send(True) ‘ Send mail normally
               End If
               End Sub

               ‘ *** Send the mail
               Public Sub SendMIME(bodyText As NotesStream, fileName As String)
               On Error GoTo errHandler
               Dim session As New NotesSession
               Dim bodyChild As NotesMIMEEntity
               Dim stream As NotesStream
               session.ConvertMIME = False
               If me.subject”” Then
               maildoc.Subject = me.subject
               End If
               If ListItemCount(me.p_sendto)>0 Then
               maildoc.SendTo = ListToArray(me.p_sendto)
               maildoc.Recipients = ListToArray(me.p_sendto)
               End If
               If ListItemCount(me.p_copyto)>0 Then
               maildoc.CopyTo = ListToArray(me.p_copyto)
               End If
               If ListItemCount(me.p_blindcopyto)>0 Then
               maildoc.BlindCopyTo = ListToArray(me.p_blindcopyto)
               End If
               If me.p_principal”” Then
               Call maildoc.ReplaceItemValue(“Principal”, me.p_principal)
               ‘ If principal is set, we want to fix so mail looks like
               ‘ it is coming from that address, need to set these fields
               Call maildoc.ReplaceItemValue(“From”, me.p_principal)
               Call maildoc.ReplaceItemValue(“Sender”, me.p_principal)
               Call maildoc.ReplaceItemValue(“ReplyTo”, me.p_principal)
               Call maildoc.ReplaceItemValue(“SMTPOriginator”, me.p_principal)
               End If

               Set bodyChild = me.bodyMIME.CreateChildEntity()
               Call bodyChild.SetContentFromText (bodyText, “text/HTML;charset=UTF-8”, ENC_NONE)

               Set bodyChild = me.bodyMIME.CreateChildEntity()
               Set header = bodyChild.createHeader(“Content-Type”)
               Call header.setHeaderVal(“multipart/mixed”)
               Set header = bodyChild.createHeader(“Content-Disposition”)
               Call header.SetHeaderVal({attachment; filename=”} & fileName )
               ’01- 2005.doc should be replaced with the file name of the file you need to attach
               Set header = bodyChild.createHeader(“Content-ID”)
               ‘Call header.setHeaderVal(| fileName |)
               ’01-2005.doc should be replaced with the file name of the file you need to attach
               Set stream = session.CreateStream()

               If Not stream.Open(fileName, “binary”) Then Print “Open failed”:
               If stream.Bytes = 0 Then Print “File has no content”:

               Call bodyChild.SetContentFromBytes (stream, “application/pdf”, ENC_IDENTITY_BINARY)
               ‘ If NoReply is set (default), append red warning…
               ‘If NoReply = True Then
               ‘Set richStyle = session.CreateRichTextStyle
               ‘richStyle.NotesFont = 4
               ‘richStyle.NotesColor = 2
               ‘richStyle.Bold = True
               ‘Call me.body.AppendStyle(richStyle)
               ‘Call me.body.AddNewLine(1)
               ‘Call me.body.AppendText(“*** DO NOT REPLY TO THE SENDER OF THIS MESSAGE! ***”)
               ‘Call me.body.AddNewLine(1)
               ‘Call me.body.AppendText(“*** IT IS AN AUTOMATED SYSTEM MAIL ***”)
               ‘End If
               Call maildoc.ReplaceItemValue(“PostedDate”,Now())
               If me.p_principal”” Then
               Call maildoc.Save(True,False) ‘ Save in mail.box
               Else
               Call maildoc.Send(True) ‘ Send mail normally
               End If
               session.ConvertMIME = True
               errHandler:
               Error Err, Error & |
               | & LSI_Info(2) & |/| & Erl

               End Sub

               ‘ *** Private functions called from within the class ***

               ‘ *** Convert list to array
               Private Function ListToArray(textlist As Variant) As Variant
               Dim i As Integer
               Dim temparray() As String
               ReDim temparray(0) As String
               ForAll t In textlist
               temparray(UBound(temparray)) = t
               ReDim Preserve temparray(UBound(temparray)+1) As String
               End ForAll
               ListToArray = FullTrim(temparray)
               End Function

               ‘ *** Count items in a list
               Private Function ListItemCount(textlist As Variant) As Integer
               Dim cnt As Integer
               cnt = 0
               ForAll t In textlist
               cnt = cnt + 1
               End ForAll
               ListItemCount = cnt
               End Function

               End Class

3. 

   Debojyoti Ray January 7, 2014 Reply

   Sorry for the first code snippet. This is the updated code.

   %REM
   Library NotesMail
   Created Jan 3, 2014 by domino/nrifintech
   Description: Comments for Library
   %END REM
   Option Public
   Option Declare

   Class NotesMail
   Public maildoc As NotesDocument
   Private p_replyto As String
   Private p_subject As String
   Private p_sendto List As String
   Private p_copyto List As String
   Private p_blindcopyto List As String
   Private p_principal As String
   Public NoReply As Integer
   Public mailbox As NotesDatabase
   Public bodyMIME As NotesMIMEEntity
   Public header As NotesMIMEHeader
   Private session As NotesSession

   Public Sub New()
   Set session = New NotesSession
   Dim mailservername As String
   session.Convertmime = False
   mailservername = session.Currentdatabase.Server
   ‘ Using mail.box directly is unsupported, but is the
   ‘ only way to make the mail look like it is actually
   ‘ sent from another address, in our case the principal.
   Set mailbox = New NotesDatabase(mailservername,”mail.box”)
   If mailbox.Isopen = False Then
   Print “mail.box on ” & mailservername & ” could not be opened”
   Exit Sub
   End If
   Set me.maildoc = New NotesDocument(mailbox)
   Call me.maildoc.ReplaceItemValue(“Form”,”Memo”)
   Set me.bodyMIME = me.maildoc.Createmimeentity

   me.p_subject = “”
   me.p_principal = “”
   me.p_replyto = “”
   ‘ Empty lists for addresses
   Erase me.p_sendto
   Erase me.p_copyto
   Erase me.p_blindcopyto
   me.NoReply = False ‘ Default is to add a disclaimer to the end
   End Sub

   Public Property Set Subject As String
   me.p_subject = FullTrim(Subject)
   End Property

   Public Property Get Subject As String
   Subject = me.p_subject
   End Property

   Public Property Set Principal As String
   me.p_principal = FullTrim(Principal)
   End Property

   Public Property Get Principal As String
   Principal = me.p_principal
   End Property

   ‘*** Recipient address (mailto) functions ***

   Public Property Set MailTo As String
   me.p_sendto(FullTrim(MailTo)) = FullTrim(MailTo)
   End Property

   Public Property Get MailTo As String ‘ Get the first address only
   ForAll mto In me.p_sendto
   MailTo = mto
   Exit ForAll
   End ForAll
   End Property

   Public Property Set SendTo As String ‘ Alias for MailTo
   MailTo = SendTo
   End Property

   Public Property Get SendTo As String ‘ Alias for MailTo
   SendTo = MailTo
   End Property

   Public Sub AddMailTo(address As String) ‘ Additional address
   me.p_sendto(address) = address
   End Sub

   Public Sub RemoveMailTo(address As String) ‘ Remove address
   Erase me.p_sendto(address)
   End Sub

   ‘ *** Functions for CC address ***

   Public Property Set MailCC As String
   me.p_copyto(FullTrim(MailCC)) = FullTrim(MailCC)
   End Property

   Public Property Get MailCC As String ‘ Get the first address only
   ForAll mcc In me.p_copyto
   MailCC = mcc
   Exit ForAll
   End ForAll
   End Property

   Public Sub AddMailCC(address As String)
   me.p_copyto(address) = address
   End Sub

   Public Sub RemoveMailCC(address As String)
   Erase me.p_copyto(address)
   End Sub

   ‘ *** Functions for BCC address ***

   Public Sub AddMailBCC(address As String)
   me.p_blindcopyto(address) = address
   End Sub

   Public Property Set MailBCC As String
   me.p_blindcopyto(FullTrim(MailBCC)) = FullTrim(MailBCC)
   End Property

   Public Property Get MailBCC As String ‘ Get the first address only
   ForAll bcc In me.p_blindcopyto
   MailBCC = bcc
   Exit ForAll
   End ForAll
   End Property

   Public Sub RemoveMailBCC(address As String)
   Erase me.p_blindcopyto(address)
   End Sub

   ‘ *** Functions for Reply To address ***
   Public Property Set MailReplyTo As String
   me.p_replyto = FullTrim(MailReplyTo)
   End Property

   Public Property Get MailReplyTo As String
   MailReplyTo = me.p_replyto
   End Property
   ‘ *** Functions for email body ***

   Public Sub AppendText(bodytext As String, contentType As String)
   Dim contentStream As NotesStream
   Set contentStream = session.Createstream()
   Dim bodyChild As NotesMIMEEntity
   Set bodyChild = me.bodyMIME.Createchildentity()
   Call contentStream.Writetext(bodytext)
   contentStream.Position = 0
   Call bodyChild.setcontentFromText(contentStream,contentType,Enc_none)
   ‘Call me.body.AppendText(bodytext)
   End Sub

   Public Sub AttachFile(filename As String, filepath As String)
   Dim bodyChild As NotesMIMEEntity
   Set bodyChild = me.bodyMIME.CreateChildEntity()
   Set header = bodyChild.createHeader(“Content-Type”)
   Call header.setHeaderVal(“multipart/mixed”)
   Set header = bodyChild.createHeader(“Content-Disposition”)
   Call header.SetHeaderVal({attachment; filename=”} & fileName )
   Set header = bodyChild.createHeader(“Content-ID”)
   ‘Call header.setHeaderVal(| fileName |)
   ’01-2005.doc should be replaced with the file name of the file you need to attach
   Dim stream As NotesStream
   Set stream = session.CreateStream()

   If Not stream.Open(filepath, “binary”) Then Print “Open failed”:
   If stream.Bytes = 0 Then Print “File has no content”:

   Call bodyChild.SetContentFromBytes (stream, “application/pdf”, ENC_IDENTITY_BINARY)
   End Sub

   ‘ *** Send the mail
   Public Sub Send()
   Dim session As New NotesSession
   Dim richStyle As NotesRichTextStyle
   If me.subject”” Then
   maildoc.Subject = me.subject
   End If
   If ListItemCount(me.p_sendto)>0 Then
   maildoc.SendTo = ListToArray(me.p_sendto)
   maildoc.Recipients = ListToArray(me.p_sendto)
   End If
   If ListItemCount(me.p_copyto)>0 Then
   maildoc.CopyTo = ListToArray(me.p_copyto)
   End If
   If ListItemCount(me.p_blindcopyto)>0 Then
   maildoc.BlindCopyTo = ListToArray(me.p_blindcopyto)
   End If
   If me.p_principal”” Then
   Call maildoc.ReplaceItemValue(“Principal”, me.p_principal)
   ‘ If principal is set, we want to fix so mail looks like
   ‘ it is coming from that address, need to set these fields
   Call maildoc.ReplaceItemValue(“From”, me.p_principal)
   Call maildoc.ReplaceItemValue(“Sender”, me.p_principal)
   Call maildoc.ReplaceItemValue(“ReplyTo”, me.p_replyto)
   Call maildoc.ReplaceItemValue(“SMTPOriginator”, me.p_principal)
   End If
   ‘ If NoReply is set (default), append red warning…
   ‘If NoReply = True Then
   ‘Set richStyle = session.CreateRichTextStyle
   ‘richStyle.NotesFont = 4
   ‘richStyle.NotesColor = 2
   ‘richStyle.Bold = True
   ‘Call me.body.AppendStyle(richStyle)
   ‘Call me.body.AddNewLine(1)
   ‘Call me.body.AppendText(“*** DO NOT REPLY TO THE SENDER OF THIS MESSAGE! ***”)
   ‘Call me.body.AddNewLine(1)
   ‘Call me.body.AppendText(“*** IT IS AN AUTOMATED SYSTEM MAIL ***”)
   ‘End If
   Call maildoc.ReplaceItemValue(“PostedDate”,Now())
   If me.p_principal”” Then
   Call maildoc.Save(True,False) ‘ Save in mail.box
   Else
   Call maildoc.Send(True) ‘ Send mail normally
   End If
   End Sub

   ‘ *** Private functions called from within the class ***

   ‘ *** Convert list to array
   Private Function ListToArray(textlist As Variant) As Variant
   Dim i As Integer
   Dim temparray() As String
   ReDim temparray(0) As String
   ForAll t In textlist
   temparray(UBound(temparray)) = t
   ReDim Preserve temparray(UBound(temparray)+1) As String
   End ForAll
   ListToArray = FullTrim(temparray)
   End Function

   ‘ *** Count items in a list
   Private Function ListItemCount(textlist As Variant) As Integer
   Dim cnt As Integer
   cnt = 0
   ForAll t In textlist
   cnt = cnt + 1
   End ForAll
   ListItemCount = cnt
   End Function

   End Class

4. 

   Debojyoti Ray January 15, 2014 Reply

   Hi Karl,

   First of all thanks for your help and the Notesmail class which helped me in sending mail from domino.
   I need some help of yours in understanding and development of an agent. I am describing to you the exact requirement and my understandings. Please verify this.

   Requirement:

   Mails are to be send from 2-3 separate id’s to clients. This senders mail ids will be registered mail id’s in domino mail server.
   If any mail is bounced back then we need to read the mail and parse it to fetch the reason for this failure.

   My Understandings:

   All the details will be supplied to the domino server web service from east2 application. As well as the “From” field of the mail.
   Then the web service will send mail to the recipients in To, CC and BCC field based on the supplied values and the FROM will be set to the value as supplied.
   If there is any failure in email while sending, the failure mail will return to the FROM mail id’s mail box.
   The Agent that is running will read this mail from this mail box and send back the details to the web service in the application side.

   Process??

   I have created a database and in database I have used the Notesmail class to send mail.
   I am setting the From field explicitly. Now I need to catch the failure mails through an agent and parse it’s subject line and cause of error.
   So as it is in the same database will I get the failure mail’s from here by loading the database or do I need to load some other database.

   After that can I use this
   searchFormula$ = “”
   searchFormula$ = searchFormula$ + “Form = “”NonDelivery Report”” & ”
   searchFormula$ = searchFormula$ + “@Date(DeliveredDate)=@Today; ”

   Set dc1 = db.Search( searchFormula$, Nothing, 0) [dc1 = documentCollection]

   Now I need to get the subject and the error reason. Can you provide me any guide on this?

5. 

   sdasdasd April 27, 2015 Reply

   How to run the above code in my PC??

   1. 

      Karl-Henry Martinsson April 30, 2015 Reply

      Open Domino Designer, open the application/database where you want to execute the code, open/create an agent, action button or other element that you want to send the email and put the code there.
      I suggest putting the class in a script library (so you can reuse it in different places in that application/database) and reference that script library in yoru code.

      And please use a valid name and email address when commenting here.

6. Pingback: TexasSwede | Updated MailNotification class – Now with HTML email support and web links

7. 

   sabari March 28, 2018 Reply

   Hi
   can i get the same for javascript..

   Thanks in advance.

   SAM

   1. 

      Karl-Henry Martinsson April 2, 2018 Reply

      No.

      Javascript can not access the Domino backend classes. If you want to get this functionality in Javascript, you need to write a REST API (which you can do using my code above) and then perform Ajax calls to it from your Javascript.

      Feel free to contact me at karl-henry@demandbettersolutions.com if you need help with this.