快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

澳门新葡新京_龟发之家论坛



作者: 扬眉

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)

objOutl澳门新葡新京ookMsg.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的法度榜样,无意偶尔这会为你节约大年夜量的光阴和精力。

您可能还会对下面的文章感兴趣: