Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Sending mails via gmail

by hakonhagland (Scribe)
on Sep 02, 2016 at 22:17 UTC ( [id://1171094]=note: print w/replies, xml ) Need Help??


in reply to Sending mails via gmail

I tried Email::Send::SMTP::Gmail from Ubuntu 16.04, and it worked after some tweaking. First I needed to change the layer from the default tls to ssl, then the port from the default 25 to 465. After that, I needed to change my gmail account settings to allow access for less secure apps. See this post http://stackoverflow.com/a/33244509/2173773 for more information. 
use strict;
use warnings;
use Email::Send::SMTP::Gmail;

my ($mail,$error) = Email::Send::SMTP::Gmail->new(
    -layer =>'ssl',
    -port  =>'465',
    -smtp  =>'smtp.gmail.com',
    -login =>'hakon.hagland@gmail.com',
    -pass  =>'?????'
);
 
die "session error: $error" if $mail ==-1;
$mail->send(
    -to         =>'hakon.hagland@gmail.com',
    -subject    =>'Hello!',
    -body       =>'Just testing it',
    -attachments=>'test.pdf'
);
$mail->bye;

[download]

Replies are listed 'Best First'.
Re^2: Sending mails via gmail
by Anonymous Monk on Apr 26, 2019 at 01:21 UTC

    AWESOME !!! THIS REALLY WORKS, and sends the attachment. THANKS!!!! 

    use strict;
use warnings;
use Email::Send::SMTP::Gmail;

my ($mail,$error) = Email::Send::SMTP::Gmail->new(
    -layer =>'ssl',
    -port  =>'465',
    -smtp  =>'smtp.gmail.com',
    -login =>'myemail@gmail.com',
    -pass  =>'mypassword'
);
 
die "session error: $error" if $mail ==-1;
<>
$mail->send(
    -to         =>'myemail@gmail.com',
    -subject    =>'Hello!',
    -body       =>'Just testing it',
    -attachments=>'C:\Users\MyName\Documents\My_IT_Resume.doc'
);
$mail->bye;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1171094]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2024-04-23 10:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found