Beefy Boxes and Bandwidth Generously Provided by pair Networks Ovid
Keep It Simple, Stupid
 
PerlMonks  

Re: How to send mails from a Windows system

by madtoperl (Monk)
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 = '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;
Thanks and Regards,
madtoperl.


Comment on Re: How to send mails from a Windows system
Download Code
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 = 'martin.zahn@akadia.com'; # Changed line my $to_address = 'mugil.ragu@tcs.com';
      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.

      s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2014-04-17 23:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (459 votes), past polls