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

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 => 'Kathleen@integrasoft.info', Bcc => 'gopal.r@integrasoft.info', # only addresses are extracted from Bcc, real names disregarded Cc => 'gubendran.l@integrasoft.info,senthilkumar.k@integras +oft.info', # Cc will appear in the header. (Bcc will not) Subject => 'HELLO FRIENDS', 'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION", ); $mail{Smtp} = '192.168.1.5'; # $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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2015-02-28 13:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    On my keyboard, Caps lock is:








    Results (462 votes), past polls