<%
Response.Charset = "ISO-8859-1"
Assunto = "Fale Conosco - Envio com Autenticação!"
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 & "Assunto:
" & 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.dominio.com"
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") ="email@dominio.com"
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha"
objCDOSYSCon.Fields.update
Set objMail.Configuration = objCDOSYSCon
'Para definir o charset da mensagem'
objMail.BodyPart.Charset = "ISO-8859-1"
objMail.From = "email@dominio.com"
objMail.To = Trim(Request.Form("Campo3"))
objMail.ReplyTo = "email@dominio.com"
objMail.Subject = Assunto
objMail.HTMLBody = Mensagem
objMail.HTMLBodyPart.Charset = "ISO-8859-1"
objMail.Send
Set objMail = Nothing
Set objCDOSYSCon = Nothing
%>
Dados enviados
Obrigado, seus dados foram enviados com sucesso.
<%
Else
%>
Enviar Dados
Informe os dados abaixo:
<%
End If
%>