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")”.

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim imap As New ChilkatImap

Dim success As Long

'  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & imap.LastErrorText & vbCrLf
    Exit Sub
End If

'  Connect to they Yahoo! IMAP server.
success = imap.Connect("imap.mail.yahoo.com")
If (success <> 1) Then
    Text1.Text = Text1.Text & imap.LastErrorText & vbCrLf
    Exit Sub
End If

'  Send the non-standard ID command...
Dim rawResponse As String
rawResponse = imap.SendRawCommand("ID (""GUID"" ""1"")")
If (rawResponse = vbNullString ) Then
    Text1.Text = Text1.Text & imap.LastErrorText & vbCrLf
    Exit Sub
End If

'  Login
success = imap.Login("myLogin","myPassword")
If (success <> 1) Then
    Text1.Text = Text1.Text & imap.LastErrorText & vbCrLf
    Exit Sub
End If

Text1.Text = Text1.Text & "Login Success!" & vbCrLf

'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> 1) Then
    Text1.Text = Text1.Text & imap.LastErrorText & vbCrLf
    Exit Sub
End If

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

'  Disconnect from the IMAP server.
imap.Disconnect