电子邮件的发送和接收
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
维普资讯
电
｜ ０ ≤ 誊鬻
３
：
熊 甍
摘 要
本 文主 要介 绍如 何 使 用微 软 公 司 的 ＭＡ Ｉ（ ｓａｉｇ Ａ ｐｉ ｔ ｎ Ｐｏｒｍｍ ｎ ｎ Ｐ Ｍｅｓｇｎ ｐ ｌ ａｉ ｒｇａ ｉｇ Ｉ— ｃ ｏ
ｔｆ ｅ ｅ ａ ，消息应 用程 序 编程接 口） ，实现 电子邮件 的 收发 功 能。 ｒｅ 关 键词 Ｖ Ｂ，电子邮件 ，消 息应 用程序
Ｖｅ Ｎ ｘＭ ｇ ｉ ｅｔ ｓ ，查 看 下 一个 消 息 。 ｗ
二 、 模块 设 计
模 拟 电子 邮件 Ｏ ｄ ｏ ｘｒｓ 的基 本 功 能包 括 邮件 的收 ｕ ｏｋＥ ｐｅｓ
发 、 附件 的发 送 和查 看 、 邮件 的 回复 、 电话 薄 的设 置 、打 印 邮 件 和 邮件 设 置 。程 序共 有 五 个 窗体 和一 个 模 块 组 成 。其 中 窗体 包 括 阅读 邮 件 消息 的 窗体 ，书写 和发 送 邮件 的 窗体 ，显 示 邮件 消息 列 表 的窗 体 ，收 发 邮件 设 置 窗 体 和 主 窗体 。 １ 模 块 部 分 ．
２ ．界面部分
进 入 到 主 界 面 ，最 初 由于 处 于 离 线 状 态 ， 当系 统 登 录到 服
务器后 ，程序打开邮件对话 ，取得邮件箱 中的 邮件数量 ，将 邮 件 的信 息装 载到邮件列表窗体 中的列表框 中，并显示收信箱 中 的所有 邮件消息 的基本信息 ，如下 图所示 。
中 ； 函 数 Ｌａ Ｍ ｓａｅ ｏｄ ｅｓｇ ，将 当 前 消 息 （ 据 Ｉｄｘ 装 载 到 窗 体 根 ｎｅ ） ｍ ｇ中 ，ｍｓ 体 可 以是 查 看 消 息 的 窗 体 Ｍ ｇ ｉｗ ｓ ｇ窗 ｓＶｅ ，也 可 以 功 能 。在 Ｖｓａ Ｂ ｓ ｉ ｌ ａｉ ，应 用 程 序 ｕ ｃ中 可 以通 过 调 用 微 软 公 司 的 ＭＡ Ｉ Ｐ ，实 现 收 发 电 子 邮 件 的 功 能 。 编 制 具 有 收 发 电子 邮件 功 能 的 程 序 ，必 须 使 用 Ｖ ｓａ Ｂ ｓ ． ｉ ｌ ａｉ４ ０ ｕ ｃ 以 上 的 版 本 。因 为 只 有 ４ ０以 上 的 Ｖｓａ Ｂ ｓ 才 带 有 两 个 实 ． ｉ ｌ ａｉ ｕ ｃ 现 电 子 邮 件 收发 功 能 的 核 心 控 件 ：ＭＡ Ｉ 话 控 件 和 ＭＡ Ｉ Ｐ会 Ｐ 消 息 控 件 。 Ｍ Ｐ 会 话 控 件 用 于 建 立 和 控 制 一 个 Ｍｉ ｓｆＭａ 会 ＡＩ ｃ ｏ ｉ ｏ ｒ ｔ ｌ 话 ， Ｍ Ｐ 消息 控 件 用 于 创 建 和 收 发 邮 件 消 息 。此 外 ，程 序 必 ＡＩ 须 运 行 在 采 用 遵 从 ＭＡ Ｉ的 消 息 系 统 （ ： Ｍｉ ｏｏ ｘ Ｐ 如 ｃ ｓｆ Ｅ － ｒ ｔ
在 程序 开始首 先编写模块 代码 ，定义 当 ＭＡ Ｉ ｓａｅ ＰＭｅｓｇｓ控
件被 激 活 时 ，Ａ ｔｎ属 性 使 用 的 常 数 ，该 属 性 决 定 将 执 行 什 么 ｃｏ ｉ 操 作 。 以 下 是 声 明读 取 注册 表 内容 的 函数 ： 函数 Ａｔｃｍ ｎｓ ｔ ｈ ｅｔ， ａ
（ 件 ） 的 数 量 ；函 数 Ｇ ｔＣ ｉ ，从 Ｍ ＰＭ ｓａｅ 控 件 中获 邮 ｅＲ Ｌｓ ｔ Ａ Ｉ ｅｓｇｓ
一
、
引 言
发 送 和 接 收 电 子 邮 件 ，对 于 某些 执行 特殊 任 务 的 应 用 程 序
得所 有收信人的姓名 ，姓名之间用分号隔开 ，返 回值为所有 收 信 人姓名 ；函数 Ｋｌ ｅｉ ，从 控件 中删除所 有收信人 地址 ； ｉＲ ｅ ｓ ｌ ｐ 函数 Ｌ ａＬｓ，将邮件 的信 息装载 到邮件列表 窗体 中的列表框 ｏｄ ｉ ｔ
书写新消息的窗体 Ｎ ｗ ｇ ｅ Ｍｓ；函数 Ｌｇ ｆ ｓｒ ｏＯｆ ｅ，注销发送 邮件连 Ｕ 接卸载所有的子窗体 ，设置各个菜单项及工具栏按 扭的可用状
态 ； 函 数 Ｐｉｔｏｇｅｔ ｒ Ｌ ｎＴｘ，打 印 消 息 的 子 程 序 之 一 ，用 于 打 印 消 ｎ 息 的 正 文 ；函 数 Ｐｉ ｍ ｉ ｒ ｔ ａ ，打 印 消 息 的 子 程 序 之 一 ，用 于 取 得 ｎ ｌ 要 打 印 的 消 息 ； 函 数 Ｐｉｔ ｓａｅ ｒ Ｍｅｓｇ ，打 印 消 息 的 子 程 序 之 一 ， ｎ
ｃａｇ 、Ｍ ｃ ｓｆＭ ｉ ｕ ｏｋ ）的环境 中。 ｈｎｅ ｉ ｏｔ ａ 、Ｏ ｄ ｏ 等 ｏ ｒ ｌ
用于设置打印机和取得打印消息头 ；函数 Ｓｔ Ｃ ｉ ，根据存储 ｅＲ Ｌｓ ｔ 收信人姓名 的字符串 Ｎ ｍ Ｌｓ 姓名用分 号隔开） ，设置收信 ａ ｅｉ ｔ（ 人姓 名 ；函数 Ｕ ｄｔ ｅｉｓ ｐ ａｅ ｃ ，更新收信人 和转 发的地址 ；函数 Ｒ ｐ
此子程 序的功 能是将 有 附件的信 息装 载到窗体 ｍ ｇ的列表 框 ｓ
“ ｌｔ 中 ； 函 数 Ｃ ｐＮ ｍ ｓ ＭｓＢ ｆ ｒ Ａｉ ” ｓ ｏｙ ａ ｅｔ ｇ ｕ ｅ ，此 子 程 序 的 功 能 是 ｏ
删除 原来 的收信人地址 ，并将 窗体 ｍ ｇ中填写 的收信人和抄 送 ｓ
人 地 址 添 加 到 发 送 邮 件 的 地 址 ； 函 数 Ｄ ｔＦｏ ａｉ ａ ￥，根 ａ ｒｍＭ ｐＤ ｔ ｅ ｅ 据 给 定 的 日 期 返 回 一 定 格 式 的 日 期 的 表 示 形 式 ； 函 数 Ｄ ｌ ｅ ｓａｅ 用 于 删 除 当 前 选 中 的 邮 件 ； 函 数 Ｄｓｌｙ ｔ ｅｅ Ｍｅｓ ， ｔ ｇ ｉ ａＡ－ ｐ ｔｃｅＦｌ， 根 据 文 件 类 型 查 看 附 件 文 件 ； 函 数 Ｆｎ Ｍ ｇ ｎ ａ ｈｄ ｉ ｅ ｉｄ ｓＷｉ． ｄ ｗ 判 断 当前 所 有 子 窗 体 中 是 否 包 含 有 相 对 邮 件 索 引 的 邮 ｏ， 件 ，如 果 没 有 则 返 回值 为 一１ ；函 数 Ｇ ｔｅｄｒ ｅＨ ａ ｅ，用 于从 控 件 取
电
｜ ０ ≤ 誊鬻
３
：
熊 甍
摘 要
本 文主 要介 绍如 何 使 用微 软 公 司 的 ＭＡ Ｉ（ ｓａｉｇ Ａ ｐｉ ｔ ｎ Ｐｏｒｍｍ ｎ ｎ Ｐ Ｍｅｓｇｎ ｐ ｌ ａｉ ｒｇａ ｉｇ Ｉ— ｃ ｏ
ｔｆ ｅ ｅ ａ ，消息应 用程 序 编程接 口） ，实现 电子邮件 的 收发 功 能。 ｒｅ 关 键词 Ｖ Ｂ，电子邮件 ，消 息应 用程序
Ｖｅ Ｎ ｘＭ ｇ ｉ ｅｔ ｓ ，查 看 下 一个 消 息 。 ｗ
二 、 模块 设 计
模 拟 电子 邮件 Ｏ ｄ ｏ ｘｒｓ 的基 本 功 能包 括 邮件 的收 ｕ ｏｋＥ ｐｅｓ
发 、 附件 的发 送 和查 看 、 邮件 的 回复 、 电话 薄 的设 置 、打 印 邮 件 和 邮件 设 置 。程 序共 有 五 个 窗体 和一 个 模 块 组 成 。其 中 窗体 包 括 阅读 邮 件 消息 的 窗体 ，书写 和发 送 邮件 的 窗体 ，显 示 邮件 消息 列 表 的窗 体 ，收 发 邮件 设 置 窗 体 和 主 窗体 。 １ 模 块 部 分 ．
２ ．界面部分
进 入 到 主 界 面 ，最 初 由于 处 于 离 线 状 态 ， 当系 统 登 录到 服
务器后 ，程序打开邮件对话 ，取得邮件箱 中的 邮件数量 ，将 邮 件 的信 息装 载到邮件列表窗体 中的列表框 中，并显示收信箱 中 的所有 邮件消息 的基本信息 ，如下 图所示 。
中 ； 函 数 Ｌａ Ｍ ｓａｅ ｏｄ ｅｓｇ ，将 当 前 消 息 （ 据 Ｉｄｘ 装 载 到 窗 体 根 ｎｅ ） ｍ ｇ中 ，ｍｓ 体 可 以是 查 看 消 息 的 窗 体 Ｍ ｇ ｉｗ ｓ ｇ窗 ｓＶｅ ，也 可 以 功 能 。在 Ｖｓａ Ｂ ｓ ｉ ｌ ａｉ ，应 用 程 序 ｕ ｃ中 可 以通 过 调 用 微 软 公 司 的 ＭＡ Ｉ Ｐ ，实 现 收 发 电 子 邮 件 的 功 能 。 编 制 具 有 收 发 电子 邮件 功 能 的 程 序 ，必 须 使 用 Ｖ ｓａ Ｂ ｓ ． ｉ ｌ ａｉ４ ０ ｕ ｃ 以 上 的 版 本 。因 为 只 有 ４ ０以 上 的 Ｖｓａ Ｂ ｓ 才 带 有 两 个 实 ． ｉ ｌ ａｉ ｕ ｃ 现 电 子 邮 件 收发 功 能 的 核 心 控 件 ：ＭＡ Ｉ 话 控 件 和 ＭＡ Ｉ Ｐ会 Ｐ 消 息 控 件 。 Ｍ Ｐ 会 话 控 件 用 于 建 立 和 控 制 一 个 Ｍｉ ｓｆＭａ 会 ＡＩ ｃ ｏ ｉ ｏ ｒ ｔ ｌ 话 ， Ｍ Ｐ 消息 控 件 用 于 创 建 和 收 发 邮 件 消 息 。此 外 ，程 序 必 ＡＩ 须 运 行 在 采 用 遵 从 ＭＡ Ｉ的 消 息 系 统 （ ： Ｍｉ ｏｏ ｘ Ｐ 如 ｃ ｓｆ Ｅ － ｒ ｔ
在 程序 开始首 先编写模块 代码 ，定义 当 ＭＡ Ｉ ｓａｅ ＰＭｅｓｇｓ控
件被 激 活 时 ，Ａ ｔｎ属 性 使 用 的 常 数 ，该 属 性 决 定 将 执 行 什 么 ｃｏ ｉ 操 作 。 以 下 是 声 明读 取 注册 表 内容 的 函数 ： 函数 Ａｔｃｍ ｎｓ ｔ ｈ ｅｔ， ａ
（ 件 ） 的 数 量 ；函 数 Ｇ ｔＣ ｉ ，从 Ｍ ＰＭ ｓａｅ 控 件 中获 邮 ｅＲ Ｌｓ ｔ Ａ Ｉ ｅｓｇｓ
一
、
引 言
发 送 和 接 收 电 子 邮 件 ，对 于 某些 执行 特殊 任 务 的 应 用 程 序
得所 有收信人的姓名 ，姓名之间用分号隔开 ，返 回值为所有 收 信 人姓名 ；函数 Ｋｌ ｅｉ ，从 控件 中删除所 有收信人 地址 ； ｉＲ ｅ ｓ ｌ ｐ 函数 Ｌ ａＬｓ，将邮件 的信 息装载 到邮件列表 窗体 中的列表框 ｏｄ ｉ ｔ
书写新消息的窗体 Ｎ ｗ ｇ ｅ Ｍｓ；函数 Ｌｇ ｆ ｓｒ ｏＯｆ ｅ，注销发送 邮件连 Ｕ 接卸载所有的子窗体 ，设置各个菜单项及工具栏按 扭的可用状
态 ； 函 数 Ｐｉｔｏｇｅｔ ｒ Ｌ ｎＴｘ，打 印 消 息 的 子 程 序 之 一 ，用 于 打 印 消 ｎ 息 的 正 文 ；函 数 Ｐｉ ｍ ｉ ｒ ｔ ａ ，打 印 消 息 的 子 程 序 之 一 ，用 于 取 得 ｎ ｌ 要 打 印 的 消 息 ； 函 数 Ｐｉｔ ｓａｅ ｒ Ｍｅｓｇ ，打 印 消 息 的 子 程 序 之 一 ， ｎ
ｃａｇ 、Ｍ ｃ ｓｆＭ ｉ ｕ ｏｋ ）的环境 中。 ｈｎｅ ｉ ｏｔ ａ 、Ｏ ｄ ｏ 等 ｏ ｒ ｌ
用于设置打印机和取得打印消息头 ；函数 Ｓｔ Ｃ ｉ ，根据存储 ｅＲ Ｌｓ ｔ 收信人姓名 的字符串 Ｎ ｍ Ｌｓ 姓名用分 号隔开） ，设置收信 ａ ｅｉ ｔ（ 人姓 名 ；函数 Ｕ ｄｔ ｅｉｓ ｐ ａｅ ｃ ，更新收信人 和转 发的地址 ；函数 Ｒ ｐ
此子程 序的功 能是将 有 附件的信 息装 载到窗体 ｍ ｇ的列表 框 ｓ
“ ｌｔ 中 ； 函 数 Ｃ ｐＮ ｍ ｓ ＭｓＢ ｆ ｒ Ａｉ ” ｓ ｏｙ ａ ｅｔ ｇ ｕ ｅ ，此 子 程 序 的 功 能 是 ｏ
删除 原来 的收信人地址 ，并将 窗体 ｍ ｇ中填写 的收信人和抄 送 ｓ
人 地 址 添 加 到 发 送 邮 件 的 地 址 ； 函 数 Ｄ ｔＦｏ ａｉ ａ ￥，根 ａ ｒｍＭ ｐＤ ｔ ｅ ｅ 据 给 定 的 日 期 返 回 一 定 格 式 的 日 期 的 表 示 形 式 ； 函 数 Ｄ ｌ ｅ ｓａｅ 用 于 删 除 当 前 选 中 的 邮 件 ； 函 数 Ｄｓｌｙ ｔ ｅｅ Ｍｅｓ ， ｔ ｇ ｉ ａＡ－ ｐ ｔｃｅＦｌ， 根 据 文 件 类 型 查 看 附 件 文 件 ； 函 数 Ｆｎ Ｍ ｇ ｎ ａ ｈｄ ｉ ｅ ｉｄ ｓＷｉ． ｄ ｗ 判 断 当前 所 有 子 窗 体 中 是 否 包 含 有 相 对 邮 件 索 引 的 邮 ｏ， 件 ，如 果 没 有 则 返 回值 为 一１ ；函 数 Ｇ ｔｅｄｒ ｅＨ ａ ｅ，用 于从 控 件 取