use MIME::Lite;
MIME::Lite->send('smtp', "your.smtp.server", Timeout=>300);
$msg = new MIME::Lite
                From     =>'[EMAIL PROTECTED]',
                To       =>'[EMAIL PROTECTED]',
                Subject  =>"blabla ",
                Type     =>'TEXT',
                Encoding => '7bit',
                Data    =>"body text ok\?";
$msg->send;
 
Look at Mime::Lite user manual for more.
 
Regards
Lyubo
----- Original Message -----
From: lonh SENG
Sent: Wednesday, September 12, 2001 9:08 AM
Subject: Sending Mail

 Hi guys,
 
    Can anyone give a script to send mail with perl?
 
    My server is SuSe7.0 and the client is win2k professional and winnt workstation 4.0.
 
   I have a script but I does not work well.
 
Thanks in advance,
 
Best Regards,
 
lonh

Reply via email to