作者: 扬眉

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

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

　　 什么是OLE Automation?

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

　　 VBA（Visual Basic for Application）是VB的一个子集，所有的Office的最近的几个版本都使用了OLE Automation，所以你可以用VBA来操作几乎每个Office应用程序的每个部分。

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

　　 Public Function CreateMessage()
　　 注释：建立对Outlook中对象的引用
　　 Dim objOutlook As New Outlook.Application
　　 Dim objOutlookMsg As Outlook.MailItem
　　 注释：建立新邮件
　　 Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
　　 objOutlookMsg.Display
　　 Set objOutlook = Nothing
　　 End Function

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

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

　　 Public Function CreateMessage()
　　 Dim objOutlook As Object
　　 Dim objOutlookMsg As Object
　　 Set objOutlook = CreateObject("Outlook.Application")

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

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

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

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

　　 邮件列表

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

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

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

　　 打开工程菜单，点击On the Project menu, click on Components and select the Windows Common Controls 1 library.

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

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

　　 Private Sub Command1_Click()
　　 Dim Dbs As Database
　　 Dim Rst As Recordset
　　 Dim objOutlook As New Outlook.Application
　　 Dim objOutlookMsg As Outlook.MailItem
　　 注释：打开数据库
　　 Set Dbs = OpenDatabase(App.Path & "Contacts.mdb")
　　 Set Rst = Dbs.OpenRecordset("Contacts")
　　 Rst.MoveFirst
　　 ProgressBar1.Visible = True

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

　　 注释：建立新的邮件
　　 Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
　　 With objOutlookMsg
　　 .To = Rst!email 注释：给出收信人的邮件地址
　　 .Subject = "Address Check" 注释：给出邮件的主题
　　 注释：下面是邮件的正文部分
　　 .body = "Dear " & Rst!Title & " " & Rst!LastName & vbNewLine & vbNewLine
　　 .body = .body & "This is an email to confirm your address. "
　　 .body = .body & "Please check the address below to make sure "
　　 .body = .body & "that it is correct" & 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
　　 End With

　　 注释：取消对对象的引用
　　 Set objOutlookMsg = Nothing

　　 Rst.MoveNext
　　 Loop

　　 ProgressBar1.Visible = False

　　 注释：取消对对象的引用，这一步很重要。
　　 Set objOutlook = Nothing

　　 注释：关闭数据库Dbs.Close
　　 MsgBox "Auto Email Complete", vbInformation

　　 Set Dbs = Nothing
　　 Set Rst = Nothing
　　 End Sub


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

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