IMAP using HTTP Proxy

Demonstrates how to connect to an IMAP server through an HTTP proxy.

Download Chilkat IMAP ActiveX

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 connect through an HTTP proxy, set the HttpProxyHostname
'  and HttpProxyPort properties to the hostname (or IP address)
'  and port of the HTTP proxy.  Typical port numbers used by
'  HTTP proxy servers are 3128 and 8080.
imap.HttpProxyHostname = "www.myhttpproxy.com"
imap.HttpProxyPort = 3128

'  Important:  Your HTTP proxy server must allow non-HTTP
'  traffic to pass.  Otherwise this does not work.

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

'  ...
'  ...