Sending mails through perl

Hi,

I am beginner in perl.I am trying to write a mailing program in windows
2000 from perl. I've copied the following program from the net. But
when I try to run the program it says as follows(my program name is
winmail.pl)

Can't locate MIME/Lite.pm in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib
) at winmail.pl line 17.
BEGIN failed--compilation aborted at winmail.pl line 17.

How can i download and install MIME module for windows.


#start of program.

use MIME::Lite;
use Net::SMTP;

### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'martin.zahn@akadia.com';
my $to_address = 'mugil.ragu@tcs.com';
my $mail_host = 'mailhost.domain.com';

### Adjust subject and body message
my $subject = 'A message with 2 parts ...';
my $message_body = "Here's the attachment file(s) you wanted";

### Adjust the filenames
my $my_file_gif = 'my_file.gif';
my $your_file_gif = 'your_file.gif';
my $my_file_zip = 'my_file.zip';
my $your_file_zip = 'your_file.zip';

### Create the multipart container
$msg = MIME::Lite->new (
From => $from_address,
To => $to_address,
Subject => $subject,
Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
Type => 'TEXT',
Data => $message_body
) or die "Error adding the text message part: $!\n";

### Add the GIF file
$msg->attach (
Type => 'image/gif',
Path => $my_file_gif,
Filename => $your_file_gif,
Disposition => 'attachment'
) or die "Error adding $file_gif: $!\n";

### Add the ZIP file
$msg->attach (
Type => 'application/zip',
Path => $my_file_zip,
Filename => $your_file_zip,
Disposition => 'attachment'
) or die "Error adding $file_zip: $!\n";

### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;

#start of program.

Thanks & Regards,
Mugil.

Re: Sending mails through perl

mugiltsr@gmail.com schreef:

> How can i download and install MIME module for windows.

Since you didn't mention it, I'll assume that you work with ActivePerl.


Start the Perl Package Manager, either through your GUI, or:

C:> ppm

You'll get a ppm-prompt:

ppm> install MIME::Lite


There are other ways too, like

C:> perl -MCPAN -e shell


As with ppm, you can type 'help' to find out more.

--
Affijn, Ruud

"Gewoon is een tijger."

Re: Sending mails through perl

Dr.Ruud wrote:
> mugiltsr@gmail.com schreef:
>
>
>>How can i download and install MIME module for windows.
>
>
> Since you didn't mention it, I'll assume that you work with ActivePerl.
>
>
> Start the Perl Package Manager, either through your GUI, or:
>
> C:> ppm
>
> You'll get a ppm-prompt:
>
> ppm> install MIME::Lite
>
>
> There are other ways too, like
>
> C:> perl -MCPAN -e shell
>
>
> As with ppm, you can type 'help' to find out more.
>

ppm is probably a bit easier to use than CPAN under Windows - you don't
need a copy of nmake (which you can get free from Microsoft), and CPAN
(under Windows) has trouble installing modules it actually uses, such as
Cwd.

With both, you may need to configure some environment variables if
you're behind a proxy server (to wit: http_proxy, ftp_proxy, and no_proxy).

Another alternative is to download the distribution from CPAN (or some
mirror), expand it using winzip, and run the installation "by hand".

Yet another (if you have problems with configuring the environment
variables) is to download the PPM distribution from ActiveState, unzip
it, and run ppm against the results.

Tom Wyant

Re: Sending mails through perl

Hi,

Thanks for your informative replies.

When I try what u ve said,I am getting following error.


C:\>ppm
PPM interactive shell (2.2.0) - type 'help' for available commands.
PPM> install MIME::Lite
Install package 'MIME-Lite?' (y/N): y
Installing package 'MIME-Lite'...
Error installing package 'MIME-Lite': Could not locate a PPD file for
package MIME-Lite

Please help me out


Thanks & Regards,
Mugi.

ppm (was: Re: Sending mails through perl)

mugiltsr@gmail.com schreef:

> C:\>ppm
> PPM interactive shell (2.2.0) - type 'help' for available commands.
> > install MIME::Lite
> Install package 'MIME-Lite?' (y/N): y
> Installing package 'MIME-Lite'...
> Error installing package 'MIME-Lite': Could not locate a PPD file for
> package MIME-Lite


C:\Perl>ppm
PPM - Programmer's Package Manager version 3.4. [...]

*ppm*> query MIME
Querying target 1 (ActivePerl 5.8.7.813)
1. MIME-Base64-Scripts [1.0] Scripts to encode/decode base64 and
quoted-printable


*ppm*> repository
Repositories:
[1] ActiveState PPM2 Repository
[2] ActiveState Package Repository
[3] threoryx

*ppm*> s MIME-Lite
Searching in Active Repositories
1. MIME-Lite [3.01] low-calorie MIME generator
2. MIME-Lite [3.01] MIME-Lite
3. MIME-Lite-HTML [1.21] Provide routine to transform a HTML
page in a MIME-Lite mail
4. MIME-Lite-HTML [1.21] MIME-Lite-HTML
5. MIME-Lite-TT-Japanese [0.02] MIME::Lite::TT with Japanese character
code
6. MIME-Lite-TT-Japanese [0.02] MIME-Lite-TT-Japanese

*ppm*> install MIME::Lite
Searching for 'MIME::Lite' returned multiple results. Using 'search'
instead...
Searching in Active Repositories
1. MIME-Lite [3.01] low-calorie MIME generator
2. MIME-Lite-HTML [1.21] Provide routine to transform a HTML
page in a MIME-Lite mail
3. MIME-Lite-TT-Japanese [0.02] MIME::Lite::TT with Japanese character
code

*ppm*> install 1
Package 1:
====================
Install 'MIME-Lite' version 3.01 in ActivePerl 5.8.7.813.
====================
Downloaded 57721 bytes.
Extracting 7/7: blib/arch/auto/MIME/Lite/.exists
Installing C:\Perl\html\site\lib\MIME\changes.html
Installing C:\Perl\html\site\lib\MIME\Lite.html
Installing C:\Perl\site\lib\MIME\changes.pod
Installing C:\Perl\site\lib\MIME\Lite.pm
Successfully installed MIME-Lite version 3.01 in ActivePerl 5.8.7.813.

--
Affijn, Ruud

"Gewoon is een tijger."

Re: ppm (was: Re: Sending mails through perl)

"Dr.Ruud" wrote:

> [3] threoryx

theoryx5 ;-)

--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/

Re: ppm

John Bokma schreef:
> Dr.Ruud:

>> [3] threoryx
>
> theoryx5 ;-)

OK. Don't know where that 'threoryx' comes from.

*ppm*> rep
Repositories:
[1] ActiveState PPM2 Repository
[2] ActiveState Package Repository
[3] threoryx

*ppm*> rep describe 3
Describing Active Repository 3:
Name: threoryx
Location: http://theoryx5.uwinnipeg.ca/ppms/
Type: Webpage

*ppm*> rep rename 3 theoryx5
Repositories:
[1] ActiveState PPM2 Repository
[2] ActiveState Package Repository
[3] theoryx5

--
Affijn, Ruud

"Gewoon is een tijger."

Re: ppm

"Dr.Ruud" wrote:

> John Bokma schreef:
>> Dr.Ruud:
>
>>> [3] threoryx
>>
>> theoryx5 ;-)
>
> OK. Don't know where that 'threoryx' comes from.

Guess you added it? As far as I know it doesn't come with a default
ActivePerl install (assuming you're using that). But I haven't the latest
version installed (yet).

> *ppm*> rep describe 3
> Describing Active Repository 3:
> Name: threoryx
> Location: http://theoryx5.uwinnipeg.ca/ppms/
> Type: Webpage


Someone was drunk :-D.

But it would be cool if theoryx is added to default ActiveState installs
since there is where I get some of the good (or better) stuff.


--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/

Re: ppm

John Bokma schreef:
> Dr.Ruud:
>> John Bokma:
>>> Dr.Ruud:

>>>> [3] threoryx
>>>
>>> theoryx5 ;-)
>>
>> OK. Don't know where that 'threoryx' comes from.
>
> Guess you added it? As far as I know it doesn't come with a default
> ActivePerl install

I just meant the misspelling. I am notorious for not misspelling.
;)

--
Affijn, Ruud

"Gewoon is een tijger."

Re: ppm

"Dr.Ruud" wrote:

> John Bokma schreef:
>> Dr.Ruud:
>>> John Bokma:
>>>> Dr.Ruud:
>
>>>>> [3] threoryx
>>>>
>>>> theoryx5 ;-)
>>>
>>> OK. Don't know where that 'threoryx' comes from.
>>
>> Guess you added it? As far as I know it doesn't come with a default
>> ActivePerl install
>
> I just meant the misspelling. I am notorious for not misspelling.
> ;)

I am famous for my d/t mix up in Dutch :-D. (One day I can say that it's
because I am fluent in 2 or 3 other languages as well :-)

--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/

Re: ppm

Hi,

I am again getting the following error.
Plz help me out.

C:\Perl>ppm
PPM interactive shell (2.2.0) - type 'help' for available commands.
PPM> query MIME
MIME-Base64 [2.23] Encoding and decoding of base64 strings
PPM> repository
Unknown or ambiguous command 'repository'; type 'help' for commands.
PPM> search MIME-Lite
Error connecting to
'http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/PPM
Server'.
PPM> install MIME::Lite
Install package 'MIME-Lite?' (y/N): y
Installing package 'MIME-Lite'...
Error installing package 'MIME-Lite': Could not locate a PPD file for
package MI
ME-Lite
PPM>


Thanks,
Mugil.

Re: ppm

mugiltsr@gmail.com wrote:

> Hi,
>
> I am again getting the following error.
> Plz help me out.
>
> C:\Perl>ppm
> PPM interactive shell (2.2.0) - type 'help' for available commands.
> PPM> query MIME
> MIME-Base64 [2.23] Encoding and decoding of base64 strings
> PPM> repository
> Unknown or ambiguous command 'repository'; type 'help' for commands.
> PPM> search MIME-Lite
> Error connecting to
> 'http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/PPM
> Server'.
> PPM> install MIME::Lite
> Install package 'MIME-Lite?' (y/N): y
> Installing package 'MIME-Lite'...
> Error installing package 'MIME-Lite': Could not locate a PPD file for
> package MI
> ME-Lite
> PPM>

Now and then ActiveState is gone for a while, which might be the case
here. (Hence the error connecting to...)

--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/