Отправка файлов на Email
- $Mail::Sender::Error = '';
- $smtp_server = '192.168.2.2';
- if( $mail_type eq 'html' ) {
- $ctype = "text/html; charset=windows-1251";
- $encoding = "7bit";
- } else {
- $ctype = "text/plain; charset=windows-1251";
- $encoding = "8bit";
- }
- $client = "MyMailClient";
- $reply_to = $from = "\"Me\" <me\@my.host>";
- $to = "\"My Brother\" <bro\@his.host>";
- $subj = "Wazzup, my nigger";
- $text = "Dear sir...";
- $sender=new Mail::Sender;
- $sender->OpenMultipart({
- client => $client
- , from => $from
- , to => $to
- , replyto => $reply_to
- , subject => $subj
- , smtp => $smtp_server
- , ctype => $ctype
- , encoding => $encoding
- , multipart => 'related'
- , charset => 'windows-1251'
- });
- $sender->Body;
- $sender->SendEnc( $text );
- $sender->Close();
- if( $Mail::Sender::Error ne '' ) {
- # делай что-нибудь
- }
