You want the code to open Outlook with the To: and/or Cc: fields completed? Here is sample code to open outlook
Code:
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = "email addresses here"
''.cc = "email addresses here"
''.bcc = "email addresses here"
.Subject = "subject here"
.HTMLBody = "text here"
''.Attachments.add ("path\filename here")
''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
''.Display
''.Send
End With
Use .Display to just open Outlook, .Send to automatically send. You will have to construct the To string by concatenating user input or looping through a recordset. Be sure to set VBA library reference to MS Outlook.