龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

在VB中用Outlook发电子邮件

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
在开始编写代码之前,先添加对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->

精彩图集

赞助商链接