有关VBS 自动发MAIL的问题询问

depsyq

在VBS中有关MAIL的语句
MailObject.Subject = " "

MailObject.Textbody = "  "     ###这行附加的字符可以是中文的吗？我测试用中文的会出错，若想用中文要如何写呢？

MailObject.AddAttachment "d:\vbs_testall.txt"   ###这行路径可以是中文的吗？

有谁测试过请告知谢谢！！！

neorobin

回复 1# depsyq

以下是我使用过的实例

1. ' 用 ServerXMLHTTP 从 api.hostip.info 或 ip138 获取 IP 地址
   
2. 
   
3. Dim WinHttpReq
   
4. 
   
5. Set WinHttpReq = CreateObject("Msxml2.ServerXMLHTTP")
   
6. ' WinHttpReq.Open "GET", "http://iframe.ip138.com/ic.asp"
   
7. WinHttpReq.Open "GET", "http://api.hostip.info/get_html.php"
   
8. WinHttpReq.Send
   
9. 
   
10. 
    
11. '正则表达式解析出外网IP
    
12. Dim MyRegExp
    
13. Set MyRegExp = CreateObject("VBScript.RegExp")
    
14. MyRegExp.Pattern = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)"
    
15. MyRegExp.IgnoreCase = True
    
16. MyRegExp.Global = True
    
17. 
    
18. Dim Matches
    
19. Set Matches = MyRegExp.Execute(WinHttpReq.ResponseText)
    
20. MsgBox Matches.Item(0).Value
    
21. URL_HOMEPAGE = "http://" & Matches.Item(0).Value
    
22. 
    
23. 
    
24. ' SendEmail
    
25. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    
26. Set Email = CreateObject("CDO.Message")
    
27. Email.From = "neorobin@163.com"
    
28. Email.To = "neorobin@163.com"
    
29. Email.Subject = "我的 IP 地址"
    
30. 
    
31. Email.HTMLBody = "<a href=""" & URL_HOMEPAGE & """" & " target=""_blank"">" & URL_HOMEPAGE & "</a><br>最后更新: " & now()
    
32. 
    
33. Email.AddAttachment "D:\桌面\TEST.TXT"
    
34. With Email.Configuration.Fields
    
35.     .Item(NameSpace&"sendusing") = 2
    
36.     .Item(NameSpace&"smtpserver") = "smtp.163.com" 'smtp服务器地址
    
37.     .Item(NameSpace&"smtpserverport") = 25
    
38.     .Item(NameSpace&"smtpauthenticate") = 1
    
39.     .Item(NameSpace&"sendusername") = "neorobin"
    
40.     .Item(NameSpace&"sendpassword") = "******"
    
41.     .Update
    
42. End With
    
43. Email.Send
    
44. 
    
45. set WinHttpReq = nothing
    
46. set MyRegExp = nothing
    
47. set Matches = nothing
    
48. set Email = nothing
    
49. 
    
50. 
    

复制代码

neorobin

第 31 行 改成

1. Email.TEXTBody = "最后更新: " & now()

复制代码

一样发送成功

depsyq

set WinHttpReq = nothing
set MyRegExp = nothing
set Matches = nothing
set Email = nothing


这些什么意思

neorobin

回复 4# depsyq


清理对象, 对此的必要性, 方式, 我并没有认识.

此文谈到这个问题
http://blogs.msdn.com/b/ericlipp ... cts-to-nothing.aspx