当前位置: 网学 > 编程文档 > VB > 正文

用OLE自动化Outlook

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/17
下载{$ArticleTitle}原创论文样式

作者: 扬眉

    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支持大部分主流的数据库格式,这儿你不妨就用Acces
  • 下一篇资讯: VB中鼠标冲突问题
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号