Using Net::smtp

[greedyzebra]

Hi,

I'm trying to find a method to be able to send mail using a script on Windows. I'm able to connect to my domain's smtp server, but it requires authorization. After a couple of hours searching (to no avail) to find an example of how to provide a username and password after connecting to the server, I am quite frustrated and hope someone can lend me a hand.

I have also tried to use Blat, but finding out how to do it with username and password is also proving to be impossible.

Thanks!

 

[greedyzebra]

Perhaps since no one else's smtp servers apparently require authentication, I could just use someone else's?

 

[justice41]

I know of two ways, which are essentially equivalent, for doing plaintext smtp auth.

use Net::SMTP;
use MIME::Base64;

my $smtp = Net::SMTP->new($smtp_server);

# One way
my $auth_string = encode_base64("$user\0$user\0$pass");$smtp->command('AUTH', 'PLAIN', $auth_string);

# The other way
my $user_enc = encode_base64($user);
my $pass_enc = encode_base64($pass);
$smtp->command('AUTH', 'LOGIN');
$smtp->command($user_enc);
$smtp->command($pass_enc);

# Continue with sending message here

jaa

 

[greedyzebra]

Excellent! Thanks very much!

I also found documentation for version 8 that that has an "auth" method in Net::SMTP. When I tried to use it I was missing a necessary module. Now I have that module and will try it as well. If anyone is interested, I'll be happy to post the results.

Thanks again,

Tom