J
JGH
I'm trying to send an email messave via a server that requires
authentication. I'm using the Mail::Sender module. The error message I'm
getting looks like this (this is acutally the output from the script
below):
Valid protocols: PLAIN,LOGIN
Error: Authentication protocol LOGIN is not accepted by the server,
response: 530 5.7.0 No STARTTLS command has been given.
#!/usr/bin/perl
use Mail::Sender;
my $sender = new Mail::Sender ( {
smtp => 'smtpauth.wiscmail.wisc.edu', from => '(e-mail address removed)',
auth => 'LOGIN', authid => 'jheim', authpwd =>
'bogus'});
print ("Valid protocols: " . join (',', $sender->QueryAuthProtocols()) .
"\n");
my $stat = $sender->MailMsg ({
to => '(e-mail address removed)',
subject => '33 Here is the file',
msg => "I'm sending you the list you wanted."
});
die "Error: $Mail::Sender::Error\n" unless ref $stat;
authentication. I'm using the Mail::Sender module. The error message I'm
getting looks like this (this is acutally the output from the script
below):
Valid protocols: PLAIN,LOGIN
Error: Authentication protocol LOGIN is not accepted by the server,
response: 530 5.7.0 No STARTTLS command has been given.
#!/usr/bin/perl
use Mail::Sender;
my $sender = new Mail::Sender ( {
smtp => 'smtpauth.wiscmail.wisc.edu', from => '(e-mail address removed)',
auth => 'LOGIN', authid => 'jheim', authpwd =>
'bogus'});
print ("Valid protocols: " . join (',', $sender->QueryAuthProtocols()) .
"\n");
my $stat = $sender->MailMsg ({
to => '(e-mail address removed)',
subject => '33 Here is the file',
msg => "I'm sending you the list you wanted."
});
die "Error: $Mail::Sender::Error\n" unless ref $stat;