On Fri, 2003-01-24 at 14:20, jdavis wrote:
> On Fri, 2003-01-24 at 15:35, Scott, Deborah wrote:
> > I asked this before, but I probably made the question too long and confusing
> > to follow.
> >
> > How do I send an email using perl?
> > The path for the sendmail program is:
> > h:/blah/blah/SENDMAIL/sendmail.exe
> >
> > I want it to open the contents of a particular file. Then send the contents
> > of the file as an email to
> > [EMAIL PROTECTED]
> >
> >
> > Thanks,
> > --Deborah
> >
>
>
>
> if your file is a text file....
>
> #! /usr/bin/perl -w
>
> $file = "/suidbin/sendmail -t";
> $var = "the_file.txt";
>
> open(FILE, "$var") || die "cant open text file";
> @file = <FILE>;
> close(FILE);
>
> ##open pipe to sendmail
> open(MAIL, "|$file") || die "cant open sendmail";
> print MAIL "To: blah\@devnull.bz\n" ;
> print MAIL "From: blah\@cyberspace.org\n" ;
> print MAIL "Subject: Fresh\n\n" ;
> foreach(@file){
> print MAIL;
> }
> close ( MAIL ) ;
>
>
> --
> jd
> [EMAIL PROTECTED]
>
> Bad spellers of the world untie!
oops... forgot to adjust the path and stuff for windoz
--
jd
[EMAIL PROTECTED]
Bad spellers of the world untie!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
