Problema Delphi 7 + Indy 10 + Acbr + Libeay32.dll

[diegobolognini]

Boa tarde!

 

Estou tentando desenvolver um gerenciador de emails utilizando o componente Indy10. Esta mesma aplicação utiliza os fontes do ACBR normalmente...

 

O problema é que a versão da libeay32.dll para a comunicação com o Indy (0.9.6a) é inferior a versão utilizada pelo ACBR. (0.9.8.14)

 

Deixando a versão mais atual, a aplicação funciona normalmente.. porém ao tentar conectar o componente IDSMTP ele exibe uma mensagem de erro dizendo que as dll's não foram encontradas...

 

Se eu deixar as dll's antigas, a aplicação não roda....

 

Deixar as dll's antigas na pasta da aplicação ou no diretorio system da máquina também não dão certo...

 

Alguém já passou por dificuldade semelhante?

 

Obrigado!

[Juliomar Marchetti]

Boa tarde!

 

Estou tentando desenvolver um gerenciador de emails utilizando o componente Indy10. Esta mesma aplicação utiliza os fontes do ACBR normalmente...

 

O problema é que a versão da libeay32.dll para a comunicação com o Indy (0.9.6a) é inferior a versão utilizada pelo ACBR. (0.9.8.14)

 

Deixando a versão mais atual, a aplicação funciona normalmente.. porém ao tentar conectar o componente IDSMTP ele exibe uma mensagem de erro dizendo que as dll's não foram encontradas...

 

Se eu deixar as dll's antigas, a aplicação não roda....

 

Deixar as dll's antigas na pasta da aplicação ou no diretorio system da máquina também não dão certo...

 

Alguém já passou por dificuldade semelhante?

 

Obrigado!

Tentou usar o ACBrMail?

[diegobolognini]

Bom dia amigo!

 

Pelo ACBRNFeMonitor, que possui um exemplo de como enviar e-mails pelo ACBR não obtive sucesso para configurações do Gmail.

Seguem as infos que usei como parâmetro:

 

Servidor de Saída: smtp.gmail.com

Porta: 465

Marquei a opção "TLS"

 

A mensagem de erro é "Conection timed-out".

 

Obs. Já verifiquei na conta gmail se as opções de POP e IMAP estão ativadas, e pelo outlook funciona perfeitamente!

[Juliomar Marchetti]

Não é o ACBrNFeMonitor estou falando do componente ACBrMail?

chegou a atualizar o svn e recompilar os pacotes?

[diegobolognini]

Acabei de fazer isto e está ocorrendo um problema de "SMTP Error: Unable to Login".

 

Segue abaixo a criação do componente em tempo de execução.

 

            teste := TACBRMail.Create(Application);
            teste.Port := '465';
            teste.Host := 'smtp.google.com';
            teste.Username :=  '[email protected]';
            teste.Password := 'xxx';
            teste.setTLS;

            teste.from := '[email protected]';
            teste.fromName := 'Diego';

            corpo := tstringlist.create;
            corpo.add('corpo do email');

            teste.body :=  corpo;
            teste.addaddress('[email protected]','teste');
            teste.subject := 'testando';
            teste.send;
 

[Juliomar Marchetti]

você habilitou o pop no gmail?

[diegobolognini]

Sim, as configurações de POP e IMAP estão OK..

 

As dll's libeay32.dll e ssleay32.dll também estão atualizadas no diretório da aplicação!

 

o procedimento .send demora cerca de 2 minutos até exibir a mensagem de erro citada acima.

[Daniel Simoes]

Tente modificar:

  ACBrMail1.Attempts := 1;
  ACBrMail1.SetSSL := True;
  ACBrMail1.SetTLS := True;

 

[diegobolognini]

Bom dia caros amigos...

 

Solucionei o problema de envio utilizando o Indy 10 para servidores Gmail, Hotmail, Yahoo e Servidor Próprio!

 

Abaixo segue o código fonte:

var
    IdSMTP1: TIdSMTP;
    Idmessage: TIdMessage;
    TextoMsg: TidText;
    IdSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
    IdSMTP1                 := TIdSMTP.create(nil);
    IdSMTP1.ConnectTimeout  := 10000;
    IdSMTP1.ReadTimeout     := 10000;

    IdMessage               := TIdMessage.create(nil);
    IdMessage.Clear;
    IdMessage.CharSet       := 'iso-8859-1';
    IdMessage.Encoding      := MeMIME;
    IdMessage.ContentType   := 'multipart/related'   ;
    IdMessage.subject       := 'Assunto';

    textomsg                := TIdText.Create(IdMessage.MessageParts);
    textomsg.Body.Text      := 'Se você consegue ler isto então é porque funcionou o teste!';
    textomsg.ContentType    := 'text/html';

    if ((cbtipo.itemindex = 0) or (cbtipo.itemindex = 2)) then
    begin
        // GMAIL e YAHOO

        if cbtipo.itemindex = 0 then
        begin
            idSMTP1.Host            := 'smtp.gmail.com';
            idSMTP1.Username        := '[email protected]';
            idSMTP1.Password        := 'senha';
        end
        else begin
            idSMTP1.Host            := 'smtp.mail.yahoo.com';
            idSMTP1.Username        := '[email protected]';
            idSMTP1.Password        := 'senha';
        end;

        IdMessage.from.address              := idSMTP1.Username;
        IdMessage.recipients.emailaddresses := '[email protected]';

        with idSMTP1 do
        begin
            IdSSL := nil;

            try
                port                := 465;
                IdSSL               := TIdSSLIOHandlerSocketOpenSSL.Create( nil );
                IdSMTP1.IOHandler   := IdSSL;
                UseTLS              := utUseImplicitTLS;
            except on E: Exception do
                begin
                    IOHandler       := TIdIOHandler.MakeDefaultIOHandler( nil );
                    UseTLS          := utNoTLSSupport;
                end;
            end;

            if Assigned(IdSSL) then
            begin
                IdSSL.SSLOptions.Method := sslvSSLv3;
                IdSSL.SSLOptions.Mode   := sslmClient;
            end;

            AuthType := satDefault;
        end;
    end;

    //***************************** xxxxxxxxxxxxxxxx ***************************

    if ((cbtipo.itemindex = 1) or (cbtipo.itemindex = 3)) then
    begin
        // HOTMAIL e SERVIDOR PROPRIO

        idSMTP1.Port          := 587;

        if cbtipo.itemindex = 1 then
        begin
            idSMTP1.Host      := 'smtp.live.com';
            idSMTP1.Username  := '[email protected]';
            idSMTP1.Password  := 'senha';
        end
        else begin
            idSMTP1.Host      := 'smtp.servidorproprio.inf.br';
            idSMTP1.Username  := '[email protected]';
            idSMTP1.Password  := 'senha';
        end;
        
        IdMessage.from.address              := idSMTP1.Username;
        IdMessage.recipients.emailaddresses := '[email protected]';

        with idSMTP1 do
        begin
            IdSSL := nil;

            try
                IdSSL               := TIdSSLIOHandlerSocketOpenSSL.Create( nil );
                IdSMTP1.IOHandler   := IdSSL;
                UseTLS              := utUseExplicitTLS;

                IdSSL.SSLOptions.Method := sslvTLSv1;
                IdSSL.PassThrough       := true;
            except on E: Exception do
                begin
                    IOHandler   := TIdIOHandler.MakeDefaultIOHandler( nil );
                    UseTLS      := utNoTLSSupport;
                end;
            end;
        end;       
    end;

    idSMTP1.Connect;

    try
        idSMTP1.send(IdMessage);
    except
        on E : Exception do
        begin
            Memo1.Lines.Add(e.Message);
        end;
    end;

    idSMTP1.Disconnect;

    IdMessage.Free;
    IdSMTP1.Free;

Qualquer dúvida podem entrar em contato pelo email: [email protected]
 

Editado 21 Outubro, 2013 por Régys Silveira

[leufmt]

Tente modificar:

  ACBrMail1.Attempts := 1;
  ACBrMail1.SetSSL := True;
  ACBrMail1.SetTLS := True;

 

Caro Daniel. fiz o que tu falou mas não deu certo aqui.

[rogercon]

pessoal, nao está resolvido este tópico, estou tentando enviar para hotmail e está retornando o mesmo erro, UNABLE TO LOGIN, ja tentei todas as combinações de portas possíveis, inclusive tentei com o host smtp.live.com e também com smtp-mail.outlook.com que é o sugerido atualmente no site. alguem pode dar uma solução para este problema por favor.

[leufmt]

Alguém conseguiu resolver este problema do "SMTP Error: Unable to Login" para o hotmail?

 

Não consigo resolver isto.

Esta tudo conforme o pessoal diz, dll na pasta do executavel.

[visageplus]

ola pessoal tbm estou com o msm problema....
pelo acbrnfemonitor eu consigo porem o que implementei no meu sistema usando os fontes do acbr nao dá
nao vai
estou usando porta 587 + TSL

[leufmt]

Ninguém aqui conseguiu enviar mail pelo hotmail também?

[Scheila Dornelles]

Estava recebendo este erro de unable to login com o hotmail também, mas consegui enviar com a porta 587 com as configurações:

 

ACBrMail1.SetSSL := false;

ACBrMail1.SetTLS := true;

 

Att.

Scheila

[leufmt]

Scheila veja se as configurações aqui bate com as tuas

 

 With ACBrMail1 do

 begin

  Subject := 'Asunto';

  Body.Text := 'Envio de mail de teste';

  From := '[email protected]';

  FromName := 'eu';

  Host := 'smtp.live.com';

  Username := '[email protected]';

  Password := 'senha';

  Port := '587';

  SetSSL := False;

  SetTLS := True;

  AddAddress('[email protected]', 'destinatario');

  Sleep(500);

  Send;

 end;

[visageplus]

alguém conseguiu resolver isso ?

[Juliomar Marchetti]

alguém conseguiu resolver isso ?

Chegou a efetuar testes com as configurações repassadas neste tópico todo?

Tente refazer com calma o teste com as diversas configurações pois as vezes passamos chutados por alguma coisa pequena e isso gera um problema enorme!

[lazarinr]

Obrigado Scheila.

 

Eu também estava com o mesmo problema "SMTP Error: Unable to login" no hotmail usando o ACBrMail.

 

Usei a configuração sugerida por você e funcionou.

[Scheila Dornelles]

Por nada!

 

Para quem não conseguiu, verificaram também configurações de firewall e/ou antivírus? De repente tem alguma coisa bloqueando a saída smtp..

 

 

 

Obrigado Scheila.

 

Eu também estava com o mesmo problema "SMTP Error: Unable to login" no hotmail usando o ACBrMail.

 

Usei a configuração sugerida por você e funcionou.

[TiagoTecchio]

Vale a pena ressaltar a configuração da conta de e-mail.

No meu caso, uso o GMail, e para funcionar precisei liberar a opção "Acesso para aplicativos menos seguros" nas configurações de segurança da conta. Sem isso, não envia de jeito nenhum.

[Rafael Morán]

Boa Noite pessoal,

 

Fiz as configurações sugeridas neste post e também estou sofrendo para enviar e-mail pelo ACBrMail. Estou usando o servidor SMTP (smtp.gmail.com). Fiz vários testes com as portas 465 e 587, configurações SSL e TLS True e False, ACBrMail1.Attempts  := 1, atualizei as DLLs libeay32 e ssleay32 na pasta da aplicação, na system32 e syswow64, configurei minha conta gmail para (Acesso para aplicativos menos seguros) e nada deu certo. Todas as vezes me retorna o erro SMTP Error: Unable to Login.

 

Alguém conseguiu resolver essa situação?

 

Grande abraço.

[alexklehm]

Alguém conseguiu enviar utilizando a opção SetSSL = True? 

eu somente consegui enviar com a configuração:

    SetSSL := False;

    SetTLS := True;

 

Estou utilizando o gmail para enviar, e utilizando outro componente funcionava com SSL.

[alexklehm]

Para quem ainda está com problemas no envio de e-mail, para mim funcionou das seguintes formas:

- Com TLS:

    SetSSL := False;

    SetTLS := True;

    Port := 587;

- Com SSL:

    SetSSL := True;

    SetTLS := False;

    Port := 465;

 

[walter faria]

Boa noite,

No trunk estava conseguindo enviar normalmente , mudei para truink2 esta dando msg : SMTP Error: Unable to Login

Minha configuração de SMTP , servidor próprio : meu servidor requer autenticação SMTP de saida

 

Se alguém poder me ajudar

Obrigado