Sending 2 recipient lists in an email using VBA Code

[Nikki2306]

Hi

I am trying to put in 2 .To array lists however it's not letting me do it or I keep getting it wrong. How can I send to 2 lists of recipients?

On Error Resume Next
With OutlookMessage
'.SendUsingAccount = oAccount
.SentOnBehalfOfName = "data.controller@gwr.com"
.To = recipientsArray
.To = recipients1
.CC = "data.controller@gwr.com"
'.BCC =
.Subject = Subject
.HTMLBody = BodyText
.Attachments.Add Attachments
.Display
'.Send
End With

 

[Logit]

.
Untested :


Try this ...

[COLOR=#333333]On Error Resume Next[/COLOR]
[COLOR=#333333]With OutlookMessage[/COLOR]
[COLOR=#333333]'.SendUsingAccount = oAccount[/COLOR]
[COLOR=#333333].SentOnBehalfOfName = "data.controller@gwr.com"[/COLOR]
[COLOR=#ff0000][B].To = recipientsArray, recipients1[/B][/COLOR]
[COLOR=#333333].CC = "data.controller@gwr.com"[/COLOR]
[COLOR=#333333]'.BCC =[/COLOR]
[COLOR=#333333].Subject = Subject[/COLOR]
[COLOR=#333333].HTMLBody = BodyText[/COLOR]
[COLOR=#333333].Attachments.Add Attachments[/COLOR]
[COLOR=#333333].Display[/COLOR]
[COLOR=#333333]'.Send[/COLOR]
[COLOR=#333333]End With[/COLOR]