Excel VBA库存预警代码无法触发Outlook邮件求助

原代码的核心问题 #

• 触发逻辑错误：原代码只监听J列（最低库存）的变化，且判断条件xRg < Target.Value完全不符合需求，既没对应同一行的C列库存，逻辑也搞反了
• 语法错误：直接用Range对象和单元格值比较，VBA中这种写法不成立
• 邮件无效：没有包含具体的库存预警信息，采购不知道要补什么货

修正后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监听C列（当前库存）或J列（最低库存）的变化，范围从第2行到2000行
    Dim watchRange As Range
    Set watchRange = Intersect(Me.Range("C2:C2000,J2:J2000"), Target)
    
    If watchRange Is Nothing Then Exit Sub
    
    ' 遍历所有触发变化的单元格，处理对应行的库存检查
    Dim cell As Range
    For Each cell In watchRange
        Dim rowNum As Long
        rowNum = cell.Row
        
        Dim currentStock As Double, minStock As Double
        currentStock = Me.Cells(rowNum, "C").Value
        minStock = Me.Cells(rowNum, "J").Value
        
        ' 判断当前库存是否小于等于最低库存
        If currentStock <= minStock Then
            ' 获取产品信息（假设A列是产品名称，可根据实际调整）
            Dim productName As String
            productName = Me.Cells(rowNum, "A").Value
            
            ' 调用邮件发送子程序，传入关键信息
            Call SendStockAlertMail(productName, currentStock, minStock)
        End If
    Next cell
End Sub

Sub SendStockAlertMail(productName As String, currentStock As Double, minStock As Double)
    Dim outApp As Object
    Dim outMail As Object
    Dim mailBody As String
    
    ' 创建Outlook应用对象
    Set outApp = CreateObject("Outlook.Application")
    Set outMail = outApp.CreateItem(0)
    
    ' 构建包含具体信息的邮件内容
    mailBody = "采购部门您好：" & vbNewLine & vbNewLine & _
              "以下产品库存已低于或等于最低阈值，请及时补货：" & vbNewLine & _
              "产品名称：" & productName & vbNewLine & _
              "当前库存：" & currentStock & vbNewLine & _
              "最低库存要求：" & minStock & vbNewLine & vbNewLine & _
              "感谢配合！"
    
    On Error Resume Next
    With outMail
        .To = "采购部门邮箱地址" ' 替换为实际收件邮箱
        .Subject = "库存预警：" & productName & "库存不足"
        .Body = mailBody
        .Send ' 直接发送，如需预览可改为.Display
    End With
    On Error GoTo 0
    
    ' 释放对象
    Set outMail = Nothing
    Set outApp = Nothing
End Sub

关键改进说明 #

• 触发范围：同时监听C列和J列的变化，确保任何一方变动都能触发库存检查
• 行匹配逻辑：针对变化单元格所在行，准确获取同一行的当前库存（C列）和最低库存（J列）进行比对
• 邮件实用性：加入产品名称、当前库存、最低库存等关键信息，让采购直接知道补货需求
• 错误处理：保留必要的错误捕获，避免因Outlook未打开等问题导致代码崩溃

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