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
%>
Carregando comentários...