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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problema com envio de email usando CDONTS ou AspEm
defende
não registrado
Postada em 04/11/2004 13:11 hs   
Pessoal uma grande duvida:

Como eu faco para que a minha aplicacao envie um email usando o componente que esta no servidor e nao na maquina local?

Enviando esta tranquilo mas usando o componente instalado na maquina local. Eu queria usar o do servidor? Sera que tem jeito?

[]'s
Rodrigo Defende
     
Fuintersoft1
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 30/11/2004 11:05 hs            
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 01/12/2004 08:20 hs         
***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>
 
******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
%>
 
     
LuizRicarte
SÃO PAULO
SP - BRASIL
Postada em 02/12/2004 08:49 hs            
Utilize CDOSYS
qq dúvida mail-me
Abraços
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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