CDOSYS - mais de um email para envio

[Yuri Andrei 0]

Pessoal, sou novo em asp e fiz um simples formulário de contato. Gostaria que esse form de contato fosse para dois emails. Acredito que seja algo na seguinte linha:

 

 

emailFrom = "contato@empresa.com.br"

emailTo = "recebimento@empresa.com.br" <---- AQUI IRIA MAIS UM OUTRO EMAIL

Seria com ; ou & para inserir esse outro email?

Abaixo segue o código inteiro.

valeu!

<%

nome = Request.Form("nome")

email = Request.Form("email")

empresa = Request.Form ("empresa")

telefone = Request.Form ("telefone")

assunto = Request.Form ("assunto")

mensagem = Request.Form("mensagem")

emailFrom = "contato@empresa.com.br"

emailTo = "recebimento@empresa.com.br"

corpoMensagem = "<b>Nome:</b> "& nome &"<br /><br /> <b>E-Mail:</b> "& email &"<br /><br /> <b>Empresa:</b> "& empresa &"<br /><br /> <b>Telefone:</b> "& telefone &"<br /><br /> <b>Assunto:</b> "& assunto &"<br /><br /> <b>Mensagem:</b> "& mensagem

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = emailFrom

objCDOSYSMail.To = emailTo

objCDOSYSMail.Subject = Request.Form ("assunto")

objCDOSYSMail.ReplyTo = Request.Form("email")

objCDOSYSMail.HtmlBody = corpoMensagem

objCDOSYSMail.Send

Response.Redirect("http://www.empresa.com.br/confirmacao.html")

set objCDOSYSMail = nothing

set objCDOSYSCon = nothing

%>

 

[Ronaldo Faria Storck Eler 2]

Analisando a documentação do componente, basta utilizar os campos cc e bcc

 

 

objCDOSYSMail.To = "email"

objCDOSYSMail.cc = "outroemailemail;outroemail;maisumemail"

objCDOSYSMail.Bcc= "email-ocultooutroemail;maisumemail"

sds

[Yuri Andrei 0]

Valeu Ronaldo,

resolvido aqui

[Gilberto Jr 26]

Funciona da mesma forma que o outlook, você separa os contatos atraves de ponto e virgula ";" .

[xanburzum 169]

e tmabém pode usar o .ReplyTo