<% Dim iMsg, efrom Dim objCDOSYSMail Dim objCDOSYSCon efrom = Request.Form("email") 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.guidolin.com.br" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ecopublicidade@guidolin.com.br" 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "envia" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = efrom objCDOSYSMail.To = "fazano@fazano.com.br" objCDOSYSMail.cc = "" objCDOSYSMail.bcc = "sanata@sanata.com.br" objCDOSYSMail.Subject = "Contato Manutenção" texto = "" texto = texto & "
Cliente: " &Request.Form("nome") texto = texto & "
Endereço: " &Request.Form("endereco") texto = texto & "
Bairro: " &Request.Form("bairro") texto = texto & "
Estado: " &Request.Form("UF") texto = texto & "
DDD: " &Request.Form("ddd") texto = texto & "
Telefone1: " &Request.Form("telefone1") texto = texto & "
Telefone2: " &Request.Form("telefone2") texto = texto & "
E-mail: " &Request.Form("email") texto = texto & "
Como nos Localizou: " &Request.Form("localiza") texto = texto & "
Observação: " &Request.Form("observacao") texto = texto & " " objCDOSYSMail.HtmlBody = texto objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %> FAZANO PORTÕES
aaa
 

 

 

AGRADECEMOS POR SEU CONTATO

EM BREVE UM DE NOSSOS REPRESENTANTES

ENTRARÁ EM CONTATO.

 

Fazano Portões