in reply to Re: Email program with attachments
in thread Email program with attachments
I have no problem sending mail outside of the company's mail server. WAIT!! WAIT!! I just tested that program again. It did NOT work. It gave me the error messages that I was receiving from the origin message of this thread. Okay, here is the kicker. It worked previously. The recipient of one of the mails even replied to it. Spoke with one of the Admins and was told that there is nothing wrong with the mail server. I am able to send out messages manually. Any ideas on what could be going on? Thanks again.#!Perl -w use strict; use Mail::Sender; my $time = localtime; my $subj_line = "Price Change Worksheet for $time"; my %file = ('employee@theirjob.com'=>'P:\\PCW1.TXT','storeowner@aol.co +m'=>'P:\\PCW2.TXT'); my $work = 'me@work.com'; foreach (keys %file) { my $sender = new Mail::Sender( {smtp => 'mail.domain.com',from => $wor +k}) || die "$Mail::Sender::Error\n"; $sender->OpenMultipart( {to => $_, subject => $subj_line}); $sender->Body; $sender->SendLine('Here are the price change worksheets.'); $sender->SendFile( {description => 'Text File', encoding => 'Base64', file => $file{$_}}) and print "Mail was sent OK." || die "$Mail::Sender::Error\n"; $sender->Close; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Email program with attachments
by $code or die (Deacon) on Oct 10, 2001 at 00:11 UTC | |
by blacksmith (Hermit) on Oct 10, 2001 at 01:06 UTC |