Perl

Set the X-Priority Header of an Email

Demonstrates how to set the X-Priority header field of an email. Perl

use chilkat();

#  The AddHeaderField can be called to add any header field.
#  If the header field already exists, AddHeaderField replaces it.
$email = chilkat::CkEmail->new();
$email->AddHeaderField("X-Priority","3 (Normal)");

$email->AddHeaderField("X-Priority","1 (High)");

$email->AddHeaderField("X-Priority","5 (Low)");

#  The X-Priority value ranges from 1 to 5, with 1 being 
#  high priority, 3 is normal, and 5 is low.
#  You may set X-Priority to the number alone:

$email->AddHeaderField("X-Priority","1");

#  Including extra text, such as (High), should not 
#  affect how the header is interpreted.
$email->AddHeaderField("X-Priority","1 (High)");