在VB中用Outlook发电子邮件

在开始编写代码之前，请添加对Outlook 8.0对象库的引用。

代码如下:

选项显式

将应用程序作为对象变暗
将Itm作为对象变暗

Set App = CreateObject("Outlook。application ")
设置Itm = App。使用Itm
创建item(0)
。Subject = "来自vbCode Magician的提示"
。to = "newvb @ 21cn.com"
。body =
“认新VB，实物有保障”。发送