Envio de vários e-mails de uma só vez

[NinoSPFC 0]

Não estou conseguindo mandar para vários emails de uma vez só..

 

Achoque o erro seja na parte do

 

'e-mail do destinatário

objCDOSYSMail.To = emailto_hn ( como eu façi para ele enviar para mais um?)

 

tentei por virgula e nada...

'e-mail do destinatário

objCDOSYSMail.To = emailto_hn, emailto2_hn

 

tentei emailto_hn&;&emailto2_hn e nada

 

Se alguem souber agradeço.

 

CODE<%namefrom_hn = Request.Form("namefrom2")emailto_hn = Request.Form("emailto2")emailto2_hn = Request.Form("emailto3")'------------------data = Day(Now) & "/" & Month(Now) & "/" & Year(Now)'cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""'porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")='porta do CDOobjCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") =objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = ""'timeoutobjCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  objCDOSYSCon.Fields.update'atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetenteobjCDOSYSMail.From = ""'e-mail do destinatárioobjCDOSYSMail.To = emailto_hn

[vagner.net 0]

tentei por virgula e nada...

'e-mail do destinatário

objCDOSYSMail.To = emailto_hn, emailto2_hn

Concatena a "," virgula entre os email's:

objCDOSYSMail.To = emailto_hn & "," & emailto2_hn

OK..!!?? T+...