Visual FoxPro

Use an Existing Socket SSH Tunnel

Demonstrates the Chilkat MailMan.UseSshTunnel method, which configures MailMan to use an existing SSH tunnel provided by a Socket object for its SMTP and POP3 connections. This example opens and authenticates a tunnel on a Socket, hands it to MailMan, and then verifies an SMTP login through it.

Background: Sharing one already-established SSH tunnel across objects avoids opening (and authenticating) a separate SSH connection for every component that needs to reach the remote network. Here the tunnel lives on a Socket object, which MailMan then routes its SMTP/POP3 traffic through. It is the Socket-based sibling of UseSsh, which shares an Ssh object instead.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSshTunnel
LOCAL loMailman

lnSuccess = 0

*  Demonstrates the MailMan.UseSshTunnel method, which configures MailMan to use an existing
*  SSH tunnel provided by a Socket object for its SMTP and POP3 connections.

*  Open and authenticate the SSH tunnel using a Socket object.
loSshTunnel = CreateObject('Chilkat.Socket')
lnSuccess = loSshTunnel.SshOpenTunnel("ssh.example.com",22)
IF (lnSuccess = 0) THEN
    ? loSshTunnel.LastErrorText
    RELEASE loSshTunnel
    CANCEL
ENDIF

lnSuccess = loSshTunnel.SshAuthenticatePw("sshUser","sshPassword")
IF (lnSuccess = 0) THEN
    ? loSshTunnel.LastErrorText
    RELEASE loSshTunnel
    CANCEL
ENDIF

loMailman = CreateObject('Chilkat.MailMan')

*  Configure the SMTP server connection.  These connections will travel through the tunnel.
loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpPort = 465
loMailman.SmtpSsl = 1
loMailman.SmtpUsername = "user@example.com"
loMailman.SmtpPassword = "myPassword"

*  Tell MailMan to route its connections through the existing tunnel.
lnSuccess = loMailman.UseSshTunnel(loSshTunnel)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loSshTunnel
    RELEASE loMailman
    CANCEL
ENDIF

*  SMTP operations now travel through the shared SSH tunnel.
lnSuccess = loMailman.VerifySmtpLogin()
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loSshTunnel
    RELEASE loMailman
    CANCEL
ENDIF

? "Authenticated with the SMTP server through the SSH tunnel."

RELEASE loSshTunnel
RELEASE loMailman