perl 发送HTML邮件加附件的问题~

MOMOyyNix

请问下有人用 mail::sender么？

怎么能实现同时发送HTML 和 附件呢？我附件为CSV文件~

1. open IN, $htmlfile or die "Cannot open $htmlfile : $!\n";
   
2. $sender->Open({ from => 'your@address.com', to => 'other@address.com',
   
3.         subject => 'HTML test',
   
4.         ctype => "text/html",
   
5.         encoding => "7bit"
   
6. }) or die $Mail::Sender::Error,"\n";
   
7. 
   
8. while (<IN>) { $sender->SendEx($_) };
   
9. close IN;
   
10. $sender->Close();
    

复制代码

http://search.cpan.org/~jenda/Mail-Sender-0.8.16/Sender.pm#Using_MailFile()_shortcut_to_send_an_attachment

ulmer

回复 1# MOMOyyNix

Before $sender->close(); (line 10)
Insert Attach() function:

$sender->Attach(
    { description => 'CSV file',
       ctype => 'text/plain',
       disposition => 'attachment; filename="ufile.csv"',
       file => '/path/to/yourFile.csv'}
);


   

iamlimeng

如果你想彻底弄明白邮件的格式，我有一个建议：

用OutLook Express创建邮件，认真看它的源码，然后用Perl依葫芦画瓢，无所不能。我就是这样学会发邮件的。