![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) IMAP SSH Tunneling (Port Forwarding)Demonstrates how to setup and use an SSH tunnel for IMAP. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Imap string ls_SshHostname integer li_SshPort integer li_MsgCount integer li_UpperBound oleobject loo_Email integer i integer li_BUid li_Success = 0 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Imap = create oleobject li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap") if li_rc < 0 then destroy loo_Imap 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 = "www.mysshserver.com" li_SshPort = 22 // Connect to an SSH server and establish the SSH tunnel: li_Success = loo_Imap.SshOpenTunnel(ls_SshHostname,li_SshPort) if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap 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 IMAP server, it is // for authenticating with the SSH server, which is separate. li_Success = loo_Imap.SshAuthenticatePw("mySshLogin","mySshPassword") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // OK, the SSH tunnel is setup. The IMAP component may // be used exactly the same as usual, except all communications // are sent through the SSH tunnel. // Connect to an IMAP server via the SSH tunnel. // Because the SSH tunnel has been previously setup, // this does not establish a direct connection with the IMAP // server. It directs the SSH server to establish the connection. // In this example, the IMAP server requires SSL/TLS. The TLS connection // will be enclosed within the SSH tunnel. loo_Imap.Ssl = 1 loo_Imap.Port = 993 li_Success = loo_Imap.Connect("imap.my-imap-server.com") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Authenticate with the IMAP server via the SSH tunnel. li_Success = loo_Imap.Login("myLogin","myPassword") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // Select an IMAP mailbox li_Success = loo_Imap.SelectMailbox("Inbox") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap return end if // How many messages in Inbox? li_MsgCount = loo_Imap.NumMessages if li_MsgCount = 0 then Write-Debug "No messages found." destroy loo_Imap return end if li_UpperBound = 10 if li_MsgCount < li_UpperBound then li_UpperBound = li_MsgCount end if // Download up to the 1st 10 messages. loo_Email = create oleobject li_rc = loo_Email.ConnectToNewObject("Chilkat.Email") li_BUid = 0 for i = 1 to li_UpperBound li_Success = loo_Imap.FetchEmail(0,i,li_BUid,loo_Email) if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_Email return end if Write-Debug loo_Email.From Write-Debug loo_Email.Subject Write-Debug "----" next // Disconnect from the IMAP server. // The SSH tunnel remains open. li_Success = loo_Imap.Disconnect() if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_Email return end if // It is possible to re-use the existing SSH tunnel for the next connection: li_Success = loo_Imap.Connect("imap.my-imap-server2.com") if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_Email return end if // Review the LastErrorText to see that the connection was made via the SSH tunnel: Write-Debug loo_Imap.LastErrorText li_Success = loo_Imap.Disconnect() if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_Email return end if // Finally, close the SSH tunnel. li_Success = loo_Imap.SshCloseTunnel() if li_Success = 0 then Write-Debug loo_Imap.LastErrorText destroy loo_Imap destroy loo_Email return end if Write-Debug "IMAP SSH tunneling example completed." destroy loo_Imap destroy loo_Email |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.