| Preencha o formulário abaixo
com seus dados com sua mensagem. |
|
<%
enviar = Request.Form("enviar")
if enviar = "" Then
%>
<% else %>
<%
snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Send = Server.CreateObject("SMTPsvg.Mailer")
Send.FromName = snome
Send.FromAddress= smail
Send.RemoteHost = smtp
Send.AddRecipient nome, email
Send.Subject = "Contato de " & snome
Send.BodyText = "Ola " & ynome & ":" & VBCrLf & VBCrLf & "Voce acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Mensagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "Nome: " & snome & VBCrLf & "E-mail: " & smail & VBCrLf & VBCrLf &"Imobiliária São Mateus"
Send.SendMail
Set Reply = Server.CreateObject("SMTPsvg.Mailer")
Reply.FromName = nome
Reply.FromAddress= email
Reply.RemoteHost = smtp
Reply.AddRecipient snome, smail
Reply.Subject = "Obrigado por seu contato "
Reply.BOdyText = "Ola " & snome & ", seu email foi enviado com sucesso para o site. Em breve entraremos em contato." & VBCrLf & VBCrLf & VBCrLf & "Imobiliaria São Mateus (www.isaomateus.com.br)"
Reply.SendMail
%>
|
Obrigado
<% =snome%>
Seu email
foi enviado com sucesso!
<% end if %>
|
| Se preferir envie um e-mail para isaomateus@isaomateus.com.br
ou ligue para nós: (18) 3652-2281 |