VBA数组填充与单邮件批量值发送问题排查及需求实现

问题根源与修复方案 #

1. Run-time error '6': Overflow（溢出错误）
   通常是因为使用了Integer类型数组，当符合条件的单元格数量超出Integer的取值范围（-32768~32767）时触发。改用动态Variant数组或直接用字符串累加存储结果，可避免固定类型的容量限制。

2. 邮件仅显示最后一个符合条件的值
   原代码大概率在循环中直接覆盖邮件内容变量，而非累加。需要用字符串拼接的方式，将每个符合条件的值追加到内容中，用换行符分隔。

3. Outlook仅打开窗口但不显示新邮件
   未对创建的MailItem对象调用.Display方法，或者Outlook对象初始化存在问题。需确保正确创建Outlook应用实例，并显式调用邮件的显示方法。

修正后的完整代码 #

Sub SendSummaryEmail()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim emailContent As String
    Dim olApp As Object
    Dim olMail As Object
    
    ' 设置目标工作表（根据实际情况修改工作表名称）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' 累加符合条件的F列值
    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始遍历
        If ws.Cells(i, "G").Value = "" Then
            ' 追加值到邮件内容，用换行分隔
            emailContent = emailContent & ws.Cells(i, "F").Value & vbCrLf
        End If
    Next i
    
    ' 检查是否有符合条件的内容
    If emailContent = "" Then
        MsgBox "没有符合条件的记录", vbInformation
        Exit Sub
    End If
    
    ' 初始化Outlook对象
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    ' 创建新邮件
    Set olMail = olApp.CreateItem(0) ' 0代表olMailItem
    With olMail
        .To = "收件人邮箱@example.com" ' 修改为实际收件人
        .Subject = "符合条件的F列值汇总"
        .Body = "以下是G列为空对应的F列值：" & vbCrLf & vbCrLf & emailContent
        .Display ' 显示邮件窗口，如需直接发送替换为.Send
    End With
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

关键修复说明 #

• 避免溢出：放弃固定大小的数值数组，改用字符串直接累加结果，无需担心容量限制（字符串最大可容纳约20亿字符，完全满足日常需求）。
• 内容累加：通过emailContent = emailContent & 新值 & vbCrLf实现内容追加，确保所有符合条件的值都被包含。
• Outlook邮件显示：创建邮件后调用.Display方法，强制弹出新邮件窗口；如果需要直接发送，可替换为.Send。

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