用vbs发送带附件的邮件

1. function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)  
2. 'code by NetPatch 
3. 'VBS发送邮件参数说明 
4. 'You_Account：你的邮件帐号 
5. 'You_Password:你的邮件密码 
6. 'Send_Email: 主要邮件地址 
7. 'Send_Email2: 备用邮件地址 
8. 'Send_Topic: 邮件主题 
9. 'Send_Body:   邮件内容 
10. 'Send_Attachment:邮件附件 
11.  
12. You_ID=Split(You_Account, "@", -1, vbTextCompare)  
13. '帐号和服务器分离 
14. MS_Space = "http://schemas.microsoft.com/cdo/configuration/" 
15. '这个是必须要的，不过可以放心的事，不会通过微软发送邮件 
16. Set Email = CreateObject("CDO.Message") 
17. Email.From = You_Account 
18. '这个一定要和发送邮件的帐号一样 
19. Email.To = Send_Email         '主要邮件地址 
20.  
21. If Send_Email2 <> "" Then 
22. Email.CC = Send_Email2        '备用邮件地址 
23. End If 
24.  
25. Email.Subject = Send_Topic        '邮件主题 
26. Email.Textbody = Send_Body        '邮件内容 
27.  
28. If Send_Attachment <> "" Then 
29. Email.AddAttachment Send_Attachment     '邮件附件 
30. End If 
31.  
32. With Email.Configuration.Fields 
33. .Item(MS_Space&"sendusing") = 2       '发信端口 
34. .Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服务器地址 
35. .Item(MS_Space&"smtpserverport") = 25     'SMTP服务器端口 
36. .Item(MS_Space&"smtpauthenticate") = 1     'cdobasec 
37. .Item(MS_Space&"sendusername") = You_ID(0)    '你的邮件帐号 
38. .Item(MS_Space&"sendpassword") = You_Password   '你的邮件密码 
39. .Update 
40. End With 
41. Email.Send 
42. '发送邮件 
43. Set Email=Nothing 
44. '关闭组件 
45.  
46. Send_Mail=True  
47. '如果没有任何错误信息，则表示发送成功,否则发送失败  
48. If Err Then  
49. Err.Clear  
50. Send_Mail=False  
51. End If  
52. End Function 
53.  
54. '以下是利用上面的函数发送带附件的邮件例子 
55. If Send_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=True Then 
56. Wscript.Echo "发送成功" 
57. Else 
58. Wscript.Echo "发送失败" 
59. End If