主题：[求助]求一个能用outlook或Foxmail发送邮件的代码

Dim ol = CreateObject("Outlook.Application")
Dim t = ol.CreateItem(0)
With t
    .To = "xxx@xxx.com"  
    .CC = "xxx@xxx.com"
    .Subject = "预警"
    .Body = "yujingla "
    .Display
    .Send
End With

按照以前用VBA编写的一段程序，改写了一个，有用的看一下。不合适的地方，求大神指正！