I pick up the function below from the web…
Function SMailMemo(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
Set mailDoc = mailDb.CreateDocument
mailDoc.Form = "Memo"
'mailDoc.SendTo = vSendTo
mailDoc.SendTo=recipients
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, "Click on the link to view the Change Request")
End If
Call mailDoc.Send(False)
SMailMemo = True
Exit Function
ErrorHandler:
Msgbox "SendMail: Error " & Str$(Err) & ": " & Error$ & " : at line number " & Erl
Resume TheEnd
TheEnd:
SMailMemo = False
End Function
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim jdoc As NotesDocument
Dim xsendto As Variant
Dim xsubject As String
Dim xbody As String
Set db=session.currentDatabase
Set uidoc = ws.CurrentDocument
Set jdoc=uidoc.Document
xsendto=jdoc.GetItemValue("ManagerName")
xsubject="test subject"
xbody="body test"
Call SMailMemo(xsendto,"","",xsubject,xbody,jdoc)
End Sub
It does not work with multiple recipients…how to do call get it to send to multiple recipients… in the xsendto variant?