Regular Emails

Written by:

---

use NET::SMTP;
use strict;

# ===========================
# Add your info
# -----------------------------------------------
my $mailserver = 'mail.ISPexample.dom'; # add proper outbound mail server, as given by your ISP
my $from = 'exampleFrom@test.test'; # your email address here
my $to = 'exampleTo@test.test'; # the recipient's email address
my $subject = 'Test subject'; # this is what the martians look at

# the body of the message here, everything between the two EOM
my $msg = <<EOM;

This is a test message.
Place the body of the email here, leaving the last line, EOM, intact.

EOM

# ===========================
# ignore the rest of this, just code crap
# -----------------------------------------------
my $smtp = Net::SMTP->new($mailserver,
Hello => 'mailsend',
Debug => 1,
);

$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend(
"From: $from\n" .
"To: $to\n" .
"Subject: $subject\n" .
"$msg"
);
$smtp->dataend();

$smtp->quit;

---

Written by: mtbeer

---

"Yeah. It's just that we're putting new coversheets on all the TPS reports *before* they go out now. So if you could just remember to do that from now on, that'd be great. All right " - Lumbergh

---

I love that film

Sorry for Hijacking the thread