Sending email issues...

236 New Member

Hi All,

I am trying for weeks how to send email from windows pc, which from my gmail account to my hotmail account. Using net::smtp module sending email failed,Kindly assist. (for the item d it is working for normal email servers, but NOT with gmail server, I am very puzzled still!!)

Codes(item c below) It keeps complaining and logs and codes are below.

a) apache access logs
---------------------------------
127.0.0.1 - - [09/Jun/2009:16:33:15 -0700] "GET /cgi-bin/net-email2.pl HTTP/1.1" 500 543

b) apache error Logs...
----------------------------------
[Tue Jun 09 16:33:45 2009] [error] [client 127.0.0.1] Premature end of script headers: net-email2.pl
[Tue Jun 09 16:33:45 2009] [error] [client 127.0.0.1] Connection to SMTP server failed\r

Error Logs

c) Not working codes for sending email
--------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 
#!c:/perl/bin/perl.exe -w  
 
use Net::SMTP;
 
$smtp = Net::SMTP->new("smtp.gmail.com", Timeout => 30, Port =>465);
 
if ( ! $smtp ) {

die "Connection to SMTP server failed\n";

}
 
$ret = $smtp->auth("happyse27","21027000");
 
if ( ! $ret ) {

printf("Authentication failed\n");

} else {

printf("Authentication succeeded\n");

}
 
my $from = 'happyse27@gmail.com';

my $to      = 'happse@hotmail.com';
 
# If new() doesn't return a Net::SMTP object, then the connection failed,

# so we die

if ( ! $smtp ) {

die "Connection to SMTP server failed\n";

}
 
# Start a new email, and set the From address

$smtp -> mail($from);

$smtp -> to($to);
 
# We're sending this to three people

#@recipients = ("happyse27@gmail.com","happse@hotmail.com");

#$smtp->recipient(@recipients);
 
# Build the mail's headers, including the From: and To: address

#$headers = <<"EOH";

#From: Paul <happyse27@gmail.com>

#To: Root <happse@hotmail.com>

#Subject: This is a test

#Date: Sun, 9 Mar 2008 00:03:46 +1100

#EOH
 
# Build the content of the mail:

#$message = <<"EOM";

#This is a test. Please ignore this message.

#EOM
 
# Now send it out:
 
#$smtp->data($headers . "\n" . $message);
 
# Close the connection to the SMTP server.
 
$smtp -> data();
 
$smtp -> datasend("To : $to\n");

$smtp -> datasend("subject : A message from my Perl program. \n");
 
$smtp -> dataend();

$smtp -> quit;

d) working codes through another module
--------------------------------------------------------

Expand|Select|Wrap|Line Numbers

 
#!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'         => 'andrewse@abc.com.sg', 

        'to'           => 'happse@hotmail.com', 

        'cc'           => 'happse@hotmail.com', 

        'subject'      => 'Perl is great!', 

        'priority'     => 2, # 1-5 high to low 

        'confirm'      => 'delivery, reading', 

        'smtp'         => 'mail.abc.com.sg', 

        'port'         => '25', 

        'auth'         => 'LOGIN', 

        'authid'       => 'andrewse@abc.com.sg', 

        'authpwd'      => '210270', 

        '_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: $@";

Jun 9 '09 #1

Subscribe Reply

12607

numberwhun

3,509

Recognized Expert Moderator Specialist

Doing a quick Google search, you are going to want to have a read on this article. It explains what you are not doing.

Regards,

Jeff

Jun 11 '09 #2

Sending email issues...

Similar topics