在VB中用Outlook发电子邮件

2008-02-23 06:56:59来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

在开始编写代码之前,先添加对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编程乐园 www.vbeden.com" .Send
End With

上一篇: 在VB中使用UDP协议
下一篇: 在VB中实现文件上传

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:在桌面上建立一个 Internet 快捷键

下一篇:用VB编写标准CGI程序(下)