Email CC to various people

[Mannyf50]

Hey guys, im trying to get an email sent to various people, here is the code im currently using! please help ive been going crazy trying to find a way to send it to various people instead of just one

Private Sub Command0_Click()
'Create some object variables for the various Notes objects
Dim NotesDB As Object
Dim NotesDoc As Object
Dim NotesRTF As Object
Dim NotesSession As Object
Dim txtDate
Dim strTo, strNCMR


'Get NCM#
'strNCMR = Me.txtRecID
'Define who to send e-mail to
strTo = "Email address" 'strQM

'Use Create object to instantiate a Notes session object
Set NotesSession = CreateObject("Notes.Notessession")

'Instantiate NotesDB object from method off NotesSession
Set NotesDB = NotesSession.getdatabase("", "")
NotesDB.openmail
'Create new Notes document
Set NotesDoc = NotesDB.createdocument
'Send to strTo and set Subject of e-mail
Call NotesDoc.replaceitemvalue("Sendto", strTo)
Call NotesDoc.replaceitemvalue("Subject", "NCMR # " & strNCMR)
'Creating the Body of the E-Mail
Set NotesRTF = NotesDoc.createrichtextitem("body")
Call NotesRTF.appendtext("NCMR # " & strNCMR & " has been issued and needs your attention.")
'Save e-mail
NotesDoc.SAVEMESSAGEONSEND = True
'Send the e-mail
Call NotesDoc.Send(False)
'Destroy the Notes objects
Set NotesSession = Nothing
MsgBox "Email sent.", vbOKOnly + vbInformation, "Email "
End Sub

[cori25]

What email application are you sending from? outlook, groupwise??

[Mannyf50]

What email application are you sending from? outlook, groupwise??

sending through lotus notes