首页 > 学院 > 开发设计 > 正文

在VB中用Outlook发电子邮件

2019-11-18 17:27:44
字体:
来源:转载
供稿:网友
在开始编写代码之前,先添加对Outlook8.0objectlibrary的引用。

代码如下:

OptionExplicit

DimAppAsObject
DimItmAsObject

SetApp=CreateObject("Outlook.application")
SetItm=App.CreateItem(0)
WithItm
.Subject="AtipfromvbCodeMagician"
.To="newvb@21cn.com"
.Body="VB编程乐园www.vbeden.com".Send
EndWith->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表