Access数据库VBA邮件发送：如何修改From字段为部门监控邮箱

你之前尝试直接赋值字符串给SenderEmailAddress、MailItem.From的方式无效，核心原因是：Outlook的发件人属性不能直接用字符串赋值，必须绑定到当前Outlook中已配置且有权限使用的邮箱账户（或共享邮箱对应的对象）。

以下是两种可行的解决方案：

方法1：通过账户列表指定发件账户 #

如果部门邮箱已作为独立账户添加到Outlook中，遍历账户集合找到对应邮箱，用SendUsingAccount属性指定发件账户：

Private Sub Command33_Click()
 
    Dim OutlookApp As Object
    Dim MailItem As Object
    Dim Inspector As Object
    Dim Signature As String
    Dim oAccount As Object ' 对应Outlook.Account对象
    
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 遍历Outlook账户，匹配部门邮箱
    For Each oAccount In OutlookApp.Session.Accounts
        If oAccount.SmtpAddress = "department@bank.com" Then
            Exit For
        End If
    Next oAccount
    
    Set MailItem = OutlookApp.CreateItem(0) ' 0代表olMailItem
    
    ' 绑定发件账户（找到则设置）
    If Not oAccount Is Nothing Then
        Set MailItem.SendUsingAccount = oAccount
    End If
    
    Set Inspector = MailItem.GetInspector
    Signature = MailItem.HTMLBody
    
    MailItem.HTMLBody = "<p>Dear " & FirstName & ",</p><p>Below is your Personal Identification Number (PIN). This number will be required for initiation and verification of wire transfers.</p><p style='font-size:24px; color:red;'><b>" & Pin & "</b></p>" & Signature
    
    MailItem.Subject = "ENCRYPT - Personal Identification Number (PIN)"
    MailItem.To = Email
    MailItem.CC = "department@bank.com"
 
    MailItem.Display
 
    ' MailItem.Send
    
    ' 释放对象
    Set Inspector = Nothing
    Set MailItem = Nothing
    Set oAccount = Nothing
    Set OutlookApp = Nothing
    
End Sub

方法2：针对共享邮箱场景 #

如果部门邮箱是作为共享邮箱添加到个人Outlook（未设为独立账户），需要先解析邮箱对应的收件人对象，再绑定发件人：

Private Sub Command33_Click()
 
    Dim OutlookApp As Object
    Dim MailItem As Object
    Dim Inspector As Object
    Dim Signature As String
    Dim oRecipient As Object ' 对应Outlook.Recipient对象
    
    Set OutlookApp = CreateObject("Outlook.Application")
    
    Set MailItem = OutlookApp.CreateItem(0) ' 0代表olMailItem
    
    ' 创建并解析部门邮箱的收件人对象
    Set oRecipient = OutlookApp.Session.CreateRecipient("department@bank.com")
    oRecipient.Resolve ' 验证邮箱是否可识别
    
    ' 解析成功则绑定发件人
    If oRecipient.Resolved Then
        Set MailItem.Sender = oRecipient.AddressEntry
    End If
    
    Set Inspector = MailItem.GetInspector
    Signature = MailItem.HTMLBody
    
    MailItem.HTMLBody = "<p>Dear " & FirstName & ",</p><p>Below is your Personal Identification Number (PIN). This number will be required for initiation and verification of wire transfers.</p><p style='font-size:24px; color:red;'><b>" & Pin & "</b></p>" & Signature
    
    MailItem.Subject = "ENCRYPT - Personal Identification Number (PIN)"
    MailItem.To = Email
    MailItem.CC = "department@bank.com"
 
    MailItem.Display
 
    ' MailItem.Send
    
    ' 释放对象
    Set Inspector = Nothing
    Set MailItem = Nothing
    Set oRecipient = Nothing
    Set OutlookApp = Nothing
    
End Sub

注意事项 #

• 确保你的Outlook账户有权限使用部门邮箱发件（日常能手动选择该邮箱发件即满足条件）
• SendUsingAccount是更可靠的发件账户指定方式，它会自动关联对应的邮件服务器配置
• 若方法1找不到对应账户，说明部门邮箱是共享邮箱，切换到方法2即可

内容的提问来源于stack exchange，提问作者Timothy Couch