[/home/abc/cde/mnd] s-t$ test.pl
Scalar found where operator expected at test.pl line 25, near “”Content-type: multipart/mixed;ntboundary=”$boundary”
(Missing operator before $boundary?)
String found where operator expected at test.pl line 25, near “$boundary”n”"
(Missing operator before “n”?)
Scalar found where operator expected at test.pl line 32, near “”Content-Type: application/text; name=”$attachFile”
(Missing operator before $attachFile?)
String found where operator expected at test.pl line 32, near “$attachFile”n”"
(Missing operator before “n”?)
Scalar found where operator expected at test.pl line 33, near “”Content-Disposition: attachment; filename=”$attachFile”
(Missing operator before $attachFile?)
String found where operator expected at test.pl line 33, near “$attachFile”n”"
(Missing operator before “n”?)
Possible unintended interpolation of @csvn in string at test.pl line 35.
syntax error at test.pl line 25, near “”Content-type: multipart/mixed;ntboundary=”$boundary”
Global symbol “$boundaryn” requires explicit package name at test.pl line 27.
Global symbol “$boundaryn” requires explicit package name at test.pl line 31.
syntax error at test.pl line 32, near “”Content-Type: application/text; name=”$attachFile”
syntax error at test.pl line 33, near “”Content-Disposition: attachment; filename=”$attachFile”
Global symbol “@csvn” requires explicit package name at test.pl line 35.
Bareword “DATA” not allowed while “strict subs” in use at test.pl line 15.
Execution of test.pl aborted due to compilation errors.

this stipulates that the Filehandle, DATA be read into @csv.

\<
<>

this stipulates that the Filehandle, DATA be read into @csv.

Thanks for upload. I wanted to send multiple attachments instead. What modifications are needed.

Thanks,
Chirag

syntax error at fullRiskEmail.pl line 29, near “= ;”
Exectution of fullRiskEmail.pl aborted due to complilation errors

I have also tried with @csv = DATA;
and i get the following error:
Barework “DATA” not allowed while “strict subs” in use at fullRiskEmail.pl line 29

Thanks again

Here is the code that i am using:
open(DATA, $data_file) || die(“Could not open the file”);
my @csv = ;
close(DATA);

sendEmail();

sub sendEmail()
{
my $msgPrefix = “Attached is the full Risk Report\n\n”;
my $msgSuffix = “\nIf you no longer need the full report daily, please let me know.”;

my $smtp = Net::SMTP->new($smtpServer) or die “The error is: $!”;

$smtp->mail($fromEmail);
# $smtp->to($toEmail1);
$smtp->to($toEmail2);
$smtp->data();

# $smtp->datasend(“To: $toEmail1\n”);
$smtp->datasend(“To: $toEmail2\n”);
$smtp->datasend(“Subject: Full Risk Report\n”);

$smtp->datasend(“MIME-Version: 1.0\n”);

# $smtp->datasend(“Content-type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet;ntboundary=”$boundary”n”);

$smtp->datasend(“Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet; name=” . $attachment);
$smtp->datasend(“\n”);
$smtp->datasend(“–$boundary\n”);
$smtp->datasend(“Content-type: text/plain\n”);
$smtp->datasend(“Content-Disposition: quoted-printable\n”);
$smtp->datasend(“\nTest From Youn”);
$smtp->datasend(“–$boundary\n”);
# $smtp->datasend(“Content-Type: application/text; name=\”$attachment\”\n”);
# $smtp->datasend(“Content-Disposition: attachment; filename=\”$attachment\”\n”);
$smtp->datasend(“Content-Disposition: attachment; filename=” . $attachment . “\n”);
$smtp->datasend(“\n”);
$smtp->datasend(“@csv\n”);
$smtp->datasend(“–$boundary–\n”);

# $smtp->datasend(“Content-Disposition: attachment; filename=” . $attachment . “\n”);
# $smtp->datasend(“Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet; name=” . $attachment);

$smtp->datasend($msgPrefix . $_[0] . $msgSuffix);
$smtp->dataend();
$smtp->quit;
}
exit;

—————————————————————

Here are the errors:

Unrecognized escape \d passed through at fullRiskEmail.pl line 19
Unrecognized escape \M passed through at fullRiskEmail.pl line 19
unrecognized escape \R passed through at fullRiskEmail.pl line 19
main::sendEmail() called too early to check prototype at fulRiskEmail.pl line 25
syntax error at fullRiskEmail.pl line 21, near “= ;”
Execution of fullRiskEmail.pl aborted due to complation errors

*******************************

thanks larry

Actually I couldn’t compile the above code and changed to
open (DATA, “$data_file”) || die(“Could not open the file”);
my @avi = ;
close DATA;

Thanks

I used this code for sending a mail with an .txt attachment, However data of the .txt file directly printed in the mail body, there is no attachment in the mail.

I need to send the mail with attchment.

Kindly help me.

Thanks