VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在VB中用Outlook发电子邮件
发表评论(0)作者:, 平台:, 阅读:14256, 日期:2000-03-12
在VB中用Outlook发电子邮件



在开始编写代码之前,先添加对Outlook 8.0 object library的引用。



代码如下:


Option Explicit


Dim App As Object

Dim Itm As Object


Set App = CreateObject("Outlook.Application")

Set Itm = App.CreateItem(0)

With Itm

.Subject = "A tip from vbCode Magician"

.To = "newvb@21cn.com"

.Body =

"认住新VB,真材实料有保证" .Send

End With