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,
#!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
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
