Re^3: Net::SMTP Module query

[karlgoethebier]

in reply to Re^2: Net::SMTP Module query
in thread Net::SMTP Module query

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;

Please try this. Regards, Karl

[gilesy]

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

[karlgoethebier]

May be but anyway take a look at this:

#!/usr/bin/perl

use MIME::Lite;
use strict;
use warnings;

my $msg = MIME::Lite->new(
        From     => 'someone@somewhere',
        To       => 'someone@nowhere',
        Subject  => 'It is a test',
        Data     => 'I prefere this module.'
    );

$msg->send('smtp','host', Debug => 1);

Regards, Karl

[gilesy]

Thanks Karl, I've actually included the MIME::Lite module as part of my overall script but wanted to get Net::SMTP working first as this module is already installed on the particular server i'm working on. I have asked for the Mime::Lite module to be installed and am still waiting a good 2 weeks since I originally asked (I don't have access to install this module on the server myself).