Here is my code
Thanks. ;-)
#!/usr/bin/perl -w
use strict;
use Mail::Sender; $sender = new Mail::Sender({smtp => 'mymailserver', from => '[EMAIL PROTECTED]'}); $sender->MailFile({to => '[EMAIL PROTECTED]', subject => 'Here is the file', msg => "I'm sending you the list you wanted."});
john, john2 usernames exist on the mymailserver (it runs ESMTP Sendmail 8.9.3/8.9.3)
Well, you are missing a 'send' call; Mail::Sender has several you can choose from, depending on your needs.
By the way, as others pointed out Mail::Sender is very low-level. I would suggest a higher level module here. MIME::Lite is highly regarded, and often overlooked while searching...
Daniel T. Staal
--------------------------------------------------------------- This email copyright the author. Unless otherwise noted, you are expressly allowed to retransmit, quote, or otherwise use the contents for non-commercial purposes. This copyright will expire 5 years after the author's death, or in 30 years, whichever is longer, unless such a period is in excess of local copyright law. ---------------------------------------------------------------
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
