VBS调用OUTLOOK发送邮件

set   out=WScript.CreateObject("Outlook.Application")   
Set oitem = out.CreateItem(olMailItem)
With oitem
.Subject ="这里是邮件主题"&now()
.To = "收信人@123.com"
.Body = "亲爱的XXX"&chr(13)&"  AAAAAAAAAAAAAAAAAA."&chr(13)&"你亲爱的XXXXX"&chr(13)&MONTH(DATE())&"月"&day(DATE())&"日"
.Send
End With
set out=nothing
set oitem=nothing
MsgBox("邮件成功提交")

帮一个网友写的利用VBS调用OUTLOOK发送邮件的代码，正确与否未知，因为我机器没OUTLOOK。