Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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 exploiting the Monastery: (7)
As of 2015-07-05 10:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (61 votes), past polls