MS Access Outlook 2010 - 如何选择从哪个帐户发送电子邮件

客户端

如何在 MS Access / Outlook 2010 中选择从哪个帐户发送电子邮件？

MS Access 是一个功能强大的数据库管理系统，而 Outlook 2010 是一款流行的电子邮件客户端。许多用户在使用 MS Access 时，需要通过 Outlook 发送电子邮件。然而，有时候用户可能有多个电子邮件帐户，而需要从特定帐户发送邮件。本文将介绍如何在 MS Access / Outlook 2010 中选择从哪个帐户发送电子邮件，并提供相应的案例代码。

1. 引用 Outlook 对象库

要在 MS Access 中使用 Outlook 2010 的功能，首先需要引用 Outlook 对象库。打开 MS Access，进入 VBA 编辑器，在工具栏上选择“工具”>“引用”，然后找到并选中“Microsoft Outlook 14.0 Object Library”。点击“确定”保存更改。

2. 创建 Outlook 应用程序对象

在 VBA 编辑器中，使用以下代码创建一个新的 Outlook 应用程序对象：

VBA
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application

3. 获取 Outlook 帐户列表

使用以下代码获取当前登录用户的 Outlook 帐户列表：

VBA
Dim olAccounts As Outlook.Accounts
Set olAccounts = olApp.Session.Accounts
Dim olAccount As Outlook.Account
For Each olAccount In olAccounts
    Debug.Print olAccount.DisplayName
Next olAccount

上述代码将在调试窗口中打印出所有可用的 Outlook 帐户的显示名称。

4. 选择发送帐户

根据用户的需求，我们可以让用户选择要使用的帐户。使用以下代码弹出一个对话框，让用户从列表中选择帐户：

VBA
Dim olAccount As Outlook.Account
Dim selectedAccount As Outlook.Account
For Each olAccount In olAccounts
    If olAccount.DisplayName = "用户选择的帐户名称" Then
        Set selectedAccount = olAccount
        Exit For
    End If
Next olAccount
If Not selectedAccount Is Nothing Then
    ' 在这里继续编写发送邮件的代码，并将 selectedAccount 作为发送帐户
Else
    ' 处理未选择帐户的情况
End If

用户选择的帐户将被存储在 selectedAccount 变量中，并可以在发送邮件的代码中使用。

案例代码

以下是一个完整的示例代码，展示了如何在 MS Access / Outlook 2010 中选择从哪个帐户发送电子邮件：

VBA
Sub SendEmAIlFromSelectedAccount()
    Dim olApp As Outlook.Application
    Dim olAccounts As Outlook.Accounts
    Dim olAccount As Outlook.Account
    Dim selectedAccount As Outlook.Account
    ' 创建 Outlook 应用程序对象
    Set olApp = New Outlook.Application
    ' 获取 Outlook 帐户列表
    Set olAccounts = olApp.Session.Accounts
    ' 打印出所有可用的 Outlook 帐户的显示名称
    For Each olAccount In olAccounts
        Debug.Print olAccount.DisplayName
    Next olAccount
    ' 弹出对话框，让用户选择帐户
    For Each olAccount In olAccounts
        If olAccount.DisplayName = "用户选择的帐户名称" Then
            Set selectedAccount = olAccount
            Exit For
        End If
    Next olAccount
    If Not selectedAccount Is Nothing Then
        ' 在这里继续编写发送邮件的代码，并将 selectedAccount 作为发送帐户
        Dim olMAIl As Outlook.MAIlItem
        Set olMAIl = olApp.CreateItem(olMAIlItem)
        olMAIl.Subject = "测试邮件"
        olMAIl.Body = "这是一封测试邮件。"
        olMAIl.SendUsingAccount = selectedAccount
        olMAIl.Send
    Else
        ' 处理未选择帐户的情况
        MsgBox "未选择任何帐户。"
    End If
    ' 释放对象
    Set olMAIl = Nothing
    Set olAccount = Nothing
    Set olAccounts = Nothing
    Set olApp = Nothing
End Sub

通过以上步骤，你可以在 MS Access / Outlook 2010 中选择从哪个帐户发送电子邮件。根据用户的选择，你可以使用相应的帐户发送邮件，以满足特定的需求。