<% Dim mensagem_enviada If request("cont") = "1" Then t1 = ucase(request("t1")) t2 = lcase(request("t2")) t3 = request("t31")&"-"&request("t32") t4 = ucase(request("t4")) t5 = ucase(request("t5")) 'Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Mailer.FromName = t1 'Mailer.FromAddress = t2 'Mailer.RemoteHost = "localhost" 'Mailer.AddRecipient "ePoint","marcio@epoint.com.br" 'Mailer.Subject = "Formul?rio site www.epoint.com.br" 'Configuramos os dados a serem utilizados no cabe?alho da mensagem nomeDestinatario="ePoint" emailDestinatario="marcio@epoint.com.br" nomeRemetente=t1 emailRemetente=t2 'O e-mail de remetente deve ser obrigat?riamente um e-mail existente de seu pr?prio dom?nio 'e em formato v?lido (ex: webmaster@seudominio.com), 'no caso de e-mail autenticado o conta do remetente deve ser a mesma com a qual ? feita a autentica??o responderPara="Infrajornalismo@gmail.com" assunto="[Agência iNFRA] - Contato: "&emailRemetente 'CRIA A INSTANCIA COM O OBJETO CDOSYS Set mailer = Server.CreateObject("CDO.Message") 'CRIA A INSTANCIA DO OBJETO PARA CONFIGURA??O DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.epoint.com.br" 'PORTA PARA COMUNICA??O COM O SERVI?O DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'Utiliza??o de SSl 'objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 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") = "marcio@epoint.com.br" 'SENHA DO USU?RIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "msneves120" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'ATUALIZA A CONFIGURA??O DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set mailer.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE mailer.From = t1&" <"&t2&">" 'NOME DO DESINATARIO, E-MAIL DO DESINAT?RIO mailer.To = "iNFRA " 'objCDOSYSMail.cc = "Copia " 'objCDOSYSMail.bcc = "Copia Oculta " 'ASSUNTO DA MENSAGEM mailer.Subject = "Formulário Agência iNFRA - [INGLÊS]" 'CONTE?DO DA MENSAGEM mailer.TextBody = "Nome: " & t1 & Chr(13) & Chr(13) & _ "Email: " & t2 & Chr(13) & Chr(13) & _ "Mensagem: " & t4 & Chr(13) & Chr(13) & _ "Telefone: " & t5 & Chr(13) & Chr(13) & _ "--------------------------------------------------" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody ' 'objCDOSYSMail.HtmlBody = " " 'ENVIA A MENSAGEM mailer.Send 'response.write "Email enviado com sucesso" if err = 0 then erromsg = 0 mensagem_enviada = "ok" else erromsg = 1 mensagem_enviada = "ok" end if 'DESTR?I OS OBJETOS Set mailer = Nothing Set objCDOSYSCon = Nothing end if %> :: ePoint :: O ponto de encontro do que é útil no dia a dia
<% if mensagem_enviada = "ok" then %>



Message sent successfully!

 



<%else%> <%if erromsg = 1 then%>



ERRO: Não foi possível enviar a mensagem. Tente Novamente!

 



<%end if%>
Contact Form
Full Name:
Company:
Role:
Email:
Phone:
Message:
 
<%end if%>