AutoIt

SMTP using SOCKS5, SOCKS4 Proxy

Demonstrates how to communicate with an SMTP server via a SOCKS4 or SOCKS5 proxy. AutoIt

Local $bSuccess = 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 sending and receiving email.
$oMailman = ObjCreate("Chilkat.MailMan")

; To use a SOCKS4 or SOCKS5 proxy, simply set the following
; properties prior to making any calls that communicate with
; an SMTP server:
; The SOCKS hostname may be a domain name or 
; IP address:
$oMailman.SocksHostname = "www.mysocksproxyserver.com"
$oMailman.SocksPort = 1080
$oMailman.SocksUsername = "myProxyLogin"
$oMailman.SocksPassword = "myProxyPassword"
; Set the SOCKS version to 4 or 5 based on the version
; of the SOCKS proxy server:
$oMailman.SocksVersion = 5
; Note: SOCKS4 servers only support usernames without passwords.
; SOCKS5 servers support full login/password authentication.

; Set the SMTP server.
$oMailman.SmtpHost = "smtp.chilkatsoft.com"

; Set the SMTP login/password (if required)
$oMailman.SmtpUsername = "myUsername"
$oMailman.SmtpPassword = "myPassword"

; Create a new email object
$oEmail = ObjCreate("Chilkat.Email")

$oEmail.Subject = "This is a test"
$oEmail.Body = "This is a test"
$oEmail.From = "Chilkat Support <support@chilkatsoft.com>"
$bSuccess = $oEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")

; Call SendEmail to connect to the SMTP server and send.
; The connection (i.e. session) to the SMTP server remains
; open so that subsequent SendEmail calls may use the
; same connection.  
$bSuccess = $oMailman.SendEmail($oEmail)
If ($bSuccess <> True) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

; Some SMTP servers do not actually send the email until 
; the connection is closed.  In these cases, it is necessary to
; call CloseSmtpConnection for the mail to be  sent.  
; Most SMTP servers send the email immediately, and it is 
; not required to close the connection.  We'll close it here
; for the example:
$bSuccess = $oMailman.CloseSmtpConnection()
If ($bSuccess <> True) Then
    ConsoleWrite("Connection to SMTP server not closed cleanly." & @CRLF)
EndIf

ConsoleWrite("Mail Sent!" & @CRLF)