复制多列，保持格式，从 Excel 到 Outlook 邮件

Question

我想将邮件发送给 Col A 中的每个收件人（单独的邮件），Col B 中的主题，以及 Excel 中从 Col D 到 Col I 的数据作为邮件正文。

我找到了以下代码，该代码适用于电子邮件地址和主题。

在正文中，它仅从一列（Col D）中挑选数据。如何使用格式更新正文中的范围 D2:I2？

Option Explicit

Sub Sample()
    Dim OutApp As Object, OutMail As Object
    Dim ws As Worksheet
    Dim i As Long, lRow As Long

    Set OutApp = CreateObject("Outlook.Application")

    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row

        For i = 1 To lRow
            Set OutMail = OutApp.CreateItem(0)

            With OutMail
                .To = ws.Range("B" & i).Value
                .Cc = ""
                .Subject = ws.Range("C" & i).Value
                .Body = ws.Range("D" & i).Value
                .Display

            End With
        Next i
    End With
End Sub

Excel 示例数据

Answer 1

使用RangeToString 从-How can I convert a range to a string (VBA)? 获取.Body 的字符串

Function RangeToString(ByVal myRange as Range) as String
    RangeToString = ""
    If Not myRange Is Nothing Then
        Dim myCell as Range
        For Each myCell in myRange
            RangeToString = RangeToString & "," & myCell.Value
        Next myCell
        'Remove extra comma
        RangeToString = Right(RangeToString, Len(RangeToString) - 1)
    End If
End Function

并像这样使用它：

.Body = RangeToString(ws.Range(ws.Cells(2,"D"),ws.Cells(i, "I")))