2024年3月9日发(作者：)

维普资讯

第２３卷

２８

・

第２期　

脑２　

计算机工程　

２００２年２月　

Ｆｅｂｒｕａｒｙ　２００２　

Ｃｏｍｐｕｔｅｒ　Ｅｎｇｉｎｅｅｒｉｎｇ　

开发研究与设计技术　文章编号：１ｏｏｏ—　２８　帅２１０２—０２８４—０２　文ｔ｝呆识码：Ａ　中围分类号：ＴＰ３９３．０９８　

由Ｄｅｌｐｈｉ实现局域网的自动定时发送邮件　

李甓军，冯珊　

（华中科技大学系统工程研究所，武汉４３００７４）　

擅要：介绍如何用软件开发工具Ｄｅｌｐｈｉ与邮件服务￣Ｅｘｃｈａｎｇｅ５　５进行通信，从而实现手工和自动定时向指定信箱发送邮件的功能。　

＊翻：Ｅｘｃｈａｎｇｅ５　５；Ｄｅｌｐｈｉ；ＴＮＭＳｍｔｐ　

Ｓｅｎｄｉｎｇ　Ｍａｉｌ　Ａｕｔｏｍａｔｉｃａｕｙ　ｉｎ　ＬＡＮ　Ｕｓｉｎｇ　Ｄｅｌｐｈｉ　

Ｌｌ　ｕｎ　ＦＥ—Ｇ　Ｓｈａｈ　

（ＩｎｓｔｉｔｕｔｅｏｆＳｙｓｔｅｍ　ＥｍＲｉｎｅｅｒｉｎｇ，ＨｎａｚｈｏｎｇＵｅｉｖｅｒｓ畸ｏｆＳｃｉｅｎｃｅ　ａｎｄ　Ｔｅｃｈｎｏｌｏｇｙ，Ｗｕｈａｎ　４３ｏ０７４　

［Ａｈｓｔｒａｃｔ］Ｔｈｅｐａｐｅｒｉｎｔｒｏｄｕｃｅｓ　ｈｏｗｔｏ　ｃｏｍｍａｎｉｃａｔ￣ｗｉｔｈ　Ｅｘｃｈａｎｇｅ　５．５ｗｈｉｃｈｗｏｒｋｓ＿ｓ　ａｍａｉｌ　ｓｅｒｖｅｒ＃ａｄｔｏ　ｓｅｎｄｍａｉｌ　ａｕｔｏｍａｔｉｃａｌｌｙｉｎ　

ＬＡＮ口“＿ｇ　Ｄｅｌｐｈｉ．　

ＩＸｅｙ　ｗｏｒｄｓ］Ｅｘｃｈａｎｇｅ５．５；Ｄｅｌｐｈｉ；ＴＮＭＳｍｌｐ　

随着计算机自　应用逐渐普遍，越来越多的单位实现了部　

门工作滴程的计算机化。在日常的系统运行过程中，监视系　

统的运行状况成了系统管理员的一项不可或缺的工作。通常　

的做法是由人工处理系统的监视日志，定期将日志文件发送　

给指定的系统维护＾员或是软件开发人员。本文讨论如何在　

Ｄｅｌｐｈｉ中通过同邮件服务器Ｅｘｃｈａｎｇｅ５．５的信息交互，将系统　

日志文件作为附件，由系统管理员手工或自动定时向邮箱发　

送邮件，阻提高办公效率。　

Ｅｘｃｈａｎｇｅ　Ｓ￣ｆｖｅｒ的目录机制为翁们管理Ｅｘ曲ａｎｇｅ　Ｓｅｒｖｅｒ　

的内部对象提供了一致的层捩结构。其中包括Ｅｘｃｈａｎｇｅ　

Ｓｅｒｖｅｒ组织（Ｏｒｇａｎｉｚａｔｉｏｎ）、站点（ｓｉｔｅ）和服务器（ｓｃｆ＿ｖｅｒ）的所有　

配置信息，目录也包含了地址簿信息。利用目录服务，管理　

员可以查找到所有的邮箱信息。　

（　消息传输代理　

ＭＴＡ；￣ＥｘｅｈａｎｇｅＳｅｒｖｅｒ中消　鼠流动的基础。它既对站点　

内部的服务器传输消息，同时也为其他站点的服务器传输消　

息ａ　ｔｖｒｒＡ，￣为Ｅｘｃｈａｎｇｅ　Ｓ６．ｒｖ￣．的内部销患传递机制，它提供　

了很强的控制功能，比如管理员可以控制消息的大小、消息　

传送的路由表等。　

（４）系统助理　

系统助理是个辅助性的服务，但是Ｅｘｃｈａｎｇｅ　Ｓｅｒｖｅｒ的许　

ｌ　Ｅｘｃｈａｎｇｅ５．５简介　

Ｍｉｃｍｓ　Ｅｘｃｈａｎｇｅ是一个基于电子邮件的群件系统，　

是一十客户／服务器结构的、集成式系统监控和管理的电子　

信息交换系统。这十系统提供培组织集成的电子邮件、计划　

调度、文档共享、电子表单和定制应用程序。它的服务器端　

运行于Ｗｉｎｄｏｗｓ　ＮＴ／２（ｉ￣Ｓｅｒｖｅｒ，并与之紧密集成，具有一　

致的安全模型，多台Ｅｘｃｌ１ａｎｇｃ曝务器可协同工作，并支持广　

泛的客户平台，如ＤＯｓ、ｗｉｎｄｏｗｓ９Ｘ／ＮＴ／２０ＯＯ，Ｍａｃｉｎｔｏｓｈ　

等，在功能上，Ｅｘｃｈａｎｇｅ超越了传统的电子邮件系统，能更　

方便地收发电子邮件、进行小组讨论、访问公告栏等等，能　

更方便有效地管理和堆护系统，并与Ｗｅｈ紧密榴联，　

Ｅ）ｃｃｈ　与ＩｌＳ相辅相成，是建设全面的企业级新型阿络或　

Ｉ腑　ｌｄ的基础之一。　

多工作由它来完成，列举如下：　

当管理员添加新邮箱时，系统助理会产生与邮籍有关　

一

的昏幕地址和Ｅ－ｍａｉ１地址。　

・

ＭｒＡ传翰消息时可能会用到系统助理来解析收件人　

地址，或者把目录中的分发表（Ｄｉｓｔｒｉｈ．￣ｔｉｏｎ　Ｌｉｓｔ）展开成一组　

收件人地址。　

・

・

检查目录复翩的一致性。　

保存和管理邮箱的数字签名和加密信息。　

Ｅｃｈａｘｎｇｅ　Ｓｅｒｖｅｒ作为一个消息系统平台，包含一系列与　

消息有关的服务，Ｅｘｃｈａｎｇｅ　Ｓ￣ｒｖｃｃ的核心包括４十系统服　

务：信息存储服务、目录服务、消息传精代理和系统助理服　

务，当我们在服务器上安装了Ｅｘｃｈａｎｇｅ　Ｓｅｒｖｅｒ２．后，这些服　

务会自动被启动。以后客户连接到Ｅｘｃｈａｎｇ￣Ｓｅｒｖｅｒ时，这些　

服务协同完成客户的请求。其功能分别如下：　

（１）信息存储服务　

它提供对消息数据库的存储和读取访问，Ｅｘｃｈａｎｇｅ　

Ｓｅｆｖｆｆ＇的信息存储分为公共信息存储和鞋有信息存储。公共　

信息存储包含所有的公共文件央信息，私有信息存储包含当　

前服务器上的所有用户的邮箱信息。　

（２）目录服务　

一

２使用ＤｅＩｐｈ滨现邮件发送　

（１）ＴＮＭＳｍｔｐ．￣件简介　

在Ｄｅｌｐｈｉ中提供了￣ｌ＂ＮＭＳｍｔｐ，为用户提供了外部编　

程的接口从而实现对邮件的发送。　

下面简要介绍一下这十控件的常见属性、方ｊ击和事件：　

Ｉ）属性　

ｈｏｓｔ：要连接的邮件服务器　

作者倚介：李铁军（１９７８～），男，在职礤士生、助教，研究方向：　

智能决策支持系统（ＩＤＳＳ）、分布式信息系统、盘业ＥＲＰ、电子商　

务等；冯珊，教授、博导　

收藕日期：２００１・０５一ｌ８　

２８４一　

维普资讯

ｐ　：邮件服务使用的端口号　

ＰｏｓｔＭｅｓｓａｇｅ：要发送的信息，其中：　

Ａｔｔａｃｈｍｅｎｔｓ：发送邮件的附件　

Ｂｏｄｙ：发送邮件的正文　

ＦｒｏｍＡｄｄｒｅｓＳ：发送邮件的发件人　

ＴｏＡｄｄｒｅｓｓ：发送邮件的收件人　

Ｓｕｂｊｅｃｔ：发送邮件的主题　

２）事件　

ＳＭＴＰ　ＳｅｒｖｅｒＣｏｎｎｅｃｔ：当控件尝试和邮件服务器连接　

时触发　

ＳＭＴＰ　ＳｅｒｖｅｒＣｏｎｎｅｃｉｆｏｎＦａｉｌｅｄ：当连接邮件服务器失　

败时触发　

ＳＭＴＰ　ＳｅｒｖｅｒｌｎｖａｌｉｄＨｏ＊ｔ：：当邮件服务器不存在时触发　

ＳＭＴＰ　ＳｅｒｖｅｒＡｔｔａｃｈｍｅｎｔＮｏｔＦｏｔｍｄ：当要发送的附件没　

有找到时触发　

ＳＭＴＰ　ＳｅｒｖｅｒＤｉｓｃｏｎｎｅｃｔ：当与邮件服务器断开连接时　

触发　

ＳＭＴＰ　ＳｅｒｖｅｒＦａｉｌｕｒｅ：当邮件发送失败时触发　

ＳＭＴＰ　Ｓｅｒｖｅ＊Ｓｕｃｃｅｓｓ：当邮件发送成功时触发　

ＳＭＴＰ　ＳｅｒｖｅｒＲｅｃ　ｉｅｎｔＮｏｔＦｏｕｎｄ：当收件人没有找到时　

触发　

３）方法　

ｃｏｎｎｅｃｔ：与邮件服务器连接　

ｄｉｓｃｏｎｎｅｃｔ：与邮件服务器断开连接　

ｓｏｎｄｍａｉｌ：发送指定邮件　

（２）实现对邮件的发送　

系统首先莆要３￣Ｅｘｃｈａｎｇｅ邮件服务器建立连接，然后填　－

入要发送邮件的发件人、收件人、主题、正文和附件。单击　

按钮“发送ｆｌｅｅ”，则将邮件发送至收件人邮箱内。若还需　

要定时发送，则单击按钮“开始定时　，则每隔ｌ０分钟系统　

会自动将指定的邮件发送至收件人邮箱内。如图ｌ所示。　

瞄１局壤阿内曲捧件发送　

下面主要介绍发送邮件部分的代码：　

ｐｒｏｃｅｄｕｒｅ　Ｔｆｒｍｍａｌ１．Ｂｌｎ

＿＿

ＭａｉｌＣ］ｉｃＨＳｅｎｄｅｒ：ＴＯｂｊｅｅ０；　

Ⅲ　

ｌｖｓ－Ｓｕｂｊｅｅｌ，ｋｋｓ－Ｂｏｄｙ：Ｓｔｒｉｎｇ；　

ｉ：ｉｎｔｅｇｅｒ；　

ｂｅｇｉｎ　

ｔｒｙ　

ｏｓＦｒｏｍＡｄｄ：＝ｅｄ　ｓｅｎｄｍａｉｌ．ｔｅｘｔ；　

０ｓＴｏＡｄｄ：＝ｅｄ代ｃｅｉｖ￣ａｄｄ．Ｔｅｘｔ：　

ｏｓＡｔｔａｃｈＮｌｉｎｅ：＝ｅｄ　ａｒｔａｃｈ．Ｔｅｘｔ：　

ｖｉｓ－ｓｕ　ｂｊｃｃｔ：　ｅｄ＿ｓｕ埘ｅｃｔ．Ｔｅｘｔ　

ｒｉ＿－Ｏｔｏｍ　ｄｅｔａｉＬＬｉｎｅｓ．Ｃｏｕｎｔ－１　ｄｏ　

ｖｉｓ－ｂｏｄｙ：＝ｉｖｓ￣ｄ什ｒｅ

＿

ｄｅｔａｉｌ．Ｌｉｎｅｓ．Ｓｔｒｉｎｇｓｌｉｌ；　

，ｏｓＴｏＡｄ　ｄ＇ｌｖｓ－Ｓｕｂｊｅｃｔ，ｖｉｓ＿Ｂｏｄｙ　

ｏｓＡｔｔａｃｈＮａｍ￣）；　

Ｅｘｃｅｐｔ　

ｍ

＿

ｅ￣ｏｒ．Ｌｉｎｅ．Ａｄｄ｛ＴｉｍｅＴｏＳｔｔ￣Ｔｉｍｅ）＋’不镌连接邮件最务　

｝　发送邮件中簟　’）；　

ｅｎｄ；　

ｅｎｄ；　

ｐｒｏｃｅｄｕｒｅ　Ｔ￣ｍ

＿

ｍａｉｌ．ｕＳｅｎｄＭａｉ！（ＩｖｓＪ［ｏｎ，ＩｖｓＪｏ，Ｉｖｓ

＿

Ｓｏｂｊｅｃｔ，　

ｌｖｓ－Ｂ￣ｙ，ｖｉｓ

＿

Ａｔｔａｃｈ：Ｓｔｒｌｎｇ）；　

ｂｅｇｉｎ　

Ｓｍｔｐ　Ｓｅｒｖｅｒ．Ｃｌｅａｒｈｒａｍｅｔｅｒｓ；　

ＳＭｔｐＳｅｒｖｅｒ．ＰｍｔＭｅｍａｇ￣ＦｒｏｍＡｄｄｒｅｓｓ：　ＩｖｓＦｒｏｍ：　

＿＿

Ｓｍｔｐ　Ｓｅｒｖｅｒ．ＰｏｓｔＭｅｓｓａｇｅ．Ｓｕ　ｂｊｅｅｔ：＝Ｉｖｓ＿Ｓｕｂ批ｃｔ；　

Ｓｍｔｐ　Ｓｅｒｖｅｒ．ＰｏｓｔＭｅｓｓａｇｅ．ＴｏＡｄｄｒｅｓｓ．Ｃｌｅａｒ；　

Ｓｍｔｐ

＿

Ｓｅｒｖｅｒ．ＰｍｔＭｅｓｓａｇｅ．ＴｏＡｄｄｒｅｓｓ．Ａｄｄ（ＩｖＬＴ０】；　

ｉｆｉｖｓ

ａｔｔａｅｈ　ｏ”ｔｈｅｎ　

＿

Ｓｍ￣ｐ

＿

Ｓｅｒｖｅｒ．ＰｏｓｔＭｅｍａｇｅ．Ａｔｔａｃｈｍｅｌｔｓ．Ａｄｄｎｖｓ

＿

Ａｔｔａｃｈ）；　

ＳｍｔｐＳｅｒｖｅｒ．ＰｏｓｔＭｅｓｓａｇｅ．Ｂｏｄｙ．Ｃｌｅａｒ；　

＿

Ｓｍｔｐ

＿

Ｓ￣ｒｖｅｒ．ＰｏｓｔＭｅｓｓａｇ￣ｏＢｏｄｙ．Ａｄｄ（Ｉｖｓ

＿

Ｂｏｄｙ）；　

ｔｒｙ　

Ｓｍｔｐ　Ｓｅｒｖｅｒ．ｅｓｎｄＭａｉｌ；　

Ｅｘｃｅｐｔ　

ｍ

＿

ｅｒｒｏｒ．Ｌｉｎｅｓ．Ａｄｄ（ＴｉｍｅＴｏＳｔｒ（Ｔｉｍｅ）＋　不能连接　件鼍务　

｝　发送　件中毒　’）；　

ＳｅｒｖｅｒＣｏｎｎｅｅｔ　Ｆｊｔ￣ｅ；　

ｅｎｄ；　

ｅｎｄ；　

在这个实例中，系统连接的Ｅｘｃｈａｎ窖ｅ邮件服务器地址是　

ｊ　９２．１６８．Ｉ．３，发件人和收件人的邮箱均）ｊｔ＇ｏ：５５＠１９２．１６８　ｌ　３．　

在填写好邮件主题和内容之后．单击按钮“选择附件”．会　

打开标准Ｗｉｎｄｏｗｓ窗口让用户选择需要发送的附件。确定无　

误　后，单击按钮“发送邮件”后．系统调用过程　

ｕＳｅｎｄＭａｉｌ对用户输入的邮件各个部分进行处理．并发送至　

收件人。发送过程中如果出现错误，系统会自动将错误信息　

保留下来供用户查看。　

３结束语　

通过使用此软件，用户可耻将日常维护工作所产生的系　

统日志文件作为邮件的附件手工或自动定时发送蛤指定收件　

人．可　减少系统管理人员在日志处理中的工作量，进而提　

高系统的运行效率。　

参考文藏　

１　Ｍｉｃｒｏｓｏｆｔ希望图书创作宣译Ｍｉｃｒｏｓｏｆｔ　Ｅｘｃｈａｎｇｅ　Ｓｅｒｖｅｒ　５．０棱心　

技术北京：科学出版社．１９９８　

２　Ｔｅｉｘｅｉｒａ　ｓ　Ｄｃｌｐｈｉ５开发＾员指南北京：机械工业出版社、２０００　

２８５—