Um código para programar um formulário de e-mail.

crie um formulário apontando para o arquivo fale_conosco_chk.asp

 

código

<% 
 Dim Destino, Nome, Email, Comentario, Erro, rst, SQL, Mensagem
 Destino = trim(Request("Destino"))
 Nome = trim(Request("Nome"))
  Email = trim(Request("Email"))
 Comentario = trim(Request("Comentario")) 
  if Destino = "" then
  Erro = 1 'destino não pode ser em branco
  Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)  
 elseif Nome = "" then
  Erro = 2 'nome não pode ser em branco
  Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)  
 elseif Email = "" or instr(Email, "@") = 0 then
  Erro = 3 'email não pode ser em branco ou inválido
  Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)   
  elseif Comentario = "" then
  Erro = 4 'comentario não pode ser em branco
  Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)   
  end if
 Comentario = Comentario & vbcrlf & vbcrlf & "Nome: " & Nome & vbcrlf & "E-mail: " & Email
' Comentario = Comentario & vbcrlf & vbcrlf & "Nome: " & Nome & vbcrlf & "E-mail: " & Email & vbcrlf & vbcrlf

On error resume next
 Set Email = Server.CreateObject("aspSmartMail.SmartMail") 
  'Mail Server
  '*********** 
 Email.Server = "mail.meudominio.com.br"
  'From
  '****
  Email.SenderName = "Minha Empresa"
  Email.SenderAddress = "meuemail@meudominio.com.br" 
  'To
  '**
 if Destino = "Compras" then
   Email.Recipients.Add "meuemail@meudominio.com.br", "Dpto Compras"
 elseif Destino = "Desenvolvimento" then
   Email.Recipients.Add "meuemail@meudominio.com.br", "Dpto Desenvolvimento"
 elseif Destino = "Diretoria" then
   Email.Recipients.Add "meuemail@meudominio.com.br", "Diretoria"
  Email.Recipients.Add "meuemail@meudominio.com.br", "Diretoria"
 elseif Destino = "Suporte" then
   Email.Recipients.Add "meuemail@meudominio.com.br", "Dpto Suporte Técnico"
 elseif Destino = "Vendas" then
   Email.Recipients.Add "meuemail@meudominio.com.br", "Dpto Vendas"
 end if  
  'Message
  '*******
 Email.Subject = "Fale Conosco" 
 Email.Body = Mensagem 
  'Send the message
  '****************
 Email.SendMail
 if Err <> 0 then
  Erro = 5
  Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
 else
  Response.Redirect("Fale_Conosco_Ok.asp")
 end if
%>

 

*** objeot usado: www.aspasmart.com