(Perl) SMTP NTLM Authentication

See more SMTP Examples

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$mailman = chilkat::CkMailMan->new();

# Specify your particular mail server's SMTP settings.
$mailman->put_SmtpHost("smtp.my_mail_server.com");
$mailman->put_SmtpPort(587);
$mailman->put_StartTLS(1);

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

$useCurrentWindowsUser = 1;

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

$email = chilkat::CkEmail->new();

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
# Don't forget to change this to use your email addresses..
$email->put_From('Chilkat Support <support@chilkatsoft.com>');
$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 != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

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

print "Mail Sent!" . "\r\n";