Sendmail etc

[chrismassey]

Hey, long time no post

I've been busy with university studies recently and put my perl scripting aside.

Today I have been testing out several methods of sending email.

1. Mail::Mailer
2. Mail::Send
3. Mime::Lite
4. Standard sendmail

The only one of the 4 I don't have an issue with is Mime::Lite and I was wondering if anyone can help me with a few questions on the other 3...

1. Mail::Mailer
(

http://chrismassey.co.uk/Perl/Examples/Email/Mail_Mailer/)

I can't figure out how to send a message body. Is there a method line to do this?

2. Mail::Send
(

http://chrismassey.co.uk/Perl/Examples/Email/Mail_Send/)

There doesn't seem to be any method to choose who the message is from. I tried $email->from($from); but the script failed. At the moment the default server "from" is displayed.

4. Sendmail
(

http://chrismassey.co.uk/Perl/Examples/Email/Sendmail/)

This does not work at all. I have tried using this on several occassions and I am still baffled as to what I am doing wrong. Any suggestion as to what is wrong with my code?

Thanks alot,

Chris

 

[MikeLacey]

Hi, have a look at these

faq219-364
faq219-1563
faq219-2111
faq219-2901


Mike

http://www.myspace.com/micahhowzat

http://mikelacey.fuzz.com/

 

[chrismassey]

Thanks Mike for those links,

I have now being able to mostly fix the Sendmail script although I am having trouble displaying who the message is from which is left blank.

As for the other 2 module based methods, I still have no clue how to perform the other tasks. But I will probably find out over time.

Thanks for your help

Chris

 

[chrismassey]

Hey again,

To use Net:SMTP I have to authenticate (username and password) before being able to send email. I have tried the below code but it doesn't seem to work. I assume this is because I try to connect to the SMTP outgoing mail server before authenticating, however anything else I try doesn't work. Can you see what i'm doing wrong?

use Net::SMTP;
    my $email = Net::SMTP->new($smtp_host) || print "<font face=arial size=2>Cannot Open: $!</font>";
    $email->auth($smtp_username, $smtp_password);
    $email->mail($from);
    $email->to($to);
    $email->data();
    $email->datasend("To: $to\n");
    $email->datasend("From: $from\n");
    $email->datasend("Subject: $subject\n");
    $email->datasend("\n");
    $email->datasend("$message\n");
    $email->dataend();
    $email->quit();

 

[travs69]

change
$email->auth($smtp_username, $smtp_password);
to
$email->auth($smtp_username, $smtp_password) or die "can't use auth:$!\n";

I think auth requires a SASL module.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;