Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 avoiding work at the Monastery: (15)
As of 2015-07-30 14:44 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 (271 votes), past polls