Need to send an email through my SMTP server using Perl

Logic_Bomb421 has asked for the wisdom of the Perl Monks concerning the following question:

So like the title says, I need to send an email via my SMTP server. It's just a simple test email designed to verify the SMTP server is active and doing its job. Here's what I have so far (with email addresses removed):

#!/usr/bin/perl

use lib "/path/to/Net::SMTP/module";
use Net::SMTP

$host = "SMTP SERVER";
$port = 25;

$smtp = Net::SMTP->new($host, Hello =>  port=>$port)
    
$smtp->mail("FROM EMAIL ADDRESS");
$smtp->recipient("TO EMAIL ADDRESS");
$smtp->data;
$smtp->datasend("From: host\@domain.com");
$smtp->datasend("To: account\@domain.com\n");
$smtp->datasend("Subject: Test");
$smtp->datasend("\n");
$smtp->datasend ("This is a test");

$smtp->dataend;
$smtp->quit;
[download]

When I run this, I get the error:

"SMTP SERVER" is not exported by the Net::SMTP module. Can't continue 
+after import errors at line 6.
[download]

What does it mean "is not exported"?

Comment on Need to send an email through my SMTP server using Perl Select or Download Code

Replies are listed 'Best First'.
Re: Need to send an email through my SMTP server using Perl by toolic (Bishop) on Aug 29, 2014 at 18:46 UTC
Add a semicolon. Change: `use Net::SMTP` [download] to: `use Net::SMTP;` [download] You need one after your "new" line, too. I figured this out by deleting most of your lines of code until the error disappeared.	[reply] [d/l] [select]
Re^2: Need to send an email through my SMTP server using Perl by Logic_Bomb421 (Novice) on Aug 29, 2014 at 19:13 UTC
It's always a damn semicolon! Ah well. I went ahead and fixed those and now it's saying it can't call method put() on an undefined value.	[reply]
Re^3: Need to send an email through my SMTP server using Perl by socketdave (Curate) on Aug 29, 2014 at 21:07 UTC
Even if you clean up personal information, you should still post code that will run. Also, be sure to post the entire error message. Did you delete the content you're assigning to 'Hello'? That would yield something like the error you mention in your reply. It should do a decent job of picking a helo line for you. `use strict; use warnings; use Net::SMTP; $host = "mail.host.com"; $port = 25; $smtp = Net::SMTP->new($host, port=>$port); $smtp->mail("test\@domain.com"); $smtp->recipient("test\@domain2.com"); $smtp->data; $smtp->datasend("From: test\@domain.com"); $smtp->datasend("To: test\@domain2.com"); $smtp->datasend("Subject: Test"); $smtp->datasend("\n"); $smtp->datasend ("This is a test"); $smtp->dataend; $smtp->quit;` [download]	[reply] [d/l]
Re^3: Need to send an email through my SMTP server using Perl by faber (Acolyte) on Sep 03, 2014 at 05:44 UTC
Really you're going to find it much easier in the long wrong (espcially to manage) to just utilize Email::Sender::Simple with Email::Simple::Creator: here's an easy to understand example: my $email = Email::Simple->create( header => [ To => $p->{email_to}, Cc => $p->{email_cc}, From => $CONF->{smtp}->{from}, Subject => $sub ], body => $str ); if($DRYRUN){ print "---- EMAIL ----\n${$email->{body}}\n---- END FO + EMAIL ----\n" if $DEBUG; } elsif($CONF->{smtp}->{enabled}) { # Do some more emailing and stuff below... my $transport; $transport = Email::Sender::Transport::SMTP->new({ host => $CONF->{smtp}->{hos +t}, port => $CONF->{smtp}->{por +t}, ssl => $CONF->{smtp}->{ssl +}, sasl_username => $CONF->{smtp}->{sas +l_username}, sasl_password => $CONF->{smtp}->{sas +l_password}, allow_partial_success => $CONF->{smtp}->{all +ow_partial_success}, helo => $CONF->{smtp}->{hel +o}, localaddress => $CONF->{smtp}->{loc +aladdress}, localport => $CONF->{smpt}->{loc +alport}, timeout => $CONF->{smpt}->{tim +eout} }); sendmail($email, { transport => $transport }); } [download]	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks