Common function for sending mail
This LotusScript agent presents a common function for sending e-mail. It can be set up to send e-mail to multiple users.
This is the common function for sending mail using LotusScript. In this function just pass Sendto, CC, BCC, Subject, Body, and Document Link as an Argument when you call the function. You can also send Mail to multiple users at the same time; just pass the variable that holds multiple values in Sendto, CC, or BCC as an Argument.
Public Function SendMailMemo (sendTo As Variant, _ cc As Variant, _ bcc As Variant, _ subject As String, _ body As String, _ linkTo As NotesDocument) As Integer On Error Goto ErrorHandler Dim s As New NotesSession Dim ws As New NotesUIWorkspace Dim mailDb As NotesDatabase Dim mailDoc As NotesDocument Dim rtItem As NotesRichTextItem Set mailDb =s.CurrentDatabase Dim vSendTo As Variant Dim vCC As Variant Dim vBCC As Variant vSendTo=Evaluate(|@explode("| & sendTo & |";";")|) vCC=Evaluate(|@explode("| & cc & |";";")|) vBCC=Evaluate(|@explode("| & bcc & |";";")|) Set mailDoc = mailDb.CreateDocument mailDoc.Form = "Memo" mailDoc.SendTo = vSendTo mailDoc.CC = vCC mailDoc.BCC = vBCC mailDoc.Subject = subject Set rtItem = mailDoc.CreateRichTextItem("Body") Call rtItem.AppendText(body) If Not(linkTo Is Nothing) Then Call rtItem.AddNewLine(2) Call rtItem.AppendDocLink(linkTo, "Double-click to open document") End If Call mailDoc.Send(False) 'Message box to Ckeck mail send to whome Msgbox "Mail Send To " & Implode(mailDoc.GetItemValue("SendTo"),";") Msgbox "Mail CC To " & Implode(mailDoc.GetItemValue("CC"),";") Msgbox "Mail BCC To " & Implode(mailDoc.GetItemValue("BCC"),";") SendMailMemo = True Exit Function ErrorHandler: Msgbox "SendMail: Error " & Str$(Err) & ": " & Error$ & " : at line number " & Erl Resume TheEnd TheEnd: SendMailMemo = False End Function
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Mukesh Patel. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our bimonthly tip contest and you could win a prize and a spot in our Hall of Fame.