Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

DataFlex Examples

Web API Categories

ASN.1
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
ECC
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
Geolocation
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text

HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
REST
REST Misc
RSA
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(DataFlex) 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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoMailman
    String sSshHostname
    Integer iSshPort
    Boolean iSuccess
    Integer iNumToDownload
    Integer i
    Variant vEmail
    Handle hoEmail
    String sTemp1
    Boolean bTemp1

    // 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.
    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // 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).
    Move "www.my-ssh-server.com" To sSshHostname
    Move 22 To iSshPort

    // Connect to an SSH server and establish the SSH tunnel:
    Get ComSshOpenTunnel Of hoMailman sSshHostname iSshPort To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.
    Get ComSshAuthenticatePw Of hoMailman "ssh_login" "ssh_password" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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
    Set ComMailHost Of hoMailman To "mail.my-pop3-server.com"

    // Set the POP3 settings for your POP3 server:
    Set ComPopUsername Of hoMailman To "pop3_login"
    Set ComPopPassword Of hoMailman To "pop3_password"
    Set ComMailPort Of hoMailman To 995
    Set ComPopSsl Of hoMailman To True

    // Connect to the POP3 server through the already-established SSH tunnel:
    Get ComPop3BeginSession Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.
    Get ComLastErrorText Of hoMailman To sTemp1
    Showln sTemp1

    // How many messages are in the POP3 inbox?
    Get ComGetMailboxCount Of hoMailman To iNumToDownload
    If (iNumToDownload > 5) Begin
        Move 5 To iNumToDownload
    End

    If (iNumToDownload = 0) Begin
        Procedure_Return
    End

    // Download a max of 5 messages

    For i From 1 To iNumToDownload
        Get ComFetchByMsgnum Of hoMailman i To vEmail
        If (IsComObject(vEmail)) Begin
            Get Create (RefClass(cComChilkatEmail)) To hoEmail
            Set pvComObject Of hoEmail To vEmail
        End
        Get ComLastMethodSuccess Of hoMailman To bTemp1
        If (bTemp1 = False) Begin
            Get ComLastErrorText Of hoMailman To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        Get ComFrom Of hoEmail To sTemp1
        Showln sTemp1
        Get ComSubject Of hoEmail To sTemp1
        Showln sTemp1
        Showln "----"
        Send Destroy of hoEmail
    Loop

    // Close the connection with the POP3 server, leaving the SSH tunnel open for subsequent POP3 connections.
    Get ComPop3EndSession Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

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

    // Set the POP3 settings for your POP3 server:
    Set ComPopUsername Of hoMailman To "pop3_login2"
    Set ComPopPassword Of hoMailman To "pop3_password2"
    Set ComMailPort Of hoMailman To 110
    Set ComPopSsl Of hoMailman To False

    Get ComPop3BeginSession Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Review the LastErrorText to see that the connection was made via the SSH tunnel:
    Get ComLastErrorText Of hoMailman To sTemp1
    Showln sTemp1

    Get ComPop3EndSession Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Close the SSH tunnel.
    Get ComSshCloseTunnel Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.