Secure IMAP over SSL

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

To communicate with an IMAP server over SSL, simply set the Ssl and Port properties. The remainder of your code is the same as with non-SSL.

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
    MsgBox imap.LastErrorText
    Exit Sub
End If

'  To use a secure SSL connection, set SSL and the port:
imap.Ssl = 1
'  The typical port for IMAP SSL is 993
imap.Port = 993

'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    Exit Sub
End If

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

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

Dim messageSet As MessageSet
'  We can choose to fetch UIDs or sequence numbers.
Dim fetchUids As Long
fetchUids = 1
'  Get the message IDs of all the emails in the mailbox
Set messageSet = imap.Search("ALL",fetchUids)
If (messageSet Is Nothing ) Then
    MsgBox imap.LastErrorText
    Exit Sub
End If

'  Fetch the emails into a bundle object:
Dim bundle As ChilkatEmailBundle2
Set bundle = imap.FetchBundle(messageSet)
If (bundle Is Nothing ) Then

    MsgBox imap.LastErrorText
    Exit Sub
End If

'  Loop over the bundle and display the FROM and SUBJECT of each.
Dim i As Long
For i = 0 To bundle.MessageCount - 1
    Dim email As ChilkatEmail2
    Set email = bundle.GetEmail(i)
    Text1.Text = Text1.Text & email.From & vbCrLf
    Text1.Refresh
    Text1.Text = Text1.Text & email.Subject & vbCrLf
    Text1.Refresh
    Text1.Text = Text1.Text & "--" & vbCrLf
    Text1.Refresh

Next

'  Disconnect from the IMAP server.
imap.Disconnect