Perl Send email

[amy100]

hi
Im new to Perl.
Im trying to write a program to send an e-mail via my cgi script. I tried various options - MIME::Lite, Sendmail, Mail::Sender, and none seem to work.
I get no error message in the Server Log file, but I dont receive an e-mail either. I suspect that it cant establish a connection to the SMTP server. Is there a way of knowing what communication happens with the SMTP server. The code I use is as below:


Thanks for your help.
Amy

#!C:\Perl\bin\perl.exe
use CGI::Carp qw(fatalsToBrowser);
 
 use Mail::Sender;
 
 use Net::SMTP;
 
 print "Content-type: text/html\n\n";
 
 my $relay = "xxx.xxx.edu";
 my $smtp = Net::SMTP->new($relay)
    || die "Can't open mail connection: $!";
    my $to='xxx\@cs.xxx.edu';
    my $from='xxx\@cs.xxx.edu';
 
    $smtp->mail($from);
        $smtp->to($to);
 
        $smtp->data();
        $smtp->datasend("To: $to\n");
        $smtp->datasend("From: $from\n");
        $smtp->datasend("Subject: $subject\n");
        $smtp->datasend("\n");
 
        foreach $body (@body) {
            $smtp->datasend("$body\n");
        }
 
        $smtp->dataend();
    $smtp->quit();
 
 
 
 
 open my $DEBUG, ">> debugfile.txt"
                 or die "Can't open the debug file: $!\n";
 
 $sender = new Mail::Sender
  {smtp => 'mail.cs.xxx.edu', from => '[e-mail]'};
 $sender->MailFile({to => '[e-mail]',
  subject => 'Here is the file',
  msg => "I'm sending you the list you wanted.",
  debug => $DEBUG,
  debug_level=>3,
  authid=>'xxx',
  authpwd=>'pwd'
 });
   $sender->SendEnc;
 
  $sender->Close;
 

[Ganon11]

Try Mail::Send; it's the module my professor suggests for e-mailing with Perl. Here's a short sample:

use Mail::Send;
my $mail = Mail::Send->new;
$mail->to('[e-mail]');
$mail->subject('Hey Joe');
my $fh = $mail->open();
print $fh "Hey Joe, what's up?";
$fh->close;

[eWish]

Mail::Sendmail is also a nice choice.

--Kevin

[happyse27]

Hi Sirs,

I am using the codes above and it did not work. Used Email::send and not mail::send module as perl package manager did not have that.

Is it smtp or what problem.. Is there any sample? Thanks in advance.


Best Rgds,
Andrew

 
#!/usr/bin/perl -w
#!c:/perl/bin/perl.exe
 
 
use Email::Send; 
my $mail = Mail::Send->new; 
$mail->to('[e-mail]'); 
$mail->subject('Hey Joe'); 
my $fh = $mail->open(); 
print $fh "Hey Joe, what's up?"; 
$fh->close; 
 
 

Html error
========
Internal Server Error
The server encountered an internal error or misconfiguratio n and was unable to complete your request.

Please contact the server administrator, [e-mail] lar and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.


apache error log
============
[Thu Dec 11 14:13:52 2008] [error] [client 127.0.0.1] (OS 3)The system cannot find the path specified. : couldn't spawn child process: D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/emailsend6.pl

apache access log
=============
127.0.0.1 - - [11/Dec/2008:14:13:51 +0800] "GET /cgi-bin/emailsend6.pl HTTP/1.1" 500 538

perl script testing in perl/bin
=============== =====
C:\Perl\bin>per l -c d:\emailsend6.p l
d:\emailsend6.p l syntax OK

[KevinADC]

wrong shebang line?

#!/usr/bin/perl -w
#!c:/perl/bin/perl.exe

the second one should be first, unless you actually have perl installed at usr/bin on your Windows box.

[numberwhun]

@happyse27
You need to fix your code. You are calling one module and then specifying another in the constructor:

use Email::Send; 
my $mail = Mail::Send->new; 
 

My suggestion is to read the Email::Send page at cpan.org and see if they have anything regarding logging.

Regards,

Jeff

[happyse27]

Hi all,

This code didnt work either...

same problem of internal server error...

same logs.

kindly advise...


Thanks,
Andrew

#!c:/perl/bin/perl.exe 
 
 
 
   use Mail::Sender::Easy qw(email);   
 
 
 
    email({
 
        'from'         => '[e-mail]',
 
        'to'           => '[e-mail]',
 
        'cc'           => '[e-mail]',
 
        'subject'      => 'Perl is great!',
 
        'priority'     => 2, # 1-5 high to low
 
        'confirm'      => 'delivery, reading',
 
        'smtp'         => '192.168.2.111',
 
        'port'         => 26,
 
        'auth'         => 'LOGIN',
 
        'authid'       => 'andrew',
 
        'authpwd'      => 'andrew2100',
 
        '_text'        => 'Hello *World* :)',    
 
        '_html'        => 'Hello <b>World</b> <img src="cid:smile1" />',
 
        '_attachments' => {
 
            'smiley.gif' => {
 
                '_disptype'   => 'GIF Image',
 
                '_inline'     => 'smile1',
 
                'description' => 'Smiley',
 
                'ctype'       => 'image/gif',    
 
                'file'        => '/home/foo/images/smiley.gif',
 
            },
 
            'mydata.pdf' => {
 
                'description' => 'Data Sheet',  
 
                'ctype'       => 'application/pdf',
 
                'msg'         => $pdf_guts,
 
            },
 
        },
 
    }) or die "email() failed: $@";
 

[eWish]

You are missing some important data here.

use strict;
use warnings;

These are essential because the error you are saying is to vague. It could be many different things that are causing it. Without some error checking and syntax checking it is that much harder.

Read this for some potential help for your problem.


--Mork

[happyse27]

hi Sir,

The below code is working well as minimal codes... cheers...

Btw, how do I find free public smtp server since this is internal server ip with vpn??


Thanks again,
Andrew

 
#!c:/perl/bin/perl.exe -w 
 
   use strict; 
   use warnings;  
 
   use Mail::Sender::Easy qw(email); 
 
    print "Content-type: text/plain\n\n";
 
 
    email({
        #from email address need to change
        'from'         => '[e-mail]',
        'to'           => '[e-mail]',
        'cc'           => '[e-mail]',
        'subject'      => 'Perl is great!',
        'priority'     => 2, # 1-5 high to low
        'confirm'      => 'delivery, reading',
        'smtp'         => '192.168.2.111',
        'port'         => 25,
        #'auth'         => 'LOGIN',
        'authid'       => '[e-mail]',
        'authpwd'      => 'andrew2100',
        '_text'        => 'Hello *World* :)',    
        #'_html'        => 'Hello <b>World</b> <img src="cid:smile1" />',
        #'_attachments' => {
            #'smiley.gif' => {
                #'_disptype'   => 'GIF Image',
                #'_inline'     => 'smile1',
                #'description' => 'Smiley',
                #'ctype'       => 'image/gif',    
                #'file'        => '/home/foo/images/smiley.gif',
            #},
            #'mydata.pdf' => {
                #'description' => 'Data Sheet',  
                #'ctype'       => 'application/pdf',
                #'msg'         => $pdf_guts,
            #},
        #},
    }) or die "email() failed: $@";
 
 

[happyse27]

Hi All,

This is the more complete codes with attachment sent successfully... Cheers...


Thanks,
Andrew

#!c:/perl/bin/perl.exe -w 
 
   use strict; 
   use warnings;  
 
   use Mail::Sender::Easy qw(email); 
 
    print "Content-type: text/plain\n\n";
 
 
    email({
        'from'         => '[e-mail]',
        'to'           => '[e-mail]',
        'cc'           => '[e-mail]',
        'subject'      => 'Perl is great!',
        'priority'     => 2, # 1-5 high to low
        'confirm'      => 'delivery, reading',
        'smtp'         => '192.168.2.111',
        'port'         => 25,
        #'auth'         => 'LOGIN',
        'authid'       => 'andrew',
        'authpwd'      => 'andrew2100',
        '_text'        => 'Hello *World5* :)',    
        '_html'        => 'Hello <b>World</b> <img src="cid:smile1" />',
        '_attachments' => {
            'smiley.gif' => {
                '_disptype'   => 'GIF Image',
                '_inline'     => 'smile1',
                'description' => 'Smiley',
                'ctype'       => 'image/gif',    
                'file'        => 'D:/program files/Apache Software 
 
Foundation/Apache2.2/htdocs\smiley.gif',
            },
            #'mydata.pdf' => {
                #'description' => 'Data Sheet',  
                #'ctype'       => 'application/pdf',
                #'msg'         => $pdf_guts,
            #},
        },
    }) or die "email() failed: $@";