1000分求用js解析本地outlook收下来的邮件

Question

hope useful
--------------
http://www.microsoft.com/china/technet/community/scriptcenter/filefolder/default.mspx

Answer 1

以下存为test.vbs运行（需安装有office outlook注意不是outlook express），弹出的警告框不知道怎么处理,-_-~!
--------------------------------------
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myItem = myFolder.Items(1)
MsgBox "HTMLBody: " & myItem.HTMLBody & Chr(13)&_
"Subject: " & myItem.Subject & Chr(13)&_
"SenderName: " & myItem.SenderName & Chr(13)&_
"SenderEmailAddress: " & myItem.SenderEmailAddress