(PowerBuilder) POP3 SSH Tunneling (Port Forwarding)

Demonstrates how to connect to a POP3 server through an SSH tunnel. Reads a POP3 mailbox and display the FROM and SUBJECT header fields of each email.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Mailman
string ls_SshHostname
integer li_SshPort
integer li_Success
integer li_NumToDownload
integer i
oleobject loo_Email

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

// The mailman object is used for receiving (POP3) 
// and sending (SMTP) email.
loo_Mailman = create oleobject
// Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// The SSH hostname may be a hostname or an 
// IP address, such as "192.168.1.108".
// The port is typically 22 (the standard port for SSH).
ls_SshHostname = "sftp.example.com"
li_SshPort = 22

// Connect to an SSH server and establish the SSH tunnel:
li_Success = loo_Mailman.SshOpenTunnel(ls_SshHostname,li_SshPort)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// Authenticate with the SSH server via a login/password
// or with a public key.
// This example demonstrates SSH password authentication.
// Note: This is not authenticating with the POP3 server, it is
// for authenticating with the SSH server, which is separate.
li_Success = loo_Mailman.SshAuthenticatePw("ssh_login","ssh_password")
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// OK, the SSH tunnel is setup.  The mailman may
// be used exactly the same as usual, except all communications
// are now sent through the SSH tunnel.

// The SSH tunnel may be kept open for any number of 
// POP3 connections.  

// Set the POP3 server's hostname
loo_Mailman.MailHost = "mail.my-pop3-server.com"

// Set the POP3 settings for your POP3 server:
loo_Mailman.PopUsername = "pop3_login"
loo_Mailman.PopPassword = "pop3_password"
loo_Mailman.MailPort = 995
loo_Mailman.PopSsl = 1

// Connect to the POP3 server through the already-established SSH tunnel:
li_Success = loo_Mailman.Pop3BeginSession()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// A visual inspection of the LastErrorText after
// a successful POP3 connection will confirm the SSH tunneling.
// Note: If the POP3 connection uses SSL/TLS, then the SSL/TLS 
// secure channel will be wrapped within the SSH tunnel.
Write-Debug loo_Mailman.LastErrorText

// How many messages are in the POP3 inbox?
li_NumToDownload = loo_Mailman.GetMailboxCount()
if li_NumToDownload > 5 then
    li_NumToDownload = 5
end if

if li_NumToDownload = 0 then
    destroy loo_Mailman
    return
end if

// Download a max of 5 messages

for i = 1 to li_NumToDownload
    loo_Email = loo_Mailman.FetchByMsgnum(i)
    if loo_Mailman.LastMethodSuccess = 0 then
        Write-Debug loo_Mailman.LastErrorText
        destroy loo_Mailman
        return
    end if

    Write-Debug loo_Email.From
    Write-Debug loo_Email.Subject
    Write-Debug "----"
    destroy loo_Email
next

// Close the connection with the POP3 server, leaving the SSH tunnel open for subsequent POP3 connections.
li_Success = loo_Mailman.Pop3EndSession()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// Try connecting to a different POP3 server through the same aleady setup SSH tunnel:
// Set the POP3 server's hostname
loo_Mailman.MailHost = "mail.my-pop3-server2.com"

// Set the POP3 settings for your POP3 server:
loo_Mailman.PopUsername = "pop3_login2"
loo_Mailman.PopPassword = "pop3_password2"
loo_Mailman.MailPort = 110
loo_Mailman.PopSsl = 0

li_Success = loo_Mailman.Pop3BeginSession()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// Review the LastErrorText to see that the connection was made via the SSH tunnel:
Write-Debug loo_Mailman.LastErrorText

li_Success = loo_Mailman.Pop3EndSession()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

// Close the SSH tunnel.
li_Success = loo_Mailman.SshCloseTunnel()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if



destroy loo_Mailman