用ole自动化outlook_visualbasic教程

OLEAutomation能够让您轻松的在您的应用程式中引入像Word，Excel等大型应用软件的功能。通过这些程式暴露在外部的编程接口(包括函数和方法等)，您能够很容易的得到那些大型软件的强的功能，大大的扩展您的程式的实用性。

　　当然，我不会在这儿教您如何去编写一个病毒程式，但是我会告诉您，如何利用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

标签：

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