(Delphi ActiveX) Yahoo! IMAP (imap.mail.yahoo.com)

(from Wikipedia)

It is possible to get direct IMAP access without signing up for paid access nor using software like YPOPs! or FreePOPs. Yahoo! operates IMAP and secure IMAP servers (imap.mail.yahoo.com in particular), which are globally accessible. However they require a specific, non-standard IMAP command to be sent before login is done, namely: “ID ("GUID" "1")”.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
rawResponse: WideString;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

imap := TChilkatImap.Create(Self);

// Connect to they Yahoo! IMAP server.
imap.Port := 993;
imap.Ssl := 1;
success := imap.Connect('imap.mail.yahoo.com');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Send the non-standard ID command...

rawResponse := imap.SendRawCommand('ID ("GUID" "1")');
if (imap.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Login
success := imap.Login('myLogin','myPassword');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Login Success!');

// Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Continue with whatever you wish to do...
// (see other examples..)

// Disconnect from the IMAP server.
success := imap.Disconnect();
end;