none
Lento para enviar um e-mail usando o componente CDO.Message RRS feed

  • Pergunta

  • Boa tarde.

    Tenho uma página ASP na minha intranet que envia um e-mail, usando o componente CDO.Message.
    Acontece que está apresentando demora para processar a página.
    Fiz uma análise e identifiquei que a lentidão ocorre no comando Send do componente, sendo que o servidor de e-mail está na mesma rede do servidor do IIS (Intranet).
    O servidor de e-mail que estou usando é um Exchange 2007.
    Notei que em todos os casos a página demora sempre 10 segundos para processar.
    Se comento a linha onde está o comando Send do objeto, é instantâneo o processamento.

    Alguém já passou por isto ou tem sugestões para resolver?

    Desde já agradeço a atenção.

    At.
    Rodrigo de Oliveira.




    Rodrigo de Oliveira

    quarta-feira, 15 de janeiro de 2014 18:11

Todas as Respostas

  • Como lo solucionaste?
    quarta-feira, 14 de outubro de 2015 19:58
  • Olá amigo...

    não lembro a solução... faz bastante tempo.

    Hoje não utilizo mais este recurso no meu ambiente.
    Fico te devendo  resposta.

    At.
    Rodrigo de Oliveira


    Rodrigo de Oliveira

    quarta-feira, 14 de outubro de 2015 21:53
  • Boa noite amigo,

    Eu já usei algo assim

    <%
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.ralms.xxx"
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
     
    objCDOSYSCon.Fields.update 
     
    Set objCDOSYSMail.Configuration = objCDOSYSCon
    objCDOSYSMail.From = "ralms@ralms.xxxx"
    objCDOSYSMail.To = "ralms@ralms.xxxx"
    objCDOSYSMail.Subject = "Assunto do e-mail" objCDOSYSMail.TextBody = "Corpo da mensagem" objCDOSYSMail.Send   set objCDOSYSMail = nothing set objCDOSYSCon = nothing %>

    Sempre funcionou perfeito.

    Você tentou enviar email via telnet por exemplo pra ver a questão de lentidão..

    pode ser o servidor de email, com o timeout de resposta alto!


    *****************************************************
    Rafael Almeida Programador Sênior - JAMSOFT Sistemas
    rafaelalmeida@jamsoft.com.br
    www.jamsoft.com.br
    *****************************************************
    Asp.Net 5 Vnext, C# 6, Entity Framework e SQL Server
    *****************************************************

    quarta-feira, 14 de outubro de 2015 23:48