Aqui você pode fazer seus comentários, dar sugestões e esclarecer dúvidas. Basta preencher o formulário abaixo, nos mandar uma carta ou fazer seu contato por telefone.
<%
nome=request("nome")
email=request("email")
ddd=request("ddd")
telefone=request("telefone")
pais=request("hdnPais")
estado=request("estado")
cidade=request("cidade")
mensagem=request("mensagem")
destino=request("destino")
texto=""
texto=""
texto=texto&" "
texto=texto&" Nome: "& nome
texto=texto&" "
texto=texto&" Email: "&email
texto=texto&" "
texto=texto&" Telefone: "&ddd&" - "&telefone
texto=texto&" "
texto=texto&" Cidade: " & cidade
texto=texto&" "
texto=texto&" Estado: " & estado
texto=texto&" "
texto=texto&" Pais: " & pais
texto=texto&" "
texto=texto&" Mensagem: "
texto=texto&" "&mensagem
texto=texto&" "
texto=texto&" "
if request("enviado")="sim" then
'-CDO.MESSAGE-
' Set objMail = Server.CreateObject("CDO.Message")
' Set objCon = Server.CreateObject ("CDO.Configuration")
'
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.vm2.com.br"
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rsantos@vm2.com.br"
' objCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rodrigorib01"
' objCon.Fields.update
' Set objMail.Configuration = objCon
' objMail.From = request("email")
' objMail.To = destino
' objMail.Subject = "SAC"
' objMail.HtmlBody = texto
' objMail.CC = "andre@tec-screen.com.br"
' objMail.BCC = "felipe.pacheco@vm2.com.br"
' objMail.Send
'
'
' Set objMail = Nothing
' Set objCon = Nothing
'Dim objMail
'Set objMail = Server.CreateObject("CDONTS.NewMail")
'objMail.From = request("email")
'objMail.To = destino
'objMail.Subject = "SAC"
'objMail.BodyFormat = 0
'objMail.MailFormat = 0
'objMail.Body = texto
'objMail.CC = "andre@tec-screen.com.br"
'objMail.BCC = "felipe.pacheco@vm2.com.br"
'objMail.Send
'Set objMail = Nothing
set mail = server.createobject("persits.mailsender")
mail.host = "smtp-web.uni5.net"
mail.fromname = request("email")
mail.from = request("rafael@tec-screen.com.br") 'Este email deve ser válido e existir como conta de email para o domínio
mail.addaddress destino
'mail.addaddress "adriano.carvalho@vm2.com.br"
mail.subject = "SAC"
mail.IsHTML = true
mail.body = texto
'Enviando o email
If mail.send Then
response.Write("")
Else
response.Write("")
End If
end if
%>