in reply to Re: Need to send an email through my SMTP server using Perl
in thread Need to send an email through my SMTP server using Perl

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.

  • Comment on Re^2: Need to send an email through my SMTP server using Perl

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom