Fórum Me ajuda quot;Como enviar email smtp com ssl na porta 465q #365803

03/11/2008

0

olha meu codigo pra ve se ta certo:
IdSMTP1.Host:= (´smtp.mail.yahoo.com.br´);
IdSMTP1.Port:= 465;
IdSMTP1.Username:= ´oculto765´;
IdSMTP1.Password:= ´rpcf0907´;
IdSMTP1.Connect;

if IdSMTP1.Connected then
begin
with lMensagem do
begin
Subject := ´keylogger´;
From.Address := ´oculto765@yahoo.com.br´;
Recipients.EMailAddresses:= ´oculto765@yahoo.com.br´;
Body.Text := ´teste´;
IdSMTP1.Send(lMensagem);
IdSMTP1.Disconnect;
lMensagem.Free;
IdSMTP1.free;
close;
end;
end;

obs: ja coloquei IdSSLIOHandlerSocket1 e associei as propriedades iohandler do idSMTP1 com IdSSLIOHandlerSocket1 e troquei o mode tbm para sslmClient

porem quando compilo ele da um erro assim ó: exception class EIdOSSLCouldNotLoadSSLLibrary with message ´Could not load SSL library´


Geleiask8

Geleiask8

Responder

Posts

03/11/2008

Geleiask8

olha meu codigo pra ve se ta certo: IdSMTP1.Host:= (´smtp.mail.yahoo.com.br´); IdSMTP1.Port:= 465; IdSMTP1.Username:= ´teste´; IdSMTP1.Password:= ´teste´; IdSMTP1.Connect; if IdSMTP1.Connected then begin with lMensagem do begin Subject := ´teste´; From.Address := ´teste@yahoo.com.br´; Recipients.EMailAddresses:= ´teste@yahoo.com.br´; Body.Text := ´teste´; IdSMTP1.Send(lMensagem); IdSMTP1.Disconnect; lMensagem.Free; IdSMTP1.free; close; end; end; obs: ja coloquei IdSSLIOHandlerSocket1 e associei as propriedades iohandler do idSMTP1 com IdSSLIOHandlerSocket1 e troquei o mode tbm para sslmClient porem quando compilo ele da um erro assim ó: exception class EIdOSSLCouldNotLoadSSLLibrary with message ´Could not load SSL library´



Responder

Gostei + 0

03/11/2008

Luiz Henrique

Boa noite geleiask..tudo blz

Qual delphi esta usando ?
Note que ele esta reclamando uma biblioteca.

No D2007, compilou o projeto sem problemas, so que este componente IdSSLIOHandlerSocket1 no D2007 esta como TIdSSLIOHandlerSocketOpenSSL. Veja as bibliotecas em uso para estes componentes:
IdSMTP1: TIdSMTP;
lMensagem: TIdMessage;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;

Bibliotecas:
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdMessage,
IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

Espero que te ajude, T+


Responder

Gostei + 0

04/11/2008

Wdrocha

Bom dia, pelo q eu entendi...ele está reclamando de uma DLL q não está encontrando....

Eu tive o mesmo problema....e resolvi colocando duas DLL´s na pasta do meu aplicativo, são elas : libeay32.dll e ssleay32.dll....ponha na System32 tbm....


Fiz assim e funcionou.....

Espero ter ajudado....


Flw


Responder

Gostei + 0

04/11/2008

Geleiask8

Nao consegui mesmo colocando as dll na pasta do aplicativo ou na pasta system32

obs: coloquei nas duas pastas e n funciono memo erro

a e eu tenho windows vista naum se se muda algo e uso delphi 7


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar