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)