(AutoIt) Send High Priority Email (SMTP, X-Priority header)

Demonstrates how to send high-priorty email (or lower priority email) by setting the X-Priority header field.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; 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")

; Set the SMTP server (obviously, use your SMTP server, not chilkatsoft.com)
$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>"
Local $bSuccess = $oEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")
; To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

; To send high-priority email, 
; add the X-Priority header field with the value "1" 
; to indicate highest-priority.
; A value of "3" is normal, which is the same as not setting
; the X-Priority header at all, and "5" is the lowest. 
; "2" and "4" are in-betweens.

; Microsoft Outlook might add the following headers when
; sending high-priority email.

; X-Priority: 1 (Highest) 
; X-MSMail-Priority: High 
; Importance: High 

; The X-Priority header alone is enough to make the email high-priority.

$oEmail.AddHeaderField "X-Priority","1"

; 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

$bSuccess = $oMailman.CloseSmtpConnection()
If ($bSuccess <> True) Then
    ConsoleWrite("Connection to SMTP server not closed cleanly." & @CRLF)
EndIf

ConsoleWrite("Mail Sent!" & @CRLF)