Tcl

SMTP NTLM Authentication

See more SMTP Examples

Demonstrates how to specify NTLM authentication for sending email via SMTP. Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set mailman [new_CkMailMan]

# Specify your particular mail server's SMTP settings.
CkMailMan_put_SmtpHost $mailman "smtp.my_mail_server.com"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

# This assumes you know your SMTP server supports NTLM authentication.
# To explicitly request NTLM authentication, set the SmtpAuthMethod property = "ntlm".
CkMailMan_put_SmtpAuthMethod $mailman "ntlm"

# Note: Normally you should avoid setting the SmtpAuthMethod.
# SMTP servers tell the connecting client the authentication methods it will accept when the initial connection is made.
# Chilkat will automatically use this information to select and use the most secure auth method supported by the server.

set useCurrentWindowsUser 1

if {$useCurrentWindowsUser == 1} then {
    # If you are running on Windows, and you wish for the NTLM credentials of the current logged-on Windows user to be used,
    # set the username and password to the string "default"
    CkMailMan_put_SmtpUsername $mailman "default"
    CkMailMan_put_SmtpPassword $mailman "default"
} else {
    # Explicitly specify the SMTP username/password
    # The SMTP username is your email account username, which is often your email address.
    CkMailMan_put_SmtpUsername $mailman "your_smtp_username_or_email_address"
    CkMailMan_put_SmtpPassword $mailman "your_password"
}

set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test"
CkEmail_put_Body $email "This is a test"
# Don't forget to change this to use your email addresses..
CkEmail_put_From $email "Chilkat Support <support@chilkatsoft.com>"
set success [CkEmail_AddTo $email "Chilkat Admin" "admin@chilkatsoft.com"]
# To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    exit
}

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts "Connection to SMTP server not closed cleanly."
}

puts "Mail Sent!"

delete_CkMailMan $mailman
delete_CkEmail $email