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

 

  Fórum

  ASP - Active Server Page
Voltar
Autor Assunto:  mandar dados do formulario para um E-mail?
rrcomputador
SAO CARLOS
SP - BRASIL
Postada em 21/02/2005 02:42 hs            
Olá pessoal
  eu gostaria de saber como eu faço para mandar dados de um formulario para meu e-mail???
   usando os componentes aspmail ou cdonts ???

  me ajudem muito obrigado!!

Rodrigo
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 21/02/2005 08:22 hs         
*****Persits*****
***email persits****
<HTML>
<BODY>
<%
strHost = "smtp.bol.com.br" 'servidor que envia o email do from
If Request("Send") <> "" Then 'se tem mensagem
Set Mail = Server.CreateObject("Persits.MailSender") 'criar uma variavel email no servidor
Mail.Host = strHost 'propriedade host do objeto , identifica o servidor de email
Mail.From = Request("From") 'email de quem está enviando 
Mail.FromName = Request("FromName") 'nome do rementente
Mail.AddAddress Request("To") 'não tem o sinal de igual, endereço do email do destinatario
Mail.Subject = Request("Subject") 'assunto
Mail.Body = Request("Body") 'mensagem
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message -> enviar email
If Err <> 0 Then ' error occurred -> se ocorreu algum erro
strErr = Err.Description 'descricao do erro
else
bSuccess = True
End If
End If
%>
</BODY>
</HTML>
*****SmartMail*****
******asmart mail*****
<!--#include file="./Conexao_bd_adm.asp" -->
<!--#include file="../Funcoes.asp" -->
<%
  if session ("Usuario") = "" then
    Response.Redirect("Login.asp")
  end if
%>
<% 
 Dim Assunto, Mensagem, Destino, Email, Erro, rst, SQL, Mensagem1, DataExtenso
 DataExtenso = DataPortugues()
 Assunto = trim(Request("Assunto"))
 Mensagem = trim(Request("Mensagem"))
  Destino = trim(Request("Destino"))
 Mensagem = Mensagem
 '& vbcrlf & vbcrlf & "CenterSul Informática Ltda - CSNews" & vbcrlf & "Para deixar de receber o CSNews: " & "http://www.centersul.inf.br/Excluir_Email.asp"
 On error resume next
 Set Email = Server.CreateObject("aspSmartMail.SmartMail")
  'Mail Server
  '*********** 
 Email.Server = "mail.centersul.inf.br"
  'From
  '****
  Email.SenderName = "CenterSul Informática Ltda - CSNews"
  Email.SenderAddress = "centersul@centersul.inf.br"
 
 'mensagem html
 Email.ContentType = "text/html"
 
 
 'enviar email para todos clientes csnews
  if Destino = "Todos" then
   SQL = "Select * From Clientes_CSNews ORDER BY Clientes_CSNews.[Codigo do cliente]"
    Set rst = server.createobject("adodb.recordset")
    rst.open SQL, vgdb, 1, 1
    if rst.eof then
    Erro = 2 'nenhum cliente cadastrado
    Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
  end if
  while not rst.eof 'vamos enviar email para todos os clientes
      'To
      '**
     Email.Recipients.Add EncriptaPW50(rst("Email do cliente")), "Clientes CSNews"
      'Message
      '*******
     Email.Subject = Assunto
  
   'e-mail em html
     Mensagem1 = "<html>" & vbcrlf & "<style type='text/css'>" & vbcrlf & "<!--" & vbcrlf & ".Texto {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
   Mensagem1 = Mensagem1 & " font-size: 11px;" & vbcrlf & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf
   Mensagem1 = Mensagem1 & "}" & vbcrlf & ".TextoPromocao {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 17px;" & vbcrlf
   Mensagem1 = Mensagem1 & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf & "}" & vbcrlf & "a:link.link1 {" & vbcrlf
   Mensagem1 = Mensagem1 & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf
   Mensagem1 = Mensagem1 & "}" & vbcrlf & "a:visited.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf
   Mensagem1 = Mensagem1 & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "a:hover.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf
   Mensagem1 = Mensagem1 & " color: #225384;" & vbcrlf & " text-decoration: underline;" & vbcrlf & "}" & vbcrlf & "a:active.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
   Mensagem1 = Mensagem1 & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "-->" & vbcrlf & "</style>" & vbcrlf & "<head>" & vbcrlf
   Mensagem1 = Mensagem1 & "<title>CenterSul Infromática - CSNews</title>" & vbcrlf & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbcrlf & "</head>" & vbcrlf
   Mensagem1 = Mensagem1 & "<body link='#225384' vlink='#225384' alink='#225384'>" & vbcrlf & "<table width='75%' height='379' border='0' align='center'>" & vbcrlf & "  <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td height='113' valign='top'><img src='http://www.centersul.inf.br/figuras/Csnews_banner.jpg' width='598' height='110'></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td height='79' valign='top'><table width='99%' border='0'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'><font color='#225384'><strong>" & DataExtenso & "</strong></font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td height='22'><font class='TextoPromocao'>" & TiraEnter(Mensagem) & "</font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td valign='top'><table width='99%' border='0' cellpadding='0' cellspacing='0' background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'><strong>CenterSul Inform&aacute;tica Ltda - Tecnologia a seu alcance</strong></font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Av. Arthuino Arsand, 110 - Sala 01 - Centro - Parob&eacute; - RS - CEP: 95630-000</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>E-mail:</font> <a href='mailto:centersul@centersul.inf.br' class='link1'>centersul@centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Homepage:</font> <a href='http://www.centersul.inf.br' title='www.centersul.inf.br' class='link1'>www.centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Telefones: 0 xx 51 543 1645 - 0 xx 51 543 3341</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td>&nbsp;</td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Para cancelar a assinatura do CSNews</font> <a href='http://www.centersul.inf.br/Excluir_email_chk.asp?Email=" & EncriptaPW50(rst("Email do cliente")) & "' title='Clique Aqui' class='link1'>Clique Aqui</a></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>"
  
  
     Email.Body = Mensagem1
      'Send the message
      '****************
     Email.SendMail
    rst.movenext
  wend
   rst.close
   set rst = nothing 
 elseif Destino <> "Nenhum" then 'enviar email apenas para um cliente  
    'To
    '**
   Email.Recipients.Add Destino, "Clientes CSNews"
    'Message
    '*******
   Email.Subject = Assunto
 
  'e-mail em html
  Mensagem1 = "<html>" & vbcrlf & "<style type='text/css'>" & vbcrlf & "<!--" & vbcrlf & ".Texto {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
  Mensagem1 = Mensagem1 & " font-size: 11px;" & vbcrlf & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf
  Mensagem1 = Mensagem1 & "}" & vbcrlf & ".TextoPromocao {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 17px;" & vbcrlf
  Mensagem1 = Mensagem1 & " font-weight: normal;" & vbcrlf & " color: #000000;" & vbcrlf & " font-style: bold;" & vbcrlf & "}" & vbcrlf & "a:link.link1 {" & vbcrlf
  Mensagem1 = Mensagem1 & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf
  Mensagem1 = Mensagem1 & "}" & vbcrlf & "a:visited.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf
  Mensagem1 = Mensagem1 & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "a:hover.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf & " font-size: 12px;" & vbcrlf
  Mensagem1 = Mensagem1 & " color: #225384;" & vbcrlf & " text-decoration: underline;" & vbcrlf & "}" & vbcrlf & "a:active.link1 {" & vbcrlf & " font-family: Arial, Helvetica, sans-serif;" & vbcrlf
  Mensagem1 = Mensagem1 & " font-size: 12px;" & vbcrlf & " color: #225384;" & vbcrlf & " text-decoration: none;" & vbcrlf & "}" & vbcrlf & "-->" & vbcrlf & "</style>" & vbcrlf & "<head>" & vbcrlf
  Mensagem1 = Mensagem1 & "<title>CenterSul Infromática - CSNews</title>" & vbcrlf & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbcrlf & "</head>" & vbcrlf
  Mensagem1 = Mensagem1 & "<body link='#225384' vlink='#225384' alink='#225384'>" & vbcrlf & "<table width='75%' height='379' border='0' align='center'>" & vbcrlf & "  <tr>" & vbcrlf
  Mensagem1 = Mensagem1 & "    <td height='113' valign='top'><img src='http://www.centersul.inf.br/figuras/Csnews_banner.jpg' width='598' height='110'></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
  Mensagem1 = Mensagem1 & "    <td height='79' valign='top'><table width='99%' border='0'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'><font color='#225384'><strong>" & DataExtenso & "</strong></font></td>" & vbcrlf
  Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
  Mensagem1 = Mensagem1 & "          <td height='22'><font class='TextoPromocao'>" & TiraEnter(Mensagem) & "</font></td>" & vbcrlf
  Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'>&nbsp;</td>" & vbcrlf & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "  <tr>" & vbcrlf
  Mensagem1 = Mensagem1 & "    <td valign='top'><table width='99%' border='0' cellpadding='0' cellspacing='0' background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'><strong>CenterSul Inform&aacute;tica Ltda - Tecnologia a seu alcance</strong></font></td>" & vbcrlf
  Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Av. Arthuino Arsand, 110 - Sala 01 - Centro - Parob&eacute; - RS - CEP: 95630-000</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
  Mensagem1 = Mensagem1 & "          <td><font class='Texto'>E-mail:</font> <a href='mailto:centersul@centersul.inf.br' class='link1'>centersul@centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
  Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Homepage:</font> <a href='http://www.centersul.inf.br' title='www.centersul.inf.br' class='link1'>www.centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>"  & vbcrlf
  Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Telefones: 0 xx 51 543 1645 - 0 xx 51 543 3341</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td>&nbsp;</td>" & vbcrlf
  Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Para cancelar a assinatura do CSNews</font> <a href='http://www.centersul.inf.br/Excluir_email_chk.asp?Email=" & Destino & "' title='Clique Aqui' class='link1'>Clique Aqui</a></td>" & vbcrlf
  Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & "  </tr>" & vbcrlf & "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>"
 
 
 
   Email.Body = Mensagem1
    'Send the message
    '****************
   Email.SendMail
 else 'não informou o destino
  Erro = 3
  Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
 end if
 if Err <> 0 then
  Erro = 1
  Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
 else
  Response.Redirect("Default.asp")
 end if
%>
 
     
Blade
não registrado
ENUNCIADA !
Postada em 23/02/2005 16:03 hs   
os componentes aspmail ou cdonts tem q ser baixados de algum lugar
ou simplesmente são criados???
   
ANGUS TORMENTOR
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 25/02/2005 16:38 hs            
Primeiro vc baixa e instala o CDONTS, de pois vc cria um aquivo de inclusão com a seguinte função:
 
<%
Sub EnviaEmail(Para,Assunto,Html)
 Dim iMsg
 Dim iConf
 Dim Flds
 Dim strHTML
 
 Const cdoSendUsingPort = 2
 
 set iMsg = Server.CreateObject("CDO.Message")
 set iConf = Server.CreateObject("CDO.Configuration")
 
 Set Flds = iConf.Fields
 
 With Flds
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.200.4"
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
     .Update
 End With
 
 With iMsg
     Set .Configuration = iConf
     .To = Para
     .From = "web@selbetti.com.br"
     .Subject = Assunto
     .HTMLBody = Html
     .Send
 End With
 Set iMsg = Nothing
 Set iConf = Nothing
 Set Flds = Nothing
End Sub
Private Sub GeraLogOS(S,OS)
 Set ObjConn = server.CreateObject("ADODB.Connection")
 ObjCOnn.open conn_menthor,const_usuario,const_senha
 Set CadLogOS = server.CreateObject("ADODB.RecordSet")
 CadLogOs.open "Select * From CadLogOS",objConn,1,2,1
 CadLogOS.AddNew
 CadLogOS("data") = Now
 CadLogOS("usuario") = "WEB"
 CadLogOS("CodStatus") = S
 CadLogOS("OS") = OS
 CadLogOS.Update
 CadLogOS.Close
 HTML = "<html>" & vbnewline
 HTML = HTML &  "<head>" & vbnewline
 HTML = HTML &  "</head>" & vbnewline
 HTML = HTML &  "<body>" & vbnewline
 HTML = HTML &  "<font face='Verdana' size='2'><B>OS Aberta via WEB</B><br><br>"& vbnewline
 HTML = HTML &  "<b>OS: </b>" & OS &"<br>"
 HTML = HTML &  "</font></body>" & vbnewline
 HTML = HTML &  "</html>" & vbnewline
 EnviaEmail "end_de_email@lalala.com.br","Assunto",HTML
 Set CadLogOS = Nothing
 ObjConn.close
 set ObjConn = nothing
End Sub
%>
 
Depois vc cria a página q enviará o e-mail conteundo o arquivo de inclusao, ex:
<!--include file="inc_funcoes.asp"-->
 
a seguir use este código para criar e enviar o e-mail:
 
HTML = "<html><head></head><body><font face='verdana' size='2'>"
        HTML = HTML & "Título.<br><br><br>"
        HTML = HTML &  "Esta é uma menssagem automática." & "</br></br></br>"
        HTML = HTML & "Em caso de erros ou dúvidas entrar em contato pelo telefone:" & "</br></br></br>"
        HTML = HTML & "Abaixo estão listados seu nome de Usuário e Senha de acesso a área do cliente." & "</br></br></br>"
        HTML = HTML & "<b>Usuário: </b>" & "</br>"
        HTML = HTMl & "<b>Senha: </b>" & "</br></br></br>"
        txt_email= 'endereço de email tipo request.form ou outra fonte     
        EnviaEmail txt_email,"Assunto.",HTML
 
 
espero ter ajudado.
 

Emoções ANGUS TORMENTOR Emoções 
   
4LQ8Q7GIHT5O ww
não registrado
Postada em 21/03/2020 15:39 hs   
4LQ8Q7GIHT5O www.yandex.ru
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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