Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

gopalr's scratchpad

by gopalr (Priest)
on Nov 26, 2004 at 09:13 UTC ( #410532=scratchpad: print w/replies, xml ) Need Help??

use Mail::Sendmail; print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n"; print "Default server: $Mail::Sendmail::mailcfg{smtp}->[0]\n"; print "Default sender: $Mail::Sendmail::mailcfg{from}\n"; %mail = ( #To => 'No to field this time, only Bcc and Cc', From => '', Bcc => '', # only addresses are extracted from Bcc, real names disregarded Cc => ',senthilkumar.k@integras', # Cc will appear in the header. (Bcc will not) Subject => 'HELLO FRIENDS', 'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION", ); $mail{Smtp} = ''; # $mail{'X-custom'} = 'My custom additionnal header'; $mail{'mESSaGE : '} = ' Hi Friends, I would like to meet you both of You. When shall we meet. Bye!!! Take Care!!! Yours Lovingly, Kathleen Dooty. '; # cheat on the date: $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 ); if (sendmail %mail) { print "Mail sent OK.\n" } else { print "Error sending mail: $Mail::Sendmail::error \n" } print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
Log In?

What's my password?
Create A New User
Domain Nodelet?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2023-12-08 12:57 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (35 votes). Check out past polls.