Access表单空值判断触发邮件异常：VBA代码无法发送邮件

问题根源分析 #

你的代码无法触发邮件的核心问题有3个：

• Null值判断错误：VBA中不能用MoveOutPacket = Null判断空值，这种比较结果永远为Null，导致条件不成立。必须用IsNull(MoveOutPacket)或MoveOutPacket Is Null。
• 事件触发时机不当：DaysLeft_Change事件会在输入字符的过程中频繁触发，逻辑不稳定。改用AfterUpdate事件，仅在控件值确认更新后触发更合理。
• 控件引用不明确：代码中Property、Recieved_Keys属于表单控件，未加Me.前缀可能导致Access无法识别，需明确引用。

修正后的完整代码 #

Private Sub DaysLeft_AfterUpdate()
    ' 正确判断DaysLeft小于5且MoveOutPacket为空
    If (Me.DaysLeft < 5) And IsNull(Me.MoveOutPacket) Then
        Dim Msg As String
        Msg = "Maintenance Team, we will receive the keys for " & Me.Property & " on " & Me.Recieved_Keys & " please schedule cleaning and carpet cleaning if the unit is vacant."

        Dim O As Outlook.Application
        Dim M As Outlook.MailItem
        ' 优先获取已打开的Outlook实例，避免重复启动
        On Error Resume Next
        Set O = GetObject(, "Outlook.Application")
        If Err.Number <> 0 Then
            Set O = New Outlook.Application
        End If
        On Error GoTo 0
        
        Set M = O.CreateItem(olMailItem)

        With M
            .BodyFormat = olFormatHTML
            .HTMLBody = Msg
            .To = "hannah@208.properties"
            ' 调试阶段可替换为.Display，确认内容后再改回.Send
            .Send
        End With

        Set M = Nothing
        Set O = Nothing
    End If
End Sub

额外注意事项 #

• Outlook安全设置：如果弹出程序访问提示，可通过Outlook信任中心设置允许Access访问，或改用后期绑定（将Outlook对象声明为Object类型）避免引用库问题。
• 调试建议：先把.Send改成.Display，手动确认邮件内容、收件人无误后，再切换回自动发送逻辑。

内容的提问来源于stack exchange，提问作者Hannah Bruno