VBS自动发邮件带附件代码，附件可以动态名字，下载直接...

金融it

1. 
   
2. If Day(Now)<10 Then
   
3.     sDay="0" & Day(Now)
   
4. Else
   
5.     sDay=Day(Now)
   
6. End If
   
7. 
   
8. If Month(Now)<10 Then
   
9.     sMonth="0" & Month(Now)
   
10. Else
    
11.     sMonth=Month(Now)
    
12. End If
    
13. sDate=Year(Now) & sMonth & sDay
    
14. sFileName="C:\AppServer\RiskSvr\RiskFile\系统操作日志查询-" & sDate & ".csv"
    
15. sFileName2="C:\AppServer\RiskSvr\RiskFile\委托记录查询-" & sDate & ".csv"
    
16. sFileName3="C:\AppServer\RiskSvr\RiskFile\风控信息查询-" & sDate & ".csv"
    
17. sFileName4="C:\AppServer\RiskSvr\RiskFile\投资建议查询-" & sDate & ".csv"
    
18. 
    
19. Set fs = CreateObject("Scripting.FileSystemObject")
    
20. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    
21. Set Email = CreateObject("CDO.Message")
    
22. Email.From = "邮箱地址"
    
23. Email.To = "目的地址"
    
24. Email.Subject = sDate
    
25. Email.Textbody = ""
    
26. if (fs.FileExists(sFileName)) then
    
27. Email.AddAttachment sFileName
    
28. end if
    
29. if (fs.FileExists(sFileName2)) then
    
30. Email.AddAttachment sFileName2
    
31. end if
    
32. if (fs.FileExists(sFileName3)) then
    
33. Email.AddAttachment sFileName3
    
34. end if
    
35. if (fs.FileExists(sFileName4)) then
    
36. Email.AddAttachment sFileName4
    
37. end if
    
38. With Email.Configuration.Fields
    
39. .Item(NameSpace&"sendusing") = 2
    
40. .Item(NameSpace&"smtpserver") = "smtp.qiye.163.com"
    
41. .Item(NameSpace&"smtpserverport") = 25
    
42. .Item(NameSpace&"smtpauthenticate") = 1
    
43. .Item(NameSpace&"sendusername") = "用户名"
    
44. .Item(NameSpace&"sendpassword") = "密码"
    
45. .Update
    
46. End With
    
47. Email.Send
    

复制代码

如果发送不了，第一要注意的是 163邮箱有没有开通smtp/pop3 ，端口是不是25，现在很多邮箱默认都不开通smtp跟25端口了，如果开通了 输入的密码不是邮箱登陆密码是 客户端授权码
其他邮箱也要注意类似问题