AutoIt

SMTP using HTTP Proxy

Demonstrates how to communicate with an SMTP server via an HTTP 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 connect through an HTTP proxy, set the HttpProxyHostname
; and HttpProxyPort properties to the hostname (or IP address)
; and port of the HTTP proxy.  Typical port numbers used by
; HTTP proxy servers are 3128 and 8080.
$oMailman.HttpProxyHostname = "www.my-http-proxy.com"
$oMailman.HttpProxyPort = 3128

; Important:  Your HTTP proxy server must allow non-HTTP
; traffic to pass.  Otherwise this does not work.

; 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 via the HTTP proxy 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)