Thanks,
the script is the following:
#!/usr/bin/perl
use Mail::Sender;
$i = scalar (@ARGV);
$sender = new Mail::Sender
{smtp => 'server.smtp.com', from => '[EMAIL PROTECTED]'};
$sender->MailFile({to => '[EMAIL PROTECTED]',
subject => '$arg[0]',
msg => "$arg[1]",
file => '$arg[2]'});
$sender->Close;
this script call as following :
sendmail.pl <subject> <body> <path to attachment>
i not receive mail.
Regards,
Damien
---------- Initial Header -----------
>From : "Kipp, James" <[EMAIL PROTECTED]>
To : "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>,
beginners <[EMAIL PROTECTED]>
Cc :
Date : Fri, 20 Dec 2002 08:51:31 -0500
Subject : RE: newbie
> do you mean command line parameters?
> for that, you manipulate the @ARGV array. or you could use one of the getopt
> modules.
> let us know what you are trying to do and we will help you
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> > Sent: Friday, December 20, 2002 8:38 AM
> > To: beginners
> > Subject: newbie
> >
> >
> > hi,
> >
> > i'm newbie in perl language and i need help.
> >
> > I search from 3 days how give parmeter ti perl script same as
> > shell script.
> >
> > If someone can help me?
> >
> > thanks
> >
> > Damien
> >
> >
> > -------------
> > SPECIAL ADSL
> > L'ADSL Tiscali est à partir de 15,95 EUR/mois ! Plus modem
> > ADSL et frais d'activation gratuits !
> > Pour profiter de cette offre, cliquez ici:
> > http://register.tiscali.fr/adsl/
> > Offre soumise à conditions.
> >
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
-------------
SPECIAL ADSL
L'ADSL Tiscali est à partir de 15,95 EUR/mois ! Plus modem ADSL et frais d'activation
gratuits !
Pour profiter de cette offre, cliquez ici: http://register.tiscali.fr/adsl/
Offre soumise à conditions.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
