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.
