如何用For Loop动态生成指定日期交易的Outlook邮件正文

核心解决思路 #

不用写死交易数量的判断逻辑，而是通过字符串累加的方式构建邮件正文：先初始化开头文本，再遍历所有交易行，把每一条交易的特征信息拼接成单行文本，逐行追加到正文字符串中，最后一次性将完整字符串赋值给邮件正文，避免循环中覆盖内容的问题。

完整VBA代码示例 #

Sub GenerateDailyTradeEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim emailBody As String
    
    ' 初始化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)
    
    ' 指定存放交易数据的工作表（根据实际修改）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 自动获取最后一行交易数据（以A列为例，可根据实际列调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化邮件正文开头
    emailBody = "您好，今日的交易如下：" & vbCrLf & vbCrLf
    
    ' 遍历所有交易行（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        ' 拼接单条交易信息，根据实际列的含义调整（示例为ID、金额、时间）
        Dim tradeInfo As String
        tradeInfo = "交易ID：" & ws.Cells(i, "A").Value & _
                    " | 交易金额：" & ws.Cells(i, "B").Value & _
                    " | 交易时间：" & ws.Cells(i, "C").Value
        
        ' 将单条交易信息追加到正文，换行分隔
        emailBody = emailBody & tradeInfo & vbCrLf
    Next i
    
    ' 设置邮件参数
    With olMail
        .To = "收件人邮箱@example.com" ' 替换为实际收件人邮箱
        .Subject = "[" & Format(Date, "yyyy-mm-dd") & "] 当日交易汇总"
        .Body = emailBody ' 若需HTML格式，改用.HTMLBody并将vbCrLf替换为<br>
        .Display ' 显示邮件，如需直接发送改为.Send
    End With
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
    Set ws = Nothing
End Sub

关键代码说明 #

• 字符串累加逻辑：通过emailBody = emailBody & tradeInfo & vbCrLf实现交易信息的逐行追加，而非直接赋值覆盖原有内容。
• 动态获取行数：lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row自动识别最后一行数据，无需手动指定交易数量。
• 灵活遍历交易：For i = 2 To lastRow循环适配任意交易数量，只需调整tradeInfo中列的对应关系即可匹配不同交易特征。
• Outlook兼容性：处理Outlook已打开/未打开的两种场景，避免运行报错。

若需要HTML格式的邮件正文，只需将vbCrLf替换为<br>，并将.Body改为.HTMLBody，还可添加简单HTML标签优化显示样式。

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