in reply to Net::SMTP Module query

perl -c mail.pl

Possible unintended interpolation of @address in string at mail.pl lin
+e 11.
Possible unintended interpolation of @address in string at mail.pl lin
+e 12.
Global symbol "@address" requires explicit package name at mail.pl lin
+e 11.
Global symbol "@address" requires explicit package name at mail.pl lin
+e 12.

[download]
my $MailFrom = "from\@address.com";
my $MailTo = "gilesy\@address.com";

[download]

Try this. Didn't check the rest. Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Replies are listed 'Best First'.
Re^2: Net::SMTP Module query
by gilesy (Initiate) on Nov 12, 2012 at 12:06 UTC
    Hi Karl, Thanks for the swift reply. I actually edited my code when posting to this site and do have that code in my script 
    my $MailFrom = "from\@address.com";
my $MailTo = "gilesy\@address.com";

    [download]
    ..... but the email isn't being sent. I'm getting the output I displayed in original post.
[reply]
[d/l]

      Update:

      Sorry, the first line was wrong for you. But i think you noted this.

      #!/usr/bin/perl

use Net::SMTP;
use strict;
use warnings;

print "Content-type: text/html\n\n";

my $MailHost = "mailhost";
my $MailFrom = "someone\@somewhere";
my $MailTo   = "someone\@somewhere";
my $subject  = "Super!\n";
my $MailBody = "It works!\n";
my $smtp     = Net::SMTP->new($MailHost) || die $!;

$smtp->mail($MailFrom);
$smtp->to($MailTo);

$smtp->data();

$smtp->datasend("To: $MailTo\n");
$smtp->datasend("From: $MailFrom\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$MailBody\n\n");

$smtp->dataend();
$smtp->quit;

      [download]

      Please try this. Regards, Karl

      «The Crux of the Biscuit is the Apostrophe»

[reply]
[d/l]
        Hi Karl, I tried your code but the email still isn't being received. Must be a security issue on the server.
[reply]

In Section Seekers of Perl Wisdom