SendObject to Lotus Notes failing

[Roy Tong]

I'm using SendObject to generate an email to a list that I have built
up in a string variable from email addresses held in a text field
within a table. The string of email addresses looks OK. I know this
because I've msgboxed it. However while it works OK for the first two
email addresses when I try three or more although it seems to work OK
within Access, the list is corrupt in the generated LN email.

My experience with Access VB is only rudimentary but I think the
following code is OK:

Private Sub SendMail_Click()
On Error GoTo ErrorSendMail_Click
Dim wsp As Workspace
Dim rSetMail As Recordset
Dim qdf As QueryDef
Dim MailList As String
Set wsp = DBEngine.Workspaces(0) ' Allocate workspace for
database
Set qdf = CurrentDb.QueryDefs("qryContactEmail")
For Each prm In qdf.Parameters 'ensure parameters are
evaluated correctly so query name is recognised
prm.Value = Eval(prm.Name)
Next prm

Set rSetMail = qdf.OpenRecordset(dbOpenDynaset)
If rSetMail.RecordCount = 0 Then GoTo NobodytoEmail
MailList = ""
rSetMail.MoveFirst
Do While Not rSetMail.EOF
MailList = MailList & rSetMail![ContactName] & ";"
MsgBox MailList
rSetMail.MoveNext ' move to next record
Loop

DoCmd.SendObject , , acFormatRTF, MailList
Exit Sub

NobodytoEmail:
MsgBox "No contacts have been selected"

ExitSendMail_Click:
Exit Sub

ErrorSendMail_Click:
MsgBox "Error " & Err.Number & ":" & Err.Description
Resume ExitSendMail_Click
End Sub

Anyway I reckon this is a failure within Lotus Notes. Does anyone know
of such a problem or have I just done something wrong in my code?

Thanks,

Roy