Sending mails through perl - Perl

This is a discussion on Sending mails through perl - 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 ...

+ Reply to Thread
Page 1 of 2 1 2 LastLast
Results 1 to 10 of 12

Sending mails through perl

  1. Default 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.


  2. Default Re: Sending mails through perl

    mugiltsr 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 <Enter>

    You'll get a ppm-prompt:

    ppm> install MIME::Lite <Enter>


    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."

  3. Default Re: Sending mails through perl

    Dr.Ruud wrote:
    > mugiltsr 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 <Enter>
    >
    > You'll get a ppm-prompt:
    >
    > ppm> install MIME::Lite <Enter>
    >
    >
    > 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

  4. Default 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.


  5. Default ppm (was: Re: Sending mails through perl)

    mugiltsr 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."


  6. Default Re: ppm (was: Re: Sending mails through perl)

    "Dr.Ruud" <rvtol+news@isolution.nl> wrote:

    > [3] threoryx


    theoryx5 ;-)

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

  7. Default 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."

  8. Default Re: ppm

    "Dr.Ruud" <rvtol+news@isolution.nl> 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/

  9. Default 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."

  10. Default Re: ppm

    "Dr.Ruud" <rvtol+news@isolution.nl> 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/

+ Reply to Thread
Page 1 of 2 1 2 LastLast

Similar Threads

  1. Sending many e-mails
    By Application Development in forum SendMail
    Replies: 5
    Last Post: 09-28-2007, 02:13 PM
  2. Sending mails through perl
    By Application Development in forum Perl
    Replies: 0
    Last Post: 04-11-2006, 04:44 AM
  3. Merc 4.01 not sending mails
    By Application Development in forum Pegasus
    Replies: 0
    Last Post: 01-27-2005, 07:02 AM
  4. sending to external e-mails
    By Application Development in forum Inetserver
    Replies: 1
    Last Post: 01-06-2005, 04:32 PM
  5. duplicate sending mails
    By Application Development in forum Microsoft Exchange
    Replies: 5
    Last Post: 11-21-2003, 12:31 AM