谁有用CDO接收邮件的？（50分，在线等待！）

 1   
 2sub sendmail(fromwho,towho,subject,body)   
 3dim cdo   
 4set cdo=server.createobject("cdonts.newmail")   
 5cdo.From=fromwho   
 6cdo.To = towho   
 7cdo.Subject =subject   
 8cdo.Body =body   
 9cdo.MailFormat=0   
10'说明是以MIME发送   
11cdo.BodyFormat=0   
12'可以包含html代码   
13cdo.Importance=0   
14'邮件的优先级别0-1-2   
15'[email protected] 抄送   
16'[email protected]密送   
17'cdo.AttachFile "" 附件   
18cdo.Send   
19Set cdo=Nothing   
20end sub   
21sub sendattachmail(fromwho,towho,subject,body,attachfile)   
22dim cdo   
23set cdo=server.createobject("cdonts.newmail")   
24cdo.From=fromwho   
25cdo.To = towho   
26cdo.Subject =subject   
27cdo.Body =body   
28cdo.MailFormat=0   
29cdo.BodyFormat=0   
30cdo.Importance=0   
31cdo.AttachFile attachfile   
32cdo.Send   
33Set cdo=Nothing   
34end sub