Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
%>
Valeu Ronaldo,
resolvido aqui
Funciona da mesma forma que o outlook, você separa os contatos atraves de ponto e virgula ";" .
e tmabém pode usar o .ReplyTo
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