Hi all,
I use the following code to fetch my mail from Gmail:
mailman.MailHost := 'pop.gmail.com';
mailman.PopUsername := '***';
mailman.PopPassword := '***';
mailman.PopSsl := 1;
mailman.MailPort := 995;
bundle := mailman.TransferMail();
if (bundle = nil ) then
begin
ShowMessage(mailman.LastErrorText);
Exit;
end;
for i := 0 to bundle.MessageCount - 1 do
begin
email := bundle.GetEmail(i);
But since of today that is not working anymore because of: http://googleappsupdates.blogspot.nl/2016/05/disabling-support-for-sslv3-and-rc4-for.html
How should I fix this?
Thanks.