Mail::Sendmail Module

ytjPerl has asked for the wisdom of the Perl Monks concerning the following question:

Hello Guys,

I have the below codes for sending mail through gmail server. I do not have syntax error executing it. but it is not working as expected. Please point out my errors. thanks

#!/usr/bin/perl
use strict;
use warnings;
use Mail::Sendmail; 
my %mail;
$mail{Smtp} = "smtp.gmail.com";
$mail{Debug} = 6;
$mail{Port} = 465;
$mail{Auth} = {user => "username", pass => "password",
               method => "LOGIN", required => 1};

# set the recipients (to) address [REQUIRED]
$mail{To}      = 'xxxxxxx@gmail.com';

# set the mail sender address [REQUIRED]
$mail{From}    = 'xxxxxxx@gmail.com';
$mail{Sender}  = 'xxxxxxx@gmail.com';

# set the  mail subject line
$mail{subject} = "Test message";

# set the mail content
$mail{body}    = "The test messsage is having this body line inside.";

# set the mail encoding type
$mail{'content-type'} = qq(text/plain; charset="utf-8");
[download]

2018-02-27 Athanasius fixed opening code tag and added paragraph tags

Comment on Mail::Sendmail Module
Download Code

Replies are listed 'Best First'.
Re: Mail::Sendmail Module by toolic (Bishop) on Feb 26, 2018 at 15:23 UTC
Edit your post to fix the leading "code" tag so people can easily read your question. Read The Fine Manual for Mail::Sendmail. All your code does is set the %mail hash variable. You need to call the `sendmail` function. `sendmail(%mail) or die $Mail::Sendmail::error;` [download]	[reply] [d/l] [select]
Re^2: Mail::Sendmail Module by ytjPerl (Scribe) on Feb 26, 2018 at 15:56 UTC
Thanks! I got those errors when I call the send:mail Use of uninitialized value $_ in concatenation (.) or string at C:/Perl64/site/l ib/Mail/Sendmail.pm line 215. Use of uninitialized value $_ in pattern match (m//) at C:/Perl64/site/lib/Mail/ Sendmail.pm line 218. Use of uninitialized value $_ in concatenation (.) or string at C:/Perl64/site/l ib/Mail/Sendmail.pm line 401. ERROR	[reply]
Re^3: Mail::Sendmail Module by Laurent_R (Canon) on Feb 26, 2018 at 18:43 UTC
Hi ytjPerl, you've been asked by toolic to edit your original post and fix the leading code tag (i.e. change it to `<code>`), and you did not, although you've obviously read toolic's post, since you replied to it. Why don't you fix your post? Don't you see it is very difficult to read? Do yourself a favor: if you want additional good answers, make it easy for other monks here to read your post: fix it. And, BTW, please also edit your reply above and put the warnings and error messages between `<code>` and `</code>` tags.	[reply] [d/l] [select]
Re^4: Mail::Sendmail Module by ytjPerl (Scribe) on Feb 27, 2018 at 18:30 UTC
Re^5: Mail::Sendmail Module by Laurent_R (Canon) on Feb 27, 2018 at 22:54 UTC
Re: Mail::Sendmail Module by hippo (Bishop) on Feb 26, 2018 at 16:19 UTC
`$mail{Auth} = {user => "username", pass => "password", method => "LOGIN", required => 1};` This will have no effect. There is no "Auth" key mentioned anywhere in the documentation which specifically says "No suport (sic) for the SMTP AUTH extension". If you need this, consider some other module. Update: As toolic says in the reply below there is now an "Auth" key in version 0.80 although the doc says the support is experimental. YMMV.	[reply] [d/l]
Re^2: Mail::Sendmail Module by toolic (Bishop) on Feb 26, 2018 at 19:07 UTC
This will have no effect. There is no "Auth" key mentioned anywhere in the documentation Are you sure? The POD does not explicitly show `$mail{Auth}`, but it states: Keys are NOT case-sensitive. I see this in the `sendmail` code: `# arrange keys case $k = ucfirst lc($k);` [download] I have a feeling that `$mail{Auth}` is the same as `$mail{auth}`.	[reply] [d/l] [select]
Re^3: Mail::Sendmail Module by hippo (Bishop) on Feb 26, 2018 at 22:16 UTC
Well it turns out that you are quite right. There has been a new release of Mail::Sendmail which adds "auth" as a field and is the first stable release in some 15 years (v0.80 has the auth field, v0.79 doesn't). That will teach me to assume it was abandoned. The comment in the docs now says "Experimental SMTP AUTH support (LOGIN PLAIN CRAM-MD5 DIGEST-MD5)", so that's the progress. Thanks for the heads-up.	[reply]
Re^2: Mail::Sendmail Module by ytjPerl (Scribe) on Feb 26, 2018 at 16:29 UTC
what other module do you recommend? I have been told this was the latest updated one.	[reply]
Re^3: Mail::Sendmail Module by poj (Abbot) on Feb 26, 2018 at 17:07 UTC
Email::Send::SMTP::Gmail poj	[reply]


Problems? Is your data what you think it is?
	PerlMonks