ASP 利用CDO.Message发送带附件的邮件示范

1. <%
   
2. dim ttasp
   
3. dim Attachment
   
4. 
   
5. Attachment =server.MapPath("0410.rar")
   
6. ttasp="测试看看"
   
7. 
   
8. dim objMail
   
9. Set objMail = Server.CreateObject("CDO.Message")
   
10. 
    
11. smtpServer ="smtp.exmail.qq.com"
    
12. yourEmail ="support@ttasp.com"
    
13. yourPassword ="771"
    
14. 
    
15. sendEmailTo ="774658@qq.com"'收件人EMai
    
16. 
    
17. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
18. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
    
19. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    
20. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    
21. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    
22. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = yourEmail
    
23. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourPassword
    
24. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
25. 
    
26. 
    
27. objMail.Configuration.Fields.Update
    
28. 
    
29. 
    
30. objMail.From = yourEmail
    
31. objMail.To = sendEmailTo
    
32. 
    
33. objMail.Subject= "新家教编号"
    
34. objMail.htmlBody = ttasp
    
35. objMail.AddAttachment(Attachment)
    
36. 
    
37. objMail.Send
    
38. Set objMail = Nothing
    
39. 
    
40. response.Write("ok")
    
41. %>
    
42. 
    

复制代码

亲测有效