On 27/04/2013 00:21, Rajeev Prasad wrote:
following is still coming out as normal priority email.
use strict;
use warnings;
use Email::MIME;
use Email::Sender::Simple qw(sendmail);
my @mesg=qw(fox jumps over the);
my $subject='IMP mesg';
my $message = Email::MIME->create(
header_str => [
From => '<[email protected]>',
To => '<'[email protected]>',
Subject => $subject,
],
attributes => {
encoding => 'quoted-printable',
charset => 'ISO-8859-1',
'X-Priority' => 1,
'X-MSMail-Priority' => 'High',
},
body_str => "@mesg",
);
sendmail($message);
Which email client are you using? Priority is a non-standard email
feature and it depends which headers the client looks at.
You might also want to try
Importance => 'High'
HTH,
Rob
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
