Hello,
Did you already resolve it?
There is space before *END*.
#!Perl
print <<"*END*";
Hello,
world!
*END*
Regards,
________________________________
From: [email protected]
[mailto:[email protected]] On Behalf Of Perl
Perl
Sent: Wednesday, March 04, 2009 10:07 PM
To: [email protected]
Subject: Issue with Mail::Sender : Help needed
Dear All,
I am getting the below error for Mail::Sender utility. Which sends the
mail. Your help will be a great help for me. Error is,
Can't find string terminator "*END*" anywhere before EOF at
Mail_Attach.pl line 18.
Please find the complete code as below, and platform is Linux.
#!usr/local/bin/perl -w
use Mail::Sender;
$Sender = new Mail::Sender ( {
from => '[email protected]',
Error => 'Code'
} )
or die " Can't create the sender object
$Mail::Sender::Error \n";
$Sender -> OpenMultipart ( {
to => '[email protected]',
cc => '[email protected]',
subject => 'Checked out Reminder'
} )
or die " Can't open Multiple connection
$Sender -> {'Error'} \n";
#$Sender->Body({ msg => <<'*END*' }); # error is here
$Sender->Body;
$Sender->SendEnc(<<'*END*'); # if I use this code, then
error is here.
Hi User,
How are you ?
Long time to send a mail.
Here is a new module Mail::Sender.
*END*
$Sender -> Attach ( {
description => 'File file.txt is checked out',
ctype => 'application/x-zip-encoded',
encoding => 'Base64',
disposition => 'attachment; filename="file.zip"; type="ZIP
archive"',
file => 'file.zip'
})
or die " Can't attach the file : $Sender -> {'Error_Code'}
\n";
$Sender -> Close() or die " Can't Send the mail $Sender -> { 'Error' }
\n";
Regards,
Mujju
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
