E-mail Module problem

[ISBB]

I have this e-mail module written that i found by searching around here.. but i am trying to add a second .To recipient however it is not passing it off to the e-mail client. I have tried adding .CC and .BCC to the code as well and neither work. Am i missing something simple?

Sub RTFBodyX()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Dim RTFBody, strTo
Dim MyItem As Outlook.MailItem
Dim MyApp As New Outlook.Application
DoCmd.OutputTo acOutputQuery, "dncsend", acFormatHTML, "dncsend.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("dncsend.htm", ForReading)
RTFBody = f.ReadAll
'Debug.Print RTFBody
f.Close
Set MyItem = MyApp.CreateItem(olMailItem)
With MyItem
   .To = "void@nams-inc.com; paulk@courtesycall.com"
   .Subject = "Voids & DNC's"
   .HTMLBody = RTFBody
End With
MyItem.Display
End Sub

 

[ISBB]

bah.. nevermind.. figured it out... wasnt using the module was using a macro in the form itself, just confused myself having the module code there...

 

[Trevor G]

Just to check you should use & ";" & when needing more than one

as follows:

.To = "wen@uk.com" & ";" & "trevor@uk.com"