smtp error: Login: other undefined status

[alessandro pancotte]

Olá amigos,

Estou com este problema smtp error: Login: other undefined status.

Ocorre que num outro projeto esta funcionando.

Eu fiz a rotina de envio de email exatamente igual, porem neste projeto da esta mensagem.

Os 02 executaveis ficam na mesma pasta.

Debugando, o que notei de diferenca entre os dois é que no que da erro quando chega neste pont

procedure TTCPBlockSocket.SSLDoConnect;
begin
  ResetLastError;
  if not FSSL.Connect then  -> no que esta funcionando ele executa a funcao function TSSLOpenSSL.Connect: boolean;  ///  no que da erro ele não entra nesta funcao, mesmo colocando stop nao aceita
    FLastError := WSASYSNOTREADY; 
  ExceptCheck;
end;

segue minha função

anexe não cole

 

 

[alessandro pancotte]

Ola,

 

Segue os arquivos anexados.

 

envioemail.txt

urotinas.txt

[alessandro pancotte]

Olá,

Descobri o problema ja Uses do meu urotinas precisa estar declarada SSL_OpenSSL.

Porém nos outros dois projetos que eu uso esta mesma rotina de envio de mail nao precisei colocar na uses.

uses windows, IBQuery, SysUtils, Forms, Classes, Dialogs, Controls, types, SSL_OpenSSL, SMTPSend, MimePart, MimeMess;

Fica a dica para caso alguem tenha este pequeno problema.