问一个用PERL发邮件问题

三点鱼

文本文件FILE.TXT里包含的内容希望在邮件里显示出来,并且邮件又包含FILE.TXT这个附件.

两个分开我都会,但同时包含这两个就有点困难了.请大家帮忙~.~

apile

用Mail::Sender

1. 
   
2. # 定義smtp server，client是從哪來的
   
3. use Mail::Sender;
   
4.   $sender = new Mail::Sender {
   
5.           smtp => "$server_ip",
   
6.           from => "$from",
   
7.           debug => "/tmp/mail.txt",
   
8.           boundary=> '----this-is-a-mail-boundary-----'
   
9.   };
   
10.   die "Can't create the Mail::Sender object: $Mail::Sender::Error\n"
    
11.           unless ref $sender;
    
12. 
    
13. $sender->OpenMultipart({to => "$to",
    
14.                          replyto =>"$replyto",
    
15.                          fake_from => "$fake_from",
    
16.                          $ctype=>'text/plain',
    
17.                          subject => "$subject"});
    
18. 
    
19. $sender->Body({charset=>"gb2312", msg => <<'*END*' });
    
20. This is a mail..
    
21. --------------------
    
22. *END*
    
23. 
    
24. # 開始附加檔案部分，先要瞭解附加檔案是什麼型態，
    
25. # 本範例是純文字檔，所以ctype使用的是text/plain，如果是gif要使用image/gif
    
26. # ，dispositiion會影響user看到的檔案名稱，如果有/xx/xx/ttt.txt會顯示成
    
27. # _xx_xx_ttt.txt ，"_"會被替代成"/"
    
28. $sender->Attach({ description=>"$filename",
    
29.          ctype=>'text/plain',
    
30.          disposition=>"attachment;filename=$file",
    
31.          file=>"$filename"
    
32.         })
    
33.         || die "Error in attachment: $Mail::Sender::Error\n";
    
34. $sender->Close;
    

复制代码

三点鱼

一定要用模块吗?我对模块不是很熟悉~~

gsging

原帖由 三点鱼 于 2005-11-3 17:03 发表
一定要用模块吗?我对模块不是很熟悉~~

楼主我没看明白你的需求。两个分开发你都会，合在一起的难点在哪里阿？我怎么没明白。

[ 本帖最后由 gsging 于 2005-11-3 19:03 编辑 ]

apile

原帖由 三点鱼 于 2005-11-3 17:03 发表
一定要用模块吗?我对模块不是很熟悉~~

用模块开发比较快...不用去注意很多细节..