none
CDOSYS RRS feed

  • Pergunta

  • Socorrro!

    e ai pessoal, td bem?
    to tentando fazer esse Cdosys funcionar mas num ta rolando. alguem pode me dar uma mão?
    agradeço desde já.


    ps.: não sei se pode ajudar mas... é para hospedar no igempresas.


    obrigado


    <%

    '## Configuração do cabeçalho da mensagem
    sDestinatario = "meu e-mail"
    sRemetente = "umE-mail valido de saida" 'o endereço de e-mail deve ser uma conta do próprio domínio e válida.
    sAssunto = "Teste CDOSYS LocaWeb"
    sMensagem = "Esse é um teste da LocaWeb, disparando e-mail usando o componente CDOSYS"

    '## configurações do componente CDOSYS
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")

    'Cria o objeto para configuração do SMTP
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

    'SMTP
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.meudominio.com"

    'Porta do SMTP
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

    'Porta do CDO
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2


    'Timeout
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
    objCDOSYSCon.Fields.update

    'Atualiza a configuração do CDOSYS para o envio do e-mail
    Set objCDOSYSMail.Configuration = objCDOSYSCon

    ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
    'configura o remetente
    objCDOSYSMail.From = sRemetente

    'configura o destinatário
    objCDOSYSMail.To = sDestinatario

    'configura o assunto
    objCDOSYSMail.Subject = sAssunto

    ''configura o conteúdo da mensagem
    objCDOSYSMail.TextBody = sMensagem
    '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###


    'para envio da mensagem no formato html altere o TextBody para HtmlBody
    'objCDOSYSMail.HtmlBody = v_corpo
    'objCDOSYSMail.fields.update

    ' ### ENVIA O E-MAIL ###
    objCDOSYSMail.Send

    ' ### DESTRÓI OS OBJETOS ###
    Set objCDOSYSMail = Nothing
    Set objCDOSYSCon = Nothing
    response.write "Mensagem acentuada enviada para:  "&sDestinatario&"..."

    %>
    terça-feira, 1 de abril de 2008 03:08

Todas as Respostas

  • Qual a mensagem de erro que aparece para você ao executar o script.

     

    Abraço

     

    Estevam

    terça-feira, 1 de abril de 2008 13:06
  •  

    o erro é

     

    error '8004020f'

    /teste.asp, line 51

     

     

    sendo que a linha 51 é na linha

    objCDOSYSMail.Send

     

    obrigado desde ja

    terça-feira, 1 de abril de 2008 13:42
  • Fernando, você precisa substituir os campos para o envio...

    Por exemplo, na linha onde está escrito sDestinatario = "meu e-mail" você deve substituir "meu e-mail" pelo seu endereço de e-mail, e assim por diante...

    terça-feira, 1 de abril de 2008 13:52
  • na página final isso foi feito

    inclusive os e-mails são válidos

     

    terça-feira, 1 de abril de 2008 13:54
  • Cara, verifica se não é necessário que você se autentique no servidor antes de enviar a mensagem...

    Seria algo do tipo:

     

    objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
    objCDOSYSCon.Fields.Item ("
    http://schemas.microsoft.com/cdo/configuration/sendusername") ="conta_remetente@seudominio.com.br"
    objCDOSYSCon.Fields.Item ("
    http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_do_email"

     

    Abraço!

    terça-feira, 1 de abril de 2008 14:12
  •  Fernando Mello wrote:
    Socorrro!

    e ai pessoal, td bem?
    to tentando fazer esse Cdosys funcionar mas num ta rolando. alguem pode me dar uma mão?
    agradeço desde já.


    ps.: não sei se pode ajudar mas... é para hospedar no igempresas.


    obrigado


    <%

    '## Configuração do cabeçalho da mensagem
    sDestinatario = "meu e-mail"
    sRemetente = "umE-mail valido de saida" 'o endereço de e-mail deve ser uma conta do próprio domínio e válida.
    sAssunto = "Teste CDOSYS LocaWeb"
    sMensagem = "Esse é um teste da LocaWeb, disparando e-mail usando o componente CDOSYS"

    '## configurações do componente CDOSYS
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")

    'Cria o objeto para configuração do SMTP
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

    'SMTP
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.meudominio.com"

    'Porta do SMTP
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

    'Porta do CDO
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2


    'Timeout
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
    objCDOSYSCon.Fields.update

    'Atualiza a configuração do CDOSYS para o envio do e-mail
    Set objCDOSYSMail.Configuration = objCDOSYSCon

    ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
    'configura o remetente
    objCDOSYSMail.From = sRemetente

    'configura o destinatário
    objCDOSYSMail.To = sDestinatario

    'configura o assunto
    objCDOSYSMail.Subject = sAssunto

    ''configura o conteúdo da mensagem
    objCDOSYSMail.TextBody = sMensagem
    '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###


    'para envio da mensagem no formato html altere o TextBody para HtmlBody
    'objCDOSYSMail.HtmlBody = v_corpo
    'objCDOSYSMail.fields.update

    ' ### ENVIA O E-MAIL ###
    objCDOSYSMail.Send

    ' ### DESTRÓI OS OBJETOS ###
    Set objCDOSYSMail = Nothing
    Set objCDOSYSCon = Nothing
    response.write "Mensagem acentuada enviada para:  "&sDestinatario&"..."

    %>
    terça-feira, 5 de agosto de 2008 20:21
  • Quais erros ocorrem?

     

    Já alterou as linhas abaixo:

     

    sDestinatario = "meu e-mail"
    sRemetente = "umE-mail valido de saida" 'o endereço de e-mail deve ser uma conta do próprio domínio e válida.

     

     

    Abraços

     

    Estevam

    quarta-feira, 6 de agosto de 2008 13:34
  • Newton.

     

    Eu consegui um exemplo fantastico de envio de email utilizando CDOSYS

     

    http://www.codigofonte.com.br/codigo/asp/diversos/enviar-email-com-aspmail,-aspemail,-cdonts-e-cdosys

     

    ja testei e funciona.

     

    Mas voce poderia me ajudar. Estou com problemas para checar os campos antes de enviar

    veja meu post. Voce teria como me ajudar?

     

    http://forums.microsoft.com/MSDN-BR/ShowPost.aspx?PostID=3725430&SiteID=21

    sábado, 9 de agosto de 2008 01:38
  •  

    Cara, eu tenho uma solução em "CDONTS", tenho a DLL e eh facinho de usar, olha esse exemplo

      <%
       Dim objMail
       
       strBody = request("corpo")
       
       Set objMail= CreateObject("CDONTS.NewMail")
       objMail.From = "email1@mail.com"   
       objMail.To = "email2@mail.com"
       objMail.MailFormat = 0
       objMail.BodyFormat = 0
       objMail.Importance = request("prioridade")
       objMail.Subject = request("titulo")
       objMail.Body = strBody
       objMail.Send
       Set objMail= Nothing
      %>

    Se quiser, me de um toque.


    Abraços.

    PS: Utilizo Windows Server 2003

    sexta-feira, 15 de agosto de 2008 20:11
  •  

    Vamos lá, é facinho.

    Primeiro Passo:

    1) Vai em painel de controle, adicionar e remover programas, aplicativos do windows, IIS, e verifica se o SMTP está instalado, este serviço PRECISA estar instalado para os serviços de envio de email via ASP funcionem.
    2) Download e unzipa cdonts.dll  em C:WindowsSystem32
    3) Registra o CDONTS.DLL component no servidor indo em Iniciar >> executar>> digite:
    regsvr32 c:winntsystem32cdonts.dll >> ENTER (Não se esqueçam das barras, eu coloquei sem, não sei se este forum aceita)

    Agora o CDONTS está instalado e funcionando perfeitamente.

    A partir dai, é só utilizar aquele codigo asp q postei ali em cima q ele ja vai funcionar sozinho.

    Qqr duvida, eh soh chamar.

    sexta-feira, 15 de agosto de 2008 22:09
  • Axei um código bacana aqui
    http://msdn.microsoft.com/en-us/library/ms992546.aspx

    -->

    <!--
    'Sending SMTP mail via port 25 using CDOSYS
    'This ASP page uses CDOSYS to send SMTP mail using port 25 of the SMTP server that is set.  The e-mail delivery is handled by the SMTP server that is set in the configuration object.
    -->

    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD>
    <BODY>
    <%
    ' send by connecting to port 25 of the SMTP server
    Dim iMsg
    Dim iConf
    Dim Flds
    Dim strHTML
    Dim strSmartHost

    Const cdoSendUsingPort = 2
    StrSmartHost = "mail.example.com"

    set iMsg = CreateObject("CDO.Message")
    set iConf = CreateObject("CDO.Configuration")

    Set Flds = iConf.Fields

    ' set the CDOSYS configuration fields to use port 25 on the SMTP server

    With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Update
    End With

    ' build HTML for message body
    strHTML = "<HTML>"
    strHTML = strHTML & "<HEAD>"
    strHTML = strHTML & "<BODY>"
    strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
    strHTML = strHTML & "</BODY>"
    strHTML = strHTML & "</HTML>"

    ' apply the settings to the message
    With iMsg
    Set .Configuration = iConf
    .To = "nrnoble@example.com"
    .From = "nrnoble@example.com"
    .Subject = "This is a test CDOSYS message (Sent via Port 25)"
    .HTMLBody = strHTML
    .Send
    End With

    ' cleanup of variables
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing

    %>
    <P> </P>

    </BODY>
    </HTML>
    <!--

    sexta-feira, 15 de agosto de 2008 22:16