Perl

SMTP NTLM Authentication

See more SMTP Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $mailman = Chilkat2::MailMan->new;

# Specify your particular mail server's SMTP settings.
$mailman->SmtpHost('smtp.my_mail_server.com');
$mailman->SmtpPort(587);
$mailman->StartTLS(1);

# This assumes you know your SMTP server supports NTLM authentication.
# To explicitly request NTLM authentication, set the SmtpAuthMethod property = "ntlm".
$mailman->SmtpAuthMethod('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.

my $useCurrentWindowsUser = 1;

if ($useCurrentWindowsUser) {
    # 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"
    $mailman->SmtpUsername('default');
    $mailman->SmtpPassword('default');
} else {
    # Explicitly specify the SMTP username/password
    # The SMTP username is your email account username, which is often your email address.
    $mailman->SmtpUsername('your_smtp_username_or_email_address');
    $mailman->SmtpPassword('your_password');
}

my $email = Chilkat2::Email->new;

$email->Subject('This is a test');
$email->Body('This is a test');
# Don't forget to change this to use your email addresses..
$email->From('Chilkat Support <support@chilkatsoft.com>');
my $success = $email->AddTo('Chilkat Admin', 'admin@chilkatsoft.com');
# To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

$success = $mailman->SendEmail($email);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

$success = $mailman->CloseSmtpConnection();
if (!$success) {
    print "Connection to SMTP server not closed cleanly.\n";
}

print "Mail Sent!\n";