Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: How to send mails from a Windows system

by madtoperl (Pilgrim)
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]
[jdporter]: one prog I have has a UI which allows to input a bit mask
[jdporter]: currently it expects the bitmask to be in the form of a hex number, e.g. 0x0101
[jdporter]: but I'd like to let the user specify it as individual bits, i.e. 0b0000000100000001
[jdporter]: there is no bit/binary equivalent of hex, right?
[jdporter]: I guess that the most direct way of doing it is with some magical incantation involving unpack or whatever
[jdporter]: let me google that for me ;-)
[jdporter]: hex points explicitly to oct, which does the job. :-D
[jdporter]: omg, I f love Perl!
[choroba]: say unpack 'H*', pack 'B*', $mask =~ /0b([01]+)/;

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2018-02-20 16:30 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (272 votes). Check out past polls.