Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   iMap mails mit Strato (https://www.delphipraxis.net/185655-imap-mails-mit-strato.html)

MartinK 27. Jun 2015 10:15

iMap mails mit Strato
 
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

mkinzler 27. Jun 2015 15:21

AW: iMap mails mit Strato
 
In welcher Zeile kommt der Fehler?

redox 27. Jun 2015 16:03

AW: iMap mails mit Strato
 
Zitat:

Zitat von mkinzler (Beitrag 1306853)
In welcher Zeile kommt der Fehler?

Abgesehen davon unterstützen nur wenige (FreeMail-) Provider "iMapi", sondern nur "iPop3i" oder "iSmtpi" :oops:

Bei vielen Providern muss man "iMapi" erst über das WebInterface (den Browser) freischalten...

Und nach der Freischaltung von "iMapi" beim Provider wird man sich noch wundern, was der Provider alles bei "iMapie *nicht* unterstützt...

SelbstVesuch macht kluch!

mkinzler 27. Jun 2015 16:13

AW: iMap mails mit Strato
 
Was ist IMapi, IPop3i, ISmtpi? Ich kenne nur IMAP, POP3 und SMTP. (in diesem Zusammenhang).
Selbst wenn kein IMAP Konto gefunden wird, sollte der Verbindungsaufbau an sich funktionieren.

redox 27. Jun 2015 16:44

AW: iMap mails mit Strato
 
Zitat:

Zitat von mkinzler (Beitrag 1306870)
Was ist IMapi, IPop3i, ISmtpi? Ich kenne nur IMAP, POP3 und SMTP. (in diesem Zusammenhang).
Selbst wenn kein IMAP Konto gefunden wird, sollte der Verbindungsaufbau an sich funktionieren.

Seit wann benutzen IMAP und POP3/SMTP denn die gleichen Ports?

Die umschließenden kleinen i's um IMAP/POP3/SMTP: War mein iPhonei ;-)

mkinzler 27. Jun 2015 16:50

AW: iMap mails mit Strato
 
Zitat:

Zitat von redox (Beitrag 1306879)
Zitat:

Zitat von mkinzler (Beitrag 1306870)
Was ist IMapi, IPop3i, ISmtpi? Ich kenne nur IMAP, POP3 und SMTP. (in diesem Zusammenhang).
Selbst wenn kein IMAP Konto gefunden wird, sollte der Verbindungsaufbau an sich funktionieren.

Seit wann benutzen IMAP und POP3/SMTP denn die gleichen Ports?

Die umschließenden kleinen i's um IMAP/POP3/SMTP: War mein iPhonei ;-)

Nein, sie verwenden verschiedene Ports. Das es die selben wären, hat auch niemand behauptet

http://www.strato-faq.de/article/74/...ailserver.html

redox 27. Jun 2015 16:59

AW: iMap mails mit Strato
 
Aber lt. #4 sollte der Verbindungsaufbau funktionieren?

Gut zu wissen... :pale:

MartinK 29. Jun 2015 18:27

AW: iMap mails mit Strato
 
Wie so häufug war es mal wieder eine kleinigkeit.
Der Strato-Server kommtanscheinend einfach nich nicht mit der SSLOptionsMethod zu Recht.
......für's Logbuch ;)

Delphi-Quellcode:
OpenSSLHandler.SSLOptions.Method := sslvSSLv23;
und alles funktioniert

lG M

pertzschc 30. Jun 2015 10:22

AW: iMap mails mit Strato
 
Zitat:

Zitat von MartinK (Beitrag 1307116)
Delphi-Quellcode:
OpenSSLHandler.SSLOptions.Method := sslvSSLv23;

D.h. Strato kommt noch nicht mit TLS zurecht? In Zeiten von https://www.poodletest.com/ eigentlich nicht schön!
Christoph


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz