<% Response.Charset = "ISO-8859-1" Assunto = "Nova mensagem: " & Trim(Request.Form("Campo1")) '<<<<<<<<< ASSUNTO DO E-MAIL' If Not IsEmpty(Request.Form) Then Mensagem = "
Nome: " & Trim(Request.Form("Campo1")) Mensagem = Mensagem & "
Email: " & Trim(Request.Form("Campo3")) Mensagem = Mensagem & "
Telefone: " & Trim(Request.Form("Campo4")) Mensagem = Mensagem & "
Possui Cnpj: " & Trim(Request.Form("Campo5")) Mensagem = Mensagem & "
Cidade: " & Trim(Request.Form("Campo6")) Mensagem = Mensagem & "
Idade: " & Trim(Request.Form("Campo7")) Mensagem = Mensagem & "
" & Trim(Request.Form("Campo8")) Mensagem = Mensagem & "


IP: " &request("REMOTE_ADDR") Set objMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).' objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.todosaqui.com.br" objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)' objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication' objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="site@todosaqui.com.br" '<<<<<<<<< NÃO MUDAR, EMAIL DO SISTEMA' objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="vn66#G3p9" '<<<<<<<<< NÃO MUDAR, SENHA DO EMAIL DO SISTEMA' objCDOSYSCon.Fields.update Set objMail.Configuration = objCDOSYSCon 'Para definir o charset da mensagem' objMail.BodyPart.Charset = "ISO-8859-1" objMail.From = "site@todosaqui.com.br" '<<<<<<<<< NÃO MUDAR, EMAIL DO SISTEMA' objMail.To = "paulo.cerqueiro@gmail.com" '<<<<<<<<< E-MAIL QUE VAI RECEBER A MENSAGEM' objMail.ReplyTo = "site@todosaqui.com.br" '<<<<<<<<< NÃO MUDAR, EMAIL DO SISTEMA' objMail.Subject = Assunto objMail.HTMLBody = Mensagem objMail.HTMLBodyPart.Charset = "ISO-8859-1" objMail.Send Set objMail = Nothing Set objCDOSYSCon = Nothing %>
Planos de Saúde Todos Aqui Planos de Saúde Todos Aqui

MENSAGEM RECEBIDA!

Responderemos em breve

<% Else %>
Planos de Saúde Todos Aqui

Atendimento on-line

Se preferir, entramos em contato

Possui cnpj:

<% End If %>