Perl

Auto-Generate or Explicitly Specify the Message-ID Email Header

Demonstrates how to auto-generate or explicitly specify the Message-ID header field. Perl

use chilkat();

$success = 0;

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

$email->put_Subject("test");
$email->put_Body("test");
$email->AddTo("Joe",'joe@example1.com');
$email->put_From('mary@example2.com');

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

# When the mailman sends email, it renders the email to be sent,
# and then sends the rendered MIME.

# Instead of actually sending the email, this example will render
# to MIME so we can see what would be sent..

# We can explicitly set the Message-ID like this:
$mailman->put_AutoGenMessageId(0);
$email->AddHeaderField("Message-ID",'<xyz123@abc>');

$mimeStr = $mailman->renderToMime($email);
print $mimeStr . "\r\n";

# This is what we get:

# MIME-Version: 1.0
# Date: Mon, 20 Jul 2020 17:20:09 -0500
# Message-ID: <xyz123@abc>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: test
# To: Joe <joe@example1.com>
# From: mary@example2.com
# 
# test

print "--------" . "\r\n";

# If we auto-generate...
$mailman->put_AutoGenMessageId(1);
$mimeStr = $mailman->renderToMime($email);
print $mimeStr . "\r\n";

# We get this:

# MIME-Version: 1.0
# Date: Mon, 20 Jul 2020 17:21:20 -0500
# Message-ID: <04EDE096BBFE484967F6398A973B0FCF6EA09A44@CHILKATSLICE>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: test
# To: Joe <joe@example1.com>
# From: mary@example2.com
# 
# test