Sending Mail trough Perl using ActivePerl on windows

[the_hawk_1]

Hi Monks!

I need to send email alerts from perl script, but I don't have Mail::Mailer installed, and I can't find how to make Net::SMTP works.

Here the really small code I used to try it:

#!/usr/local/bin/perl
system("cls");

$mail_to = ... #sorry, I won't give you my mail so easily
$my_host = ... #once again, I'm not quite sure I should give you that

    use Net::SMTP;

    $smtp = Net::SMTP->new('$my_host');

    $smtp->mail($ENV{USER});
    $smtp->to($mail_to);

    $smtp->data();
    $smtp->datasend("To: $mail_to\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

    $smtp->quit;

print "Hello World!\n";

I'm sure you'll find out where I missed something!

Thanks in advance.

[GrandFather]

I'd use MIME::Lite. Consider:

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

# Configure smtp server - required one time only
MIME::Lite->send ("smtp", "smtp.server.com"); 

my $msg = MIME::Lite->new
  (
  From    => '[e-mail]',
  To      => '[e-mail]',
  Data    => "A simple test message\n",
  Subject => "Hello World",
  );

$msg->send ();

[smahesh]

Another vote for MIME::Lite from me. I needed a solution to monitor a site and send me an email when an important event happened. With MIME::Lite, this was very trivial. The documentation has quite a few examples to get you started.

Mahesh

[NetWallah]

You have single quotes around the host name in your line:

  $smtp = Net::SMTP->new('$my_host');

This prevents interpolation. Either use double quotes, or get rid of the quotes.
Error-checking the result will also help debugging.

[shigetsu]

I'm inclined to think that Net::SMTP is perhaps a bit overkill here for what you're trying to achieve (I haven't studied the according documentation extensively and don't know your exact intentions, so I may be wrong -- from what I understand, it lets you interface the SMTP server directly as if you would telnet to it on the port the SMTP service is listening to and set off your commands (that doesn't necessarily imply that the entire SMTP subset of understood commands is implemented in Net::SMTP)).

You may have a look at Mail::Sendmail, which is in my opinion much more user-friendly, but also a bit more limited (perhaps sufficient for your needs).

As it seems you're worrying about not installing extra packages (or are not permitted to do so), you could 'simply' use lib in combination with Mail::Sendmail.

Update: mention of lib

[the_hawk_1]

Thanks for the hint of using lib, it's really helpfull!
You are right, I can't install any module, for now. Someday I'll find out a way to do so!

[sago]

Please to see the below two programs to send mail through perl using activeperl on windows.

One is using the module Mail::Sendmail and the other is using the module MIME::Lite.

Program 1 using the module Mail::Sendmail.

#!C:/Perl/bin/perl.exe
use Mail::Sendmail;
my $to_list = '[e-mail]';
my $cc_list = '[e-mail]';
my $email = "\n\nThis email was generated automatically.\n";
my $MailFrom = "test\@gmail.com";
my $subject = "hello test";
my $message = "module test";
%mail = (
To => $to_list,
From => $MailFrom,
Bcc => $bcc_list,
Cc => $cc_list,
Subject => $subject,
Message => $message
);
$mail{Smtp} = 'mailtest.gmail.com';
sendmail(%mail)


Program 2 using the module MIME.

#!C:/Perl/bin/perl.exe
use MIME::Lite;
MIME::Lite->send('smtp', "mailtesthub.gmail.com", Timeout=>90);
my $email = "This email was generated automatically.";
my $subject = "hello test";
my $MailFrom = "[e-mail]";
my $to_list = '[e-mail]';
my $cc_list = '[e-mail]';
$msg = MIME::Lite->new(
From => $MailFrom,
To => $to_list,
Cc => $cc_list,
Bcc => $bcc_list,
Subject => $subject,
Type => 'TEXT',
Encoding=> '7bit',
Data => $a
);
$msg->send()

[the_hawk_1]

Thanks a lot!

with the use of lib and Mail::Sendmail, I've finaly be able to send my email alerts, and moreover, I find out to be able to send an .xls file attached to it.

Thanks to all of you who helped me!

[Anonymous Monk]

Hi, I am using activeperl and tried to send mail using the Mail::sendmail code provided by you. I am not getting errors when i run the perl script but my also doesn't go. here is my script. How do I provide login information to the gmail server, or is it not required? Is this the right way? #!C:/Perl/bin/perl.exe use Mail::Sendmail; print "Hello World1.\n"; my $to_list = '[e-mail]'; my $cc_list = '[e-mail]'; my $email = "\n\nThis email was generated automatically.\n"; my $MailFrom = "[e-mail]"; my $subject = "hello test"; print "Hello World2.\n"; my $message = "module test"; %mail = ( To => $to_list, From => $MailFrom, Bcc => $bcc_list, Cc => $cc_list, Subject => $subject, Message => $message ); $mail{Smtp} = 'smtp.gmail.com'; sendmail(%mail); print "Hello World3.\n"; Thanks, Gaurav

[Anonymous Monk]

Hi I am also wroking on same task( Sending email when ever there is error in logs) to know how to lib please can u share your perl program. by refering your program i can complete my task. don't have Mail::Mailer & Mail::Sendmail; installed.

[Anonymous Monk]

Hi, I am using activeperl and tried to send mail using the Mail::sendmail code provided by you. I am not getting errors when i run the perl script but my also doesn't go. here is my script. How do I provide login information to the gmail server, or is it not required? Is this the right way?

[Anonymous Monk]

#!C:/Perl/bin/perl.exe
use warnings;
use Mail::Sendmail; 
my $to_list = '[e-mail]'; 
my $email = "\n\nThis email was generated automatically.\n"; 
my $MailFrom = '[e-mail]'; 
my $subject = "hello test"; 
my $message = "module test"; 
%mail = ( 
To => $to_list, 
From => $MailFrom,   
Subject => $subject, 
Message => $message 
); 


$mail{Smtp} = 'smtp.gmail.com';

sendmail(%mail)or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;

I am using the above script but facing the following error.

MAIL FROM: error (530 5.7.0 Must issue a STARTTLS command first. 5sm12
+048018qwg.10)

Can any body help me to fis this error. Thanks in Advance!

[marto]

When posting see Writeup Formatting Tips, How do I post a question effectively? may be worth reading too.

See Send mail from gmail SMTP or super search for other solutions

[camenix]

It may be too late for this question,but the below link shows a sample about how to send an email by NET::SMTP. http://www.perlmonks.org/?node_id=837884

In Window32,there is no native command email client to be used,POP3 of Windows2003 may be the only tool.If you have installed IIS or Outlook(Outlook express is limited) ,Try WIn32::OLE to send a mail.

[Anonymous Monk]

#!/usr/bin/perl
use MIME::Lite;
 
$to = '[e-mail]';
$cc = '[e-mail]';
$from = '[e-mail]';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';

$msg = MIME::Lite->new(
                 From     => $from,
                 To       => $to,
                 Cc       => $cc,
                 Subject  => $subject,
                 Type     => 'multipart/mixed'
                 );
                 
# Add your text message.
$msg->attach(Type         => 'text',
             Data         => $message
            );
            
# Specify your file as attachement.
$msg->attach(Type        => 'image/gif',
             Path        => '/tmp/logo.gif',
             Filename    => 'logo.gif',
             Disposition => 'attachment'
            );       
$msg->send;
print "Email Sent Successfully\n";

[lbrandewie]

Hey All,

This code dates from 2015. MIME::Lite is not shipped with ActiveState's perl any more, and trying to install it (I used "cpan MIME::Lite") fails with a host of errors. I had similar problems with Mail::Sendmail.

Does anyone have a solution that works in 2020? I'm using ActiveState 5.28.1.

Thanks in advance,

Lars

[marto]

You should post the details of your failed install attempt, better still move to Strawberry perl.