Me ajuda quot;Como enviar email smtp com ssl na porta 465q
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´
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
Curtidas 0
Respostas
Geleiask8
03/11/2008
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´
GOSTEI 0
Luiz Henrique
03/11/2008
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+
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
Wdrocha
03/11/2008
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
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
Geleiask8
03/11/2008
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
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