I have problems sending email because my SMTP server require authentication to allow email to be send out. The authentication is the email user name and password. Without authentication the following message appear :
Error sending to pieter.allaer@eu.valor.com (550 Relaying is prohibited)
Does anybody know how to pass the authentication when using Mail::Sendmail ?
Below a small example script
use Mail::Sendmail; my %mail; %mail = ( To => 'pieter.allaer@eu.valor.com', From => 'pieter.allaer@eu.valor.com', #Bcc => 'Someone <him@there.com>, Someone else her@there +.com', # only addresses are extracted from Bcc, real names disregar +ded #Cc => 'pieter.allaer@eu.valor.com', # Cc will appear in the header. (Bcc will not) Subject => "The neutral BOM file for $curJob{jobName} is cre +ated", 'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSI +ON", ); $mail{Smtp} = 'euvalor.eu.valor.com'; $mail{'X-custom'} = 'My custom additionnal header'; $mail{'mESSaGE : '} = "Please process the Neutral BOM file which + can be found at $bommgr_scrub_save\n This is an automatic generated +email"; # cheat on the date: $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 ); sendmail %mail; #if (sendmail %mail) { print "Mail sent OK.\n" } #else { print "Error sending mail: $Mail::Sendmail::error \n" } #print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
In reply to How to pass authentication through Mail::Sendmail by juo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |