Sending Mails with Perl using Net::SMTP

ADVERTISEMENT

Author

pradeep ( Team Leader )

Yet to provide details about himself

All articles By pradeep

Recent Articles

• Ceil/Floor/Round in Perl, Started by pradeep in Perl
• Access Amazon S3 Service using Perl, Started by pradeep in Perl
• Easy Pagination In Perl, Started by pradeep in Perl
• Progress Bar in Perl, Started by pradeep in Perl
• Strip/sanitize HTML with Perl, Started by pradeep in Perl

Similar Articles

• Sending Emails in ASP.NET, Started by decodec in ASP / ASP.NET
• Sending e-mail in ASP with CDOSYS, Started by pradeep in ASP / ASP.NET
• XML parsing in Perl, Started by pradeep in Perl
• Paths in Perl, Started by pradeep in Perl

There are many ways to send email from a Perl script, one the all time popular being using sendmail. But, there are other ways of sending emails, one of which is using the module Net::SMTP.All you have to do is to include the Net::SMTP module in your script and try using the example below.

use Net::SMTP;
  #Create a new object with 'new'. 
  $smtp = Net::SMTP->new("smtp.go4expert.com");
  #Send the MAIL command to the server.
  $smtp->mail("pradeep\@go4expert.com");
  #Send the server the 'Mail To' address. 
  $smtp->to("shabbir\@go4expert.com");
  #Start the message. 
  $smtp->data();
  #Send the message. 
  $smtp->datasend("Hello World!\n\n");
  #End the message. 
  $smtp->dataend();
  #Close the connection to your server. 
  $smtp->quit();

Read more about Net::SMTP here.

[l8rgator]

I had some trouble getting net:SMTP working on a server that required smtp authentication on a windows web server using cgi perl.

We finally got it working, so I wanted to share the code somewhere:

#!C:\perl\bin\perl

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Net::SMTP;
use MIME::Base64;

      print header;
      print start_html("Environment");

      #Keep debug off in order for web and email to both work correctly on large messages
      $smtp = Net::SMTP->new(
          '[b]smtp.MYEMAILSMTPSERVER.com[/b]' ,
# may need a helo parameter here on some servers
           Timeout => 30,
           Debug   => 0,
       );

      $smtp->datasend("AUTH LOGIN\n");
      $smtp->response();

      #  -- Enter sending email box address username below.  We will use this to login to SMTP --
      $smtp->datasend(encode_base64('[b]TYPEEMAILACCOUNTUSERNAMEHERE[/b]') );
      $smtp->response();

      #  -- Enter email box address password below.  We will use this to login to SMTP --
      $smtp->datasend(encode_base64('[b]TYPEEMAILACCOUNTPASSWORDHERE[/b]') );
      $smtp->response();
                      
      #  -- Enter email FROM below.   --
      $smtp->mail('[b]ENTEREMAILADDRESSFROM@DOMAINNAME.COM[/b]');

      #  -- Enter email TO below --
      $smtp->to('[b]ENTEREMAILADDRESSTOMAILTO@DOMAINNAME.COM[/b]');

      $smtp->data();

      #This part creates the SMTP headers you see
      $smtp->datasend("To: [b]Test\@DOMAINNAME.com[/b]\n");
      $smtp->datasend("From: A Test Account <[b]TEST\@DOMAINNAME.com[/b]>\n");
      $smtp->datasend("Content-Type: text/html \n");
      $smtp->datasend("Subject: A Test Message");
    
      # line break to separate headers from message body
      $smtp->datasend("\n");

      $smtp->datasend("Here is my test message body");

      $smtp->datasend("\n");
      $smtp->dataend();

      $smtp->quit;

[pradeep]

Normally SMTP uses PLAIN authentication, why are you base64 encoding it?? There are many authentication mechanisms!

[l8rgator]

Only because PLAIN didn't work, and this did.

I'm open to suggestions.

[pradeep]

There a method auth ( USERNAME, PASSWORD ), try using this instead, it'll automatically select the appropriate authentication mechanism!

[l8rgator]

That's what we thought, but after working on it that way for a day we just still couldn't get it to work.

I am not an expert on CGI/Perl, so I was working with someone who was - I apologize if I don't explain very well, but here is what I got out of it:

I'm sorry I didn't write down the exact error we started with, but it might have been the
535 Incorrect authentication data

Finally after a day of struggling, we decided to try AUTH LOGIN instead of PLAIN or the other option. That didn't work at first, so we tried encoding the username & password. Suddenly, it worked.
It seemed to need to wait for a response also, so that's why the $smtp->response(); was added.

Does that even make sense???

[rgermano]

This code only seems to work. In case you have a negative response from the server, eg. $smtp->response() will still return ok

[Lizapotter]

Hello pardeep

Good article, There are a number of ways to tell Perl scripts where to send email.

Here is the script. Below the code is a discussion of it's various elements.


#!/usr/bin/perl
$Mailer = '/sbin/sendmail -t';
$Email = $ENV{QUERY_STRING};
open MAIL,"|$Mailer";
print MAIL <<THE_EMAIL;
From: me\@mydomain.com
To: $Email
Subject: My first mailer


This is the auto-response email sent when I launched the
script with a "?$Email" following the script's URL.


Yeah!
THE_EMAIL
close MAIL;
print "Content-type: text/html\n\n";
print '<center>T H A N K Y O U !</center>';
# end of script



The first line of the script must have the location of Perl on your server.

[rahul_mawana]

Today mostly SMTP server require SSL authntication so u will have to use
Net::SMTP_auth instead of
Net::SMTP
.It works fine i tested it if any body has problem about it then tell me ,i will post smtp server name(obivsly free h yaar) nd script that works fine,
till then happy progqaming