Why do I get “SMTP Failed to connect to mail server:” when I try to send an email to a Gmail account using MIME::Lite?

Question

I have following code to send an email in Perl:

#!/usr/bin/perl

use MIME::Lite;

$to = \'toid@domain.com\';
$cc = \'ccid@domain.com\';
$from = \'fromid@doma         


        

Answer 1

The above worked when

1. I used my Gmail as the SMTP --> Bet you didn't think you could do that.

my $smtpserver  = 'smtp.gmail.com.';
my $smtpport     = 587;
my $smtpuser     = 'YourGmailHere@gmail.com';
my $smtppassword = 'password'; ## Plug in your password here

2. Then you have to actually set your security for your Gmail account to a less secure … basically set "Less secure app access" to "ON" setting --> https://myaccount.google.com/security

Hope this helps others.