USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviar email com o componente SmartMail
Postada em 24/3/2004 por Martini         
<%  
     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 & "Para deixar de ser assimante do CSNes " & "http://www.meusite.com.br/Excluir_Email.asp?Email=meuemail@meudominio.com.br"
     On error resume next
     Set Email = Server.CreateObject("aspSmartMail.SmartMail")     
  'Mail Server
  '***********  
     Email.Server = "meuservidordeemail.com.br"
  'From
  '****
     Email.SenderName = "Meu Nome"
     Email.SenderAddress = "Meu email"     
  'To
  '**
     if Destino = "Compras" then
       Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Compras"
     elseif Destino = "Desenvolvimento" then
       Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Desenvolvimento"
     elseif Destino = "Diretoria" then
       Email.Recipients.Add "meuemail@medominio.com.br", "Diretoria"
          Email.Recipients.Add "leandro@centersul.inf.br", "Diretoria"
     elseif Destino = "Suporte" then
       Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Suporte Técnico"
     elseif Destino = "Vendas" then
       Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Vendas"
     end if  
  'Message
  '*******
     Email.Subject = "Fale Conosco"     
     Email.Body = Comentario  
  '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
%>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página