Send mail from gmail SMTP

[Aboveyou]

#!/usr/bin/perl

use LWP::Simple;
use warnings;
use MIME::Lite;
use Win32::OLE qw(in);

$user = "user\@gmail.com";    
$pass = "password";

$to = "user\@googlemail.com";
$from = "user\@googlemail.com";
$subject = "Email Sent via Perl";
$message = "any thing";

email($to, $from, $subject, $message);

sub email
{
 # get incoming parameters
 local ($to, $from, $subject, $message) = @_;

 # create a new message
 my $msg = MIME::Lite->new(
  From => $from,
  To => $to,
  Subject => $subject,
  Data => $message
 );

 MIME::Lite->send('smtp', 'smtp.gmail.com:465', Timeout => 60,
 AuthUser=>$user, AuthPass=>$pass);
 $msg->send();
}

I've tried with (587,465) --- still get the same error Get the follow error: SMTP Failed to connect to mail server any advice?

[weismat]

Sending on port 465 indicates that you are sending on a SSL/TLS port.
You may use Net::SMTP::SSL for sending the mail. I do not think that gmail supports SMTP without SSL and I also think that Mime::Lite can not send mail via SSL.

[kennethk]

You can send mail via gmail using Net::SMTP::TLS. For some example code I cobbled together a few months back, see Re: Temporarily Obscuring a Lottery Draw.

[olus]

You can also check Email::Send::SMTP::TLS. It basically wraps Net::SMTP::TLS.