Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: How to send mails from a Windows system

by madtoperl (Friar)
on Jul 18, 2006 at 06:47 UTC ( #561938=note: print w/replies, xml ) Need Help??

in reply to How to send mails from a Windows system

Hi santhanamv,

Use MIME::Lite module for sending mails from windows box.See the code below also for example
use MIME::Lite; use Net::SMTP; ### Adjust sender, recipient and your SMTP mailhost my $from_address = ''; my $to_address = ''; my $mail_host = ''; ### 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 $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;
Thanks and Regards,

Replies are listed 'Best First'.
Re^2: How to send mails from a Windows system
by hossman (Prior) on Oct 07, 2006 at 06:50 UTC
      Good catch, hossman. (you++ tomorrow when I get more votes).

      In Firefox it's very easy to compare two similar pages; you just Ctrl-[PageUp] and Ctrl-[PageDown], after aligning the pages to the same spot.

      Doing so in this case reveals something interesting.  Exactly one line was changed from the original code:

      # Original line my $to_address = ''; # Changed line my $to_address = '';
      It's interesting to note that according to tcs's website, they have a number of addresses in Chennai, where madtoperl and jesuashok have both previously said they live.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://561938]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2020-09-30 06:33 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (160 votes). Check out past polls.