在perl中怎么发邮件，并且将一段文本作为附件发送？

rosetnt

如题

bytewolf

1. 
   
2. #!/usr/bin/perl
   
3. use Mail::Sender;
   
4. $sender = new Mail::Sender
   
5.   {smtp =>; 'mail.yourdomain.com', from =>; 'your@address.com'};
   
6. $sender->;MailFile({to =>; 'some@address.com',
   
7.   subject =>; 'Here is the file',
   
8.   msg =>; "I'm sending you the list you wanted.",
   
9.   file =>; 'filename.txt'});
   

复制代码

SeeAlso:http://search.cpan.org/author/JENDA/Mail-Sender-0.8.06/Sender.pm

rosetnt

我试试，谢谢

deathcult

先uuencode [INFILE] REMOTEFILE >; filename

然后cat filename | mail -s"hello" webmaster@hotmail.com