Hallo
ich möchte einen schlanken mail client in eines meiner programme integrieren.
Dieser soll später mal:
- den Text eingegangener mails downloaden
- bereits gedownloadete mails in den "Deleted" Ordner verschieben
Leider scheitere ich aber bereits mit ganz einfachen Routinen wie zB dieser hier zum
Zählen der mails in der Inbox (in der Zeile mit dem .Connect)
Delphi-Quellcode:
function GetGmailMessageCount(const UserName, Password: string): Integer;
var
IMAPClient: TIdIMAP4;
OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
Result := 0;
IMAPClient := TIdIMAP4.Create(nil);
try
OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
OpenSSLHandler.SSLOptions.Method := sslvSSLv3;
IMAPClient.IOHandler := OpenSSLHandler;
IMAPClient.Host := 'imap.strato.de';
IMAPClient.Port := 993;
IMAPClient.UseTLS := utUseImplicitTLS;
IMAPClient.Username := UserName;
IMAPClient.Password := Password;
IMAPClient.Connect;
try
if IMAPClient.SelectMailBox('INBOX') then
Result := IMAPClient.MailBox.TotalMsgs;
finally
IMAPClient.Disconnect;
end;
finally
OpenSSLHandler.Free;
end;
finally
IMAPClient.Free;
end;
end;
-> eIdOSSLUnderlying CryptoError, Fehler beim verbinden mit SSL
(SSL dlls sind im ProgrammOrdner vorhanden)
was mache ich falsch ?
Danke und lG Martin