Delphi中用Outlook2000发送邮件.docVIP

在Delphi中用Outlook2000发送邮件 西安交通大学 刘明华(minghua_liu@263.net) Outlook 2000不仅是一个功能强大的电子邮件软件,而且还是一个自动化服务器(Automation servers)。第三方的软件开发人员根据需要可以对Outlook进行定制和扩充,同时开发者还可以通过编写Outlook自动化服务器的客户方程序来有效利用它的电子邮件功能。本文将介绍在Delphi程序中如何利用Outlook自动化服务器的强大的电子邮件功能,调用Outlook来发送email。 一、 步骤 1. 创建Application应用程序对象 为了使用Outlook的服务,首先我们需要创建一个Outlook的Application自动化对象。使用CreateOleObject函数我们可以创建一个自动化对象,此函数的原型为:function CreateOleObject(const ClassName: string): IDispatch;使用CreateOleObject函数创建Outlook应用程序实例的代码如下: var Outlook: Variant; ... Outlook:= CreateOleObject (‘Outlook.Application); 2. 创建MailItem对象 在Outlook中,一个MailItem代表一个邮件对象。Outlook的CreateItem方法可以创建一个MailItem对象: Var Outlook: Variant;Mail: Variant; ... Outlook := CreateOLEObject (‘Outlook.Application); //创建一个MailItem对象 Mail:=Outlook.CreateItem(olMailItem); MailItem对象之下还包含有子对象以及方法,其中比较重要的有如下一些: 1 Recipients属性 用于指定邮件的接收人,我们可以指定3类收信人,To、CC(抄送)以及BCC(暗送)。 Var Recipient: Variant; ... Outlook := CreateOLEObject (‘Outlook.Application); //创建一个MailItem对象 Mail:=Outlook.CreateItem(olMailItem); //添加类型为To的收件人 Recipient:=Mail.Recipients.Add(‘daisy@); Recipient.Type:=olTo; //添加类型为CC(抄送)的收件人 Recipient:=Mail.Recipients.Add(‘simon@); Recipient.Type:=olCc; //添加类型为BCC(暗送)的收件人 Recipient:=Mail.Recipients.Add(‘ mailback@); Recipient.Type:=olCc; 2Subject属性:邮件的标题。 Body属性:邮件的正文内容。 Attachments属性:邮件的全部附件。 增加附件: Mail.Attachments.Add(‘D:\Simon\Unit1.pas); 删除附件: if Mail.Attachments.Count0 then Mail.Attachments.Remove(1); {如果附件的数目不为0,则去掉第1个附件} Send方法:发送邮件。 二、 示例程序 下面是一个Outlook自动化服务器的客户程序的代码,你可以参考vbaoutl9.chm文档并对此程序进行改进和扩充。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ShellAPI, ComObj, ActiveX, ComCtrls; type TForm1 = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit_To: TEdit; Edit_CC: TEdit; Edit_BCC: TEdit; Edit_Subject: TEdit; ListView1