PRECISA DE SUPORTE OU INFORMAÇÕES? FALE CONOSCO!



<% If Not IsEmpty(Request.Form) Then Mensagem = "Nome:
" & Trim(Request.Form("Campo1")) & "

" Mensagem = Mensagem & "Condomínio/Empresa:
" & Trim(Request.Form("Campo2")) & "

" Mensagem = Mensagem & "Email:
" & Trim(Request.Form("Campo3")) & "

" Mensagem = Mensagem & "Telefone:
" & Trim(Request.Form("Campo4")) & "

" Mensagem = Mensagem & "Assunto:
" & Trim(Request.Form("Campo7")) & "

" Mensagem = 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.agxconsultoria.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") ="atendimento@agxconsultoria.com.br" objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="ax87agb50$" objCDOSYSCon.Fields.update Set objMail.Configuration = objCDOSYSCon objMail.From = "atendimento@agxconsultoria.com.br" objMail.To = "atendimento@agxconsultoria.com.br" objMail.ReplyTo = Trim(request.form("campo3")) objMail.Subject = "Contato Via Site" objMail.HTMLBody = Mensagem objMail.Send Set objMail = Nothing Set objCDOSYSCon = Nothing %>

Seu Email foi enviado!


Obrigado, em breve

retornaremos o contato.




< Voltar

<% Else %>
<% End If %>