使用 Excel VBA 向电子邮件正文添加范围

问：

我正在尝试使用 Excel VBA 通过 Outlook 发送电子邮件。

我在网上找到了代码，并输入了自己的价值观。

我明白了

运行时错误“13”“类型不匹配”。

我正在尝试向电子邮件正文添加一个范围。原始代码添加了单个单元格的值。

Sub SendEmails()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long

    ' Create a reference to the Outlook application
    Set OutApp = CreateObject("Outlook.Application")

    ' Set the worksheet where your data is located
    Set ws = ThisWorkbook.Sheets("Sheet3") ' Change "Sheet2" to your sheet name

    ' Find the last row with data in column A
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Loop through each row with data
    For i = 2 To LastRow ' Assuming the header is in row 1
        ' Create a new email
        Set OutMail = OutApp.CreateItem(0)

        ' Set email properties
        With OutMail
            ' Set the email address from Column D
            .To = ws.Cells(73, 12).Value
            ' Set the subject with the Invoice ID from Column A
            .Subject = "Approval Requested -  " & ws.Cells(1, 2).Value
            ' Create the email body with the requested information
            .Body = "Hi, " & ws.Cells(73, 11).Value & vbNewLine & vbNewLine & _
            "Please kindly approve the expenses below for ws.cells(1, 2).value on the ws.cells(73, 13).value tour. Thank you!" & vbNewLine & vbNewLine & _
            ws.Range("h73:i100") & vbNewLine & vbNewLine & _
            "Best Regards," & vbNewLine & "Aaron"

            ' Send the email
            .Send
        End With

        ' Release the email object
        Set OutMail = Nothing
    Next i

    ' Release the Outlook application object
    Set OutApp = Nothing
End Sub