Unicode C

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. Unicode C

#include <C_CkMailManW.h>
#include <C_CkEmailW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkMailManW mailman;
    const wchar_t *sshHostname;
    int sshPort;
    int numToDownload;
    int i;
    HCkEmailW email;

    success = FALSE;

    // 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.
    mailman = CkMailManW_Create();

    // 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).
    sshHostname = L"sftp.example.com";
    sshPort = 22;

    // Connect to an SSH server and establish the SSH tunnel:
    success = CkMailManW_SshOpenTunnel(mailman,sshHostname,sshPort);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        return;
    }

    // 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.
    success = CkMailManW_SshAuthenticatePw(mailman,L"ssh_login",L"ssh_password");
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        return;
    }

    // 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
    CkMailManW_putMailHost(mailman,L"mail.my-pop3-server.com");

    // Set the POP3 settings for your POP3 server:
    CkMailManW_putPopUsername(mailman,L"pop3_login");
    CkMailManW_putPopPassword(mailman,L"pop3_password");
    CkMailManW_putMailPort(mailman,995);
    CkMailManW_putPopSsl(mailman,TRUE);

    // Connect to the POP3 server through the already-established SSH tunnel:
    success = CkMailManW_Pop3BeginSession(mailman);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        return;
    }

    // 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.
    wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));

    // How many messages are in the POP3 inbox?
    numToDownload = CkMailManW_GetMailboxCount(mailman);
    if (numToDownload > 5) {
        numToDownload = 5;
    }

    if (numToDownload == 0) {
        wprintf(L"No messages in the POP3 inbox.\n");
        CkMailManW_Dispose(mailman);
        return;
    }

    // Download a max of 5 messages

    email = CkEmailW_Create();
    for (i = 1; i <= numToDownload; i++) {
        success = CkMailManW_FetchOne(mailman,FALSE,0,i,email);
        if (success == FALSE) {
            wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
            CkMailManW_Dispose(mailman);
            CkEmailW_Dispose(email);
            return;
        }

        wprintf(L"%s\n",CkEmailW_ck_from(email));
        wprintf(L"%s\n",CkEmailW_subject(email));
        wprintf(L"----\n");
    }

    // Close the connection with the POP3 server, leaving the SSH tunnel open for subsequent POP3 connections.
    success = CkMailManW_Pop3EndSession(mailman);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        CkEmailW_Dispose(email);
        return;
    }

    // Try connecting to a different POP3 server through the same aleady setup SSH tunnel:
    // Set the POP3 server's hostname
    CkMailManW_putMailHost(mailman,L"mail.my-pop3-server2.com");

    // Set the POP3 settings for your POP3 server:
    CkMailManW_putPopUsername(mailman,L"pop3_login2");
    CkMailManW_putPopPassword(mailman,L"pop3_password2");
    CkMailManW_putMailPort(mailman,110);
    CkMailManW_putPopSsl(mailman,FALSE);

    success = CkMailManW_Pop3BeginSession(mailman);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        CkEmailW_Dispose(email);
        return;
    }

    // Review the LastErrorText to see that the connection was made via the SSH tunnel:
    wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));

    success = CkMailManW_Pop3EndSession(mailman);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        CkEmailW_Dispose(email);
        return;
    }

    // Close the SSH tunnel.
    success = CkMailManW_SshCloseTunnel(mailman);
    if (success == FALSE) {
        wprintf(L"%s\n",CkMailManW_lastErrorText(mailman));
        CkMailManW_Dispose(mailman);
        CkEmailW_Dispose(email);
        return;
    }



    CkMailManW_Dispose(mailman);
    CkEmailW_Dispose(email);

    }