From: [email protected]
[mailto:[email protected]] On Behalf Of Perl
Perl
Sent: 04 March 2009 13:07
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,
>
> #!usr/local/bin/perl -w
'use strict;' missing.
>
> 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";
What makes you think your problem is anything to do with Mail::Sender?
(Hint: it isn't.)
It looks like your terminator might have a space in front of it.
There is a FAQ about this, see 'perldoc -q "here doc"'. Also, if you had
tried adding 'use diagnostics;' (one of the first things to try if you
can't understand a perl error or warning message) it would have
explained the error in more detail, including a hint as to where the
problem was.
HTH
--
Brian Raven
-----------------------------------------------------------------------------------------------------------
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy. Any unauthorised copying, disclosure or
distribution of the material in this e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
