%
If request.form("OP")="Enviar Contato" Then
nome = Request.Form("nome")
email = Request.Form("email")
fone = Request.Form("fone")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")
conteudo=""
conteudo = conteudo & "Nome: " & nome & "
"
conteudo = conteudo & "Email: " & email & "
"
conteudo = conteudo & "Fone: " & fone & "
"
conteudo = conteudo & "Mensagem: " & replace(mensagem,vbclrf,"
")& "
"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino
meuservidorsmtp = "smtp.agenciaccturismo.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "agenciaccturismo@agenciaccturismo.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "agenc763303" ' senha da conta de e-mail
emailorigem = "agenciaccturismo@agenciaccturismo.com.br" ' e-mail que indica de onde partiu a mensagem
emaildestino="agenciaccturismo@agenciaccturismo.com.br" 'e-mail que recebe a mensagem
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 587
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Fale conosco: "&assunto
cdoMessage.HTMLBody = conteudo
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.write ""
end if
%>