procedure TFmain.connectIMAP;
var ext,newFileName:string;
MsgAnz,i,j:integer;
ToDelete : integer;
Confirmed : array of integer;
idmessage : TIdMessage;
Attachment : TIdAttachment;
begin
log.Lines.Clear;
idIMAP.Host := edFTPHost.text;
idIMAP.Port := strtoint(edFTPPort.text);
idIMAP.Username := edFTPUsername.text;
idIMAP.Password := edFTPKennwort.text;
if edFTPPort.text = '993' then begin
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
idIMAP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
idIMAP.AuthType := iatUserPass;
idIMAP.UseTLS := utUseImplicitTLS;
end else begin
if cbusetlsIMAP.checked then begin
IdSSLIOHandlerSocketOpenSSL1.MaxLineAction := maException;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;
idIMAP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
idIMAP.UseTLS := utUseExplicitTLS;
end else begin
idIMAP.UseTLS := utNoTLSSupport;
idIMAP.IOHandler := nil;
end;
end;
log.lines.add(format('IMAP Verbinde mit Email Account %s@%s',[edFTPUsername.text,edFTPHost.text]));
try
idIMAP.Connect;
except
on e:
exception do begin
log.Lines.Add(format('Es ist ein Fehler aufgetreten : "%s"',[e.message]));
log.lines.add('=====================================');
exit;
end;
end;
.
.
.
.