当前位置：首页 > 问答 > 正文

Access数据库里怎么搞邮件发出去，步骤和方法都说说吧

符海莹
问答
2025-12-23 18:37:28
4

要明确一点,Access本身没有内置一个像Outlook那样点击就能发邮件的按钮，它主要是通过一些功能来“调用”或“驱动”你电脑上已有的邮件系统（比如Outlook）或者通过网络直接发送邮件，这里主要讲两种最常用、也相对简单的方法。

使用Access的“发送对象”功能（最简单，适合手动操作）

这个方法不适合自动发送,而是当你已经做好了一份报表、一个表格或者一份报告后，想立刻把它通过邮件发给别人时使用，它的本质是Access和你电脑上的邮件客户端（如Outlook）的一个快捷联动。

步骤1：准备好要发送的内容。 在Access中，打开你想要发送的对象，这可以是一个报表（看起来最规整，像是打印出来的样子），也可以是一个表、查询结果或者窗体，通常发送报表是最常见的，因为格式好看。
步骤2：使用“发送对象”命令。 在Access的左上角，点击“文件”菜单，然后找到“共享”或“发送”相关选项，或者在主界面上，当你选中了那个报表后，在“外部数据”选项卡里，也能找到“电子邮件”的按钮（通常是一个信封图标）。
步骤3：选择发送格式。 点击后，Access会弹出一个对话框，问你希望以什么格式发送，对于报表，通常会选择“PDF”或“XPS”格式，这样能保证对方看到的样式和你设计的一模一样，如果是数据表，可以选择“Excel”格式，方便对方进行二次处理。
步骤4：自动调用邮件程序。 选择好格式后，点击确定，Access会自动启动你电脑上默认的邮件程序（比如Outlook），这时，你会看到一封新邮件已经草稿，你要发送的那个文件（比如一个PDF附件）已经自动添加为附件了。
步骤5：填写邮件信息并发送。 在新邮件的界面里，你只需要像平常写邮件一样，填上收件人地址、主题和邮件正文，然后点击“发送”就可以了。

总结一下这个方法： 就像是你手动把文件保存到桌面，然后打开邮箱添加附件一样，Access帮你把“保存”和“添加附件”这两个步骤合并了，一键完成，省了点麻烦，但这个过程需要你手动触发，无法自动完成。

使用VBA代码自动发送邮件（功能强大，适合自动化）

如果你想实现自动化,比如每天晚上自动把当天的销售报表发给经理，或者客户数据更新后自动发邮件通知，那就必须使用VBA代码了，VBA是Access内置的编程语言，可以让你控制数据库做很多事情，这里又分两种子方法：

子方法A：通过Outlook自动发送（需要电脑安装并登录Outlook）

这种方法是通过VBA代码控制你电脑上的Outlook软件来发邮件。

步骤1：打开VBA编辑器。 在Access中，按快捷键 Alt + F11，就可以打开VBA编程界面。
步骤2：启用Outlook引用。 在VBA编辑器里，点击菜单栏的“工具” -> “引用”，在弹出的长列表里，找到并勾选“Microsoft Outlook XX.X Object Library”（XX.X是版本号，比如16.0），这一步是告诉Access，它需要调用Outlook的功能。

步骤3：编写发送邮件的代码。 你可以在一个按钮的点击事件里，或者在一个自动运行的模块里写入类似下面的代码，这是一个非常基础的例子：

Sub SendEmailViaOutlook()
    '定义Outlook相关对象
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    '创建Outlook应用和邮件对象
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0) '0代表普通邮件
    '设置邮件内容
    With OutlookMail
        .To = "zhangsan@company.com" '收件人地址
        .CC = "lisi@company.com"     '抄送人地址（可选）
        .Subject = "这是邮件的主题：每日销售报告" '邮件主题
        .Body = "您好！" & vbNewLine & vbNewLine & "这是今天的销售报告，请查收。" '邮件正文，vbNewLine是换行
        '如果需要添加附件，可以这样写，附件路径要写全
        '.Attachments.Add "C:\Reports\DailySales.pdf"
        '非常重要：使用.Display可以先预览而不直接发送，方便调试；用.Send会直接发送
        .Display '预览
        '.Send    '直接发送（谨慎使用！）
    End With
    '清理对象，释放内存
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    MsgBox "邮件已准备就绪！" '如果用的是.Display，弹出提示
End Sub

步骤4：运行代码。 你可以将这段代码关联到一个按钮上，这样点击按钮就会执行，第一次测试时，建议使用 .Display，这样邮件会弹出来让你检查一下对不对，确认无误后，你再手动点击Outlook窗口上的“发送”，等一切调试没问题后，再把 .Display 换成 .Send 实现完全自动发送。

子方法B：使用CDO直接通过网络发邮件（不依赖Outlook软件）

如果你的电脑上没有安装Outlook,或者服务器上运行的Access数据库需要发邮件，这种方法更合适，它直接通过网络协议（SMTP）连接邮件服务器（比如QQ邮箱、163邮箱的服务器）来发送。

步骤1：准备好SMTP服务器信息。 你需要知道你邮箱的SMTP服务器地址、端口号，并通常需要开启SMTP服务授权码（不是你的邮箱密码，是为了安全起见专门生成的一个密码），QQ邮箱的SMTP服务器是smtp.qq.com，端口是465或587。

步骤2：编写CDO代码。 在VBA编辑器中，不需要额外引用，直接写代码，以下是一个使用QQ邮箱的示例：

Sub SendEmailViaCDO()
    '定义CDO对象
    Dim CDOMail As Object
    Set CDOMail = CreateObject("CDO.Message")
    '配置服务器信息
    With CDOMail.Configuration.Fields
        'SMTP服务器地址
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.qq.com"
        '服务器端口（SSL加密端口）
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        '使用SSL加密连接
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        '认证方式：基本认证
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '你的邮箱账号
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-email@qq.com"
        '你的SMTP授权码，不是邮箱密码！
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的授权码"
        '更新配置
        .Update
    End With
    '设置邮件内容
    With CDOMail
        .From = "your-email@qq.com" '发件人，最好和上面登录的账号一致
        .To = "recipient@company.com" '收件人
        .Subject = "通过CDO发送的测试邮件"
        .TextBody = "这封邮件是Access通过CDO直接发送的，不依赖Outlook。"
        '也可以添加附件
        '.AddAttachment "C:\Reports\Report.pdf"
        '发送邮件
        .Send
    End With
    Set CDOMail = Nothing
    MsgBox "邮件发送成功！"
End Sub

步骤3：运行测试。 运行这段代码，它会直接尝试发送邮件，你需要确保网络通畅，并且邮箱、授权码、服务器信息填写正确。

重要提醒和总结

安全警告： 无论哪种自动发送方法，尤其是把密码或授权码写在代码里，都存在一定的安全风险，请妥善保管你的数据库文件。
选择方法： 如果只是偶尔手动发，用方法一最省事，如果需要自动化，电脑有Outlook就用子方法A，没有Outlook或者需要在服务器环境运行就用子方法B。
测试为先： 自动发送邮件前，务必先用测试邮箱地址进行充分测试，避免给大量客户或同事发送错误邮件。
错误处理： 正式的VBA代码应该加入错误处理（On Error Goto...），以便在出错时（如网络中断、密码错误）给出友好提示，而不是直接崩溃。

就是Access数据库里发送邮件的主要步骤和方法,核心在于理解Access是如何借助外部工具（Outlook）或网络协议（SMTP）来实现邮件功能的。

Access数据库里怎么搞邮件发出去，步骤和方法都说说吧