Jimmy,

It's been a while since I used Lotus Notes, but I have this snipit of code that might help...

lnCounter = 0
'If there are multiple recipients (seperated with comma), an array must be
' built of these recipients.  This loop builds the array.
For lnLooper = 1 To Len(strSendTo)
  If Not Mid(strSendTo, lnLooper, 1) = "," Then
    szTempString2 = szTempString2 + Mid(strSendTo, lnLooper, 1)
    If lnLooper = Len(strSendTo) Then
      ReDim Preserve szTempStringArray(lnCounter)
      szTempStringArray(UBound(szTempStringArray)) = Trim(szTempString2)
      lnCounter = lnCounter + 1
    End If
  Else
    ReDim Preserve szTempStringArray(lnCounter)
    szTempStringArray(UBound(szTempStringArray)) = Trim(szTempString2)
    szTempString2 = ""
    lnCounter = lnCounter + 1
  End If
Next
'Add recipient list
domDocument.SendTo = szTempStringArray
lnCounter = 0