Perl

Send an SMTP NOOP Command

Demonstrates the Chilkat MailMan.SmtpNoop method, which sends an SMTP NOOP command to the server. NOOP does nothing except elicit a positive response, which is useful for keeping a connection alive or verifying it is still responsive. This example opens an SMTP connection, sends a NOOP, and closes.

Background: When holding an SMTP connection open across many sends (see OpenSmtpConnection), an idle stretch can cause the server to time out and drop the socket. A periodic NOOP keeps the session active and confirms the server is still responding, so the next SendEmail doesn't fail on a silently-closed connection.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MailMan.SmtpNoop method, which sends an SMTP NOOP command to the server.
# NOOP does nothing except elicit a positive response, useful for keeping a connection
# alive or verifying it is still responsive.

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

# Configure the SMTP server connection.
$mailman->SmtpHost('smtp.example.com');
$mailman->SmtpPort(465);
$mailman->SmtpSsl(1);
$mailman->SmtpUsername('user@example.com');
$mailman->SmtpPassword('myPassword');

# Open the SMTP connection.

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

# Send a NOOP to keep the connection alive.
$success = $mailman->SmtpNoop();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

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

print "SMTP NOOP succeeded.\n";