使用 VBA 发送邮件有多种方法。最常用的是 Outlook 自动化 和 CDO (协作数据对象)。Outlook 自动化依赖于用户的电脑上必须安装 电话号码列表 并配置 Microsoft Outlook。它更易于使用，功能也更强大。而 CDO 则不需要 Outlook。它更灵活。接下来，我们将详细探讨这两种方法。
认识 Outlook 自动化
Outlook 自动化 是一种将 Access 与 Outlook 连接起来的技术。它允许我们通过代码控制 Outlook。我们可以创建邮件、添加收件人、设置主题和正文。甚至可以附加文件。这个过程就像我们手动操作 Outlook 一样。但是，全部由代码完成。
首先，你需要确保你的 Access 数据库可以引用 Outlook 对象库。在 VBA 编辑器中，进入“工具”菜单。选择“引用”。找到并勾选 “Microsoft Outlook xx.x Object Library”。这里的“xx.x”表示你的 Outlook 版本。然后，你就可以开始编写代码了。
代码通常会先创建一个 Outlook 应用程序对象。接着，创建一封新的邮件。然后，我们可以设置邮件的各个属性。例如，To (收件人)、Subject (主题) 和 Body (正文)。最后，使用 .Send 方法发送邮件。或者使用 .Display 方法来让用户在发送前进行修改。
创建 Outlook 自动化代码
下面是一个简单的例子。这段代码展示了如何使用 VBA 创建并发送一封邮件。我们将一步步分析
这段代码非常直观。我们首先声明了两个变量：olApp 和 olMail。它们分别代表 Outlook 应用程序和邮件对象。然后，我们使用 New 关键字创建了对象。接着，我们用 With 语句来操作 olMail 对象。这样可以减少重复的代码。.To, .Subject, .Body 分别用来设置收件人、主题和正文。最后，.Send 方法执行了发送操作。最后，我们必须将对象变量设为 Nothing。这是释放内存的好习惯。
添加附件和 HTML 正文
发送邮件时，经常需要添加附件。我们也可以用代码实现。只需使用 . 方法。这个方法接受文件路径作为参数。
邮件的正文也不总是纯文本。我们可以使用 HTML 来美化它。使用 .HTMLBody 属性可以实现这个功能。你可以编写一段 HTML 代码，然后赋给这个属性。它能让你的邮件看起来更专业。例如，你可以使用 <h3> 标签来创建标题。或者使用 <b> 标签来加粗文字。这能让你的邮件更具可读性。
使用 CDO 发送邮件
CDO 是一种更通用的方法。它不依赖于 Outlook。你只需要一个 SMTP 服务器。SMTP 是简单邮件传输协议。几乎所有的邮件服务都支持它。CDO 的设置比 Outlook 自动化稍微复杂一些。但它的好处是，你的代码可以跨平台工作。只要有 SMTP 服务器，就可以发送邮件。
使用 CDO 的第一步是引用 CDO 库。在 VBA 编辑器中，进入“工具”菜单。选择“引用”。找到并勾选 “Microsoft CDO for Windows 2000 Library”。之后，你就可以使用 CDO 对象了。
中，我们首先创建了 CDO.Message 和 CDO.Configuration 对象。然后，我们使用 cdoConf.Fields 来配置 SMTP 服务器。这些配置项以 URL 形式的字符串作为键。我们设置了服务器地址、端口号、身份验证方式、用户名、密码和 SSL 加密。之后，我们将这个配置赋给了 cdoMsg 对象。最后，设置邮件的发件人、收件人、主题和正文，然后发送。
错误处理和用户界面
在实际应用中，错误处理至关重要。发送邮件可能会失败。例如，网络连接中断或 SMTP 服务器配置错误。因此，你应该在代码中加入错误处理机制。使用 On Error GoTo 语句是一个好方法。
为了让用户体验更好，你可以创建一个用户界面。一个简单的窗体就足够了。窗体上可以有文本框，用来输入收件人、主题和正文。还可以有一个按钮，点击后执行 VBA 代码。这样，用户不需要接触代码。他们只需填写信息，然后点击发送。这极大地简化了操作流程。
总而言之，使用 VBA 在 Access 中发送电子邮件是一个非常实用的功能。它能帮助我们实现自动化。我们可以根据具体情况选择 Outlook 自动化 或 CDO。两种方法各有优缺点。选择最适合你的那一种。