error in Net::SMTP Can't open server

[jcor]

Hi, I'm trying some code to send a mail with my script. This is it:

#!/usr/bin/perl
use Net::SMTP;
 
my $smtp_server='62.193.245.15';
my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server\n";
$smtp->mail('[e-mail]');
$smtp->to('[e-mail]');
$smtp->auth("[e-mail]","*password*");
$smtp->data();
$smtp->datasend("To: [e-mail]\n");
$smtp->datasend("From: [e-mail]\n");
$smtp->datasend("Subject: test\n");
$smtp->datasend("\n");
$smtp->datasend("some test text");
$smtp->dataend();
 
$smtp->quit;

My problem is that it allways die when creating the object. It's not possible to create the objectwith the IP instead of smtp."something "?
Is this IP that I have in my thunderbird and it works perfectly!

Am I failing something?

Can someone give me an hand?

Thanks,

João Correia

[jcor]

I now trying to use this module MIME::Lite;

Seems pretty easy but doesn't work either.
my code is just:

#!/usr/bin/perl
 
use MIME::Lite;
 
    ### Create a new single-part message, to send a GIF file:
    $msg = MIME::Lite->new(
        From     =>'[e-mail]',
        To       =>'[e-mail]',
        Subject  =>'Helloooooo, nurse!',
        Data     =>"How's it goin', eh?"
    );
MIME::Lite->send( 'smtp','smtp.gmail.com',Timeout=>60,
          Debug=>1);
 
$msg ->send();
 
print" a mensagem foi enviada com sucesso\n";
 

The debugger gives me this:

joao@joao-UBUNTU:~/Desktop$ perl Send
MIME::Lite::SMTP>>> MIME::Lite::SMTP
MIME::Lite::SMTP>>>   Net::SMTP(2.31)
MIME::Lite::SMTP>>>     Net::Cmd(2.29)
MIME::Lite::SMTP>>>       Exporter(5.58)
MIME::Lite::SMTP>>>     IO::Socket::INET(1.29)
MIME::Lite::SMTP>>>       IO::Socket(1.29)
MIME::Lite::SMTP>>>         IO::Handle(1.25)
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 220 mx.google.com ESMTP m5sm11074509gve.11
MIME::Lite::SMTP=GLOB(0x83fae0c)>>> EHLO localhost.localdomain
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 250-mx.google.com at your service, [81.193.137.56]
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 250-SIZE 28311552
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 250-8BITMIME
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 250-STARTTLS
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 250 ENHANCEDSTATUSCODES
MIME::Lite::SMTP=GLOB(0x83fae0c)>>> MAIL FROM:<[e-mail]>
MIME::Lite::SMTP=GLOB(0x83fae0c)<<< 530 5.7.0 Must issue a STARTTLS command first m5sm11074509gve.11
SMTP mail() command failed: 
5.7.0 Must issue a STARTTLS command first m5sm11074509gve.11
 

Do you guys knows what's the problem here?

And do I allways have to use an "external smtp" (if you understand what I mean)? is not possible to simply send an e-mail for localhost, something like that? (maybe this is just a dummy question, I'm not really sure)

Thanks for your time anyway

João

[numberwhun]

#!/usr/bin/perl
 
use MIME::Lite;
 
    ### Create a new single-part message, to send a GIF file:
    $msg = MIME::Lite->new(
        From     =>'[e-mail]',
        To       =>'[e-mail]',
        Subject  =>'Helloooooo, nurse!',
        Data     =>"How's it goin', eh?"
    );
MIME::Lite->send( 'smtp','smtp.gmail.com',Timeout=>60,
          Debug=>1);
 
$msg ->send();
 
print" a mensagem foi enviada com sucesso\n";
 

Where do you do authentication? I would not doubt that when accessing an external service like this, that you are going to have to do some sort of authentication with a user name and password. If not, then anybody, account or not, could send email through there. You should read up on each module and how they handle the authentication. I think that has been the issue all along, that you aren't authenticating to send/receive email.

Regards,

Jeff

[jcor]

Hi guys,
My script is working now,
my code is (adapted from one from de internet):

#!/usr/bin/perl
use strict;
use MIME::Lite;
 
#
$to = "joao.correia.tvnet\@gmail.com";
$from = "joao_correia_0509\@yahoo.com.br";
$subject = "Consegui!!!! Email enviado através de um script Perl";
$message = "Se ler esta mensagem é porque está mesmo a funcionar!!!";
 
 
# send email
email($to, $from, $subject, $message);
 
# email function
sub email {
     # get incoming parameters
     local ($to, $from, $subject, $message) = @_;
 
    # create a new message
    $msg = MIME::Lite->new(
        From => $from,
        To => $to,
        Subject => $subject,
        Data => $message
    );
 
 # send the email
    MIME::Lite->send('smtp', 
          'smtp.mail.yahoo.com.br', Timeout => 60, Debug =>1,
          AuthUser=>'joao_correia_0509', AuthPass=>'***pass***');
 
   $msg->send();
 
}
 

thanks again for your help

João

[numberwhun]

Now, if you were to investigate the documentation for Net::SMTP, you would probably see something similar to allow you to put the authentication user name and pwd in there as well.

Regards,

Jeff