Perl模块使用 => 简短例子代码集合！

deathcult

（2）发送html内容

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. use Mail::Sender;
   
6. 
   
7. open(IN, "< ./index.html") or die("");
   
8. 
   
9. $sender = new Mail::Sender{
   
10.                                                         smtp =>; 'localhost',
    
11.                                                         from =>; 'xxx@localhost'
    
12.                                                         };
    
13. 
    
14. $sender->;Open({
    
15.                                         to =>; 'xxx@xxx.com',
    
16.                                         subject =>; 'xxx',
    
17.                                         msg =>; "hello!",
    
18.                                         ctype =>; "text/html",
    
19.                                         encoding =>; "7bit",
    
20.                                         });
    
21. 
    
22. while(<IN>;)
    
23. {
    
24.         $sender->;SendEx($_);
    
25. }
    
26. close IN;
    
27. $sender->;Close();
    
28. 
    
29. print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;
    
30. 
    
31. 
    

复制代码

发送带有图片或其他信息的html邮件，请看`perldoc Mail::Sender`
中的“Sending HTML messages with inline images”及相关部分。