WEB开发网
开发学院WEB开发综合 用OLE自动化Outlook 阅读

用OLE自动化Outlook

 2006-02-27 11:42:45 来源:WEB开发网   
核心提示:OLEAutomation能够让你轻松的在你的应用程序中引入像Word,Excel等大型应用软件的功能,用OLE自动化Outlook,通过这些程序暴露在外部的编程接口(包括函数和方法等),你可以很容易的得到那些大型软件的强的功能,但是,你还是可以在你自己的电脑上开发一些Automation的程序,大大的扩展你的程序的实
OLEAutomation能够让你轻松的在你的应用程序中引入像WordExcel等大型应用软件的功能。通过这些程序暴露在外部的编程接口(包括函数和方法等),你可以很容易的得到那些大型软件的强的功能,大大的扩展你的程序的实用性。

  当然,我不会在这儿教你如何去编写一个病毒程序,但是我会告诉你,如何利用OLE的强大功能来实现对Outlook的自动化操作,比如自动的发邮件,读取新闻组等等。如果你确实对病毒更感兴趣,写好了也不要把它发布出来,否则对大家都没有什么好处。

  什么是OLEAutomation?

  这儿可以给出一个OLEAutomation的一个很简单的例子:可以操作支持OLE特性的应用程序暴露在外部的可编程对象的能力。大部分的这些可编程对象都被内嵌在某种宏语言中,比如VBA,它就是一种使用在MicrosoftOffice应用程序中的宏语言。

  VBA(VisualBasicforapplication)是VB的一个子集,所有的Office的最近的几个版本都使用了OLEAutomation,所以你可以用VBA来操作几乎每个Office应用程序的每个部分。

  下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件,要想使这个例子能够正常的工作,你的电脑上必须安装有Outlook97或更高版的Outlook。

  PublicFunctionCreateMessage()
  注释:建立对Outlook中对象的引用
  DimobjOutlookAsNewOutlook.Application
  DimobjOutlookMsgAsOutlook.MailItem
  注释:建立新邮件
  SetobjOutlookMsg=objOutlook.CreateItem(olMailItem)
  objOutlookMsg.Display
  SetobjOutlook=Nothing
  EndFunction

  首先,你必须告诉VisualBasic什么是“Outlook.Application”对象。所以你必须为你的应用程序建立一个对Outlook对象库的引用。你可以通过点击VisualBasic的“工程”菜单中的“引用”菜单项,然后选者MicrosoftOutlook对象库来实现这一点。这样就告诉了VisualBasic在哪儿能够找到OLE服务器。在这个例子中,OLE服务器就是Outlook,而客户端就是你的VB应用程序。

  上面的例子用到了一个称为早期绑定(early-binding)的技巧来设置对对象的引用。与之相对的还有晚期绑定(late-binding),它设置对象引用的代码如下所叙:

  PublicFunctionCreateMessage()
  DimobjOutlookAsObject
  DimobjOutlookMsgAsObject
  SetobjOutlook=CreateObject("Outlook.Application")

  基于以下的几个原因,早期绑定在一般来说要笔晚期绑定要好一些:

  *早期绑定能够让你是用到VB的IntelliSense特性,它可以自动的为你做对象的一般拼写检查,自动列出相关对象的属性和方法,以及诸方法的参数。这为你的编码过程提供了很大的方便。

  *早期绑定运行的速度要必晚期绑定快一些,因为,具体的内存非配动作是要到运行时才动态的分配。而且,当把对象申明为一个Object的类型时,VB并不能够确定具体的对象类型,这样,如果在其中引用了非法的属性和方法,VB也不能够报错,造成运行时错误。

  虽然晚期绑定比早期绑定要慢而且不是很安全,但有时它又是必须的。在某些情况下,非要等到运行时才能够确定对象的类型,这儿后就非得使用晚期绑定不可了。但总的来说,能够使用早期绑定的话就应该尽量的使用。

  邮件列表

  在VB中有专门为邮件处理而编写的控件,但我们在这儿要抛弃他们。我们谈论的是OLE。有了上面的那个例子作为引导,用VB和Outlook来编制邮件列表的程序应该是很简单的了。

  通过一个数据库的协助,你可以很容易利用OLE实现一个邮件列表。VB支持大部分主流的数据库格式,这儿你不妨就用access吧,在VB中可以用DAO来对数据库进行操作。DAO为你提供了一个比较友好的数据库编程对象模型,可以用较少的代码实现你想要的大部分功能。虽然它有一些局限性,但对于这样的小应用已是绰绰有余的了。因为它也是以对象库的形式被VB所引用的,所以在使用它之前也必须在工程加上对其的引用。在开始之前,我们需要一个Access数据库,其中包含了邮件列表的客户信息。数据库的文件名为Contacts.mdb,内有一个Contacts表。包含了关于客户的姓名,电子邮件地址,城市等等信息,由于结构比较简单,这儿就不列出了。

  新建一个VisualBasic标准EXE工程,然后为工程添加MicrosoftOutlook和MicrosoftDAO这两个对象库的引用,DAO对象库能够让你操作Microsoft的Jet数据库引擎。

  打开工程菜单,点击OnthePRojectmenu,clickonComponentsandselecttheWindowsCommonControls1library.

  添加一个命令按钮和一个进度条道窗体上。

  在Command1的click事件处理部分,输入下面的代码:

  PrivateSubCommand1_Click()
  DimDbsAsDatabase
  DimRstAsRecordset
  DimobjOutlookAsNewOutlook.Application
  DimobjOutlookMsgAsOutlook.MailItem
  注释:打开数据库
  SetDbs=OpenDatabase(App.Path&"Contacts.mdb")
  SetRst=Dbs.OpenRecordset("Contacts")
  Rst.MoveFirst
  ProgressBar1.Visible=True

  注释:对数据表中的每个数据进行操作
  DoUntilRst.EOF
  ProgressBar1.Value=Rst.PercentPosition

  注释:建立新的邮件
  SetobjOutlookMsg=objOutlook.CreateItem(olMailItem)

  WithobjOutlookMsg
  .To=Rst!email注释:给出收信人的邮件地址
  .Subject="AddressCheck"注释:给出邮件的主题
  注释:下面是邮件的正文部分
  .body="Dear"&Rst!Title&""&Rst!LastName&vbNewLine&vbNewLine
  .body=.body&"Thisisanemailtoconfirmyouraddress."
  .body=.body&"Pleasechecktheaddressbelowtomakesure"
  .body=.body&"thatitiscorrect"&vbNewLine&vbNewLine
  .body=.body&Rst!Address&vbNewLine&Rst!City&vbNewLine
  .body=.body&Rst!StateOrProvince&vbNewLine&Rst!PostalCode
  .body=.body&vbNewLine&Rst!Country&vbNewLine&vbNewLine
  .body=.body&"Tel:"&Rst!PhoneNumber
  .Importance=olImportanceHigh
  .Send
  EndWith

  注释:取消对对象的引用
  SetobjOutlookMsg=Nothing

  Rst.MoveNext
  Loop

  ProgressBar1.Visible=False

  注释:取消对对象的引用,这一步很重要。
  SetobjOutlook=Nothing

  注释:关闭数据库Dbs.Close
  MsgBox"AutoEmailComplete",vbInformation

  SetDbs=Nothing
  SetRst=Nothing
  EndSub


  在你按下开始键之后,所有再数据库中的客户都被发送了一封确认信,你可以通过检查发件箱来发现这一点。

  最后,关于应用程序的发布要做一点说明。如果你决定在你的应用程序中使用诸如Outlook这样的OLE服务器,你就必须考虑到,应用程序的最终使用者可能并没有在电脑中安装Outlook,或者安装的版本不符,这样的话程序式不能够运行的。但是,你还是可以在你自己的电脑上开发一些Automation的程序,有时这会为你节约大量的时间和精力。->

Tags:OLE 自动化 Outlook

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接