带有 MailEnvelope 的 VBA 停止工作

Question

您能否就以下问题给我建议。

我有一个带有 VBA 的 Excel 工作簿，运行时应该将仪表板通过电子邮件发送给列表中的电子邮件收件人。

现在宏停止工作。或者更确切地说，宏开始工作，但不生成电子邮件： When run, it asks if an email should be sent, but when "yes" is selected nothing happens?! 我能够运行旧版本的工作簿及其宏。由于宏正在使用活动工作表，因此它执行宏并使用当前仪表板发送电子邮件。 但是，当我将代码粘贴到当前工作簿时，它并没有完全执行。不会生成电子邮件。 因此，当前工作簿似乎已禁用某些内容。 一位同事在仪表板中做了一些更改——添加了行和列，然后在 VBA 中调整了范围。否则我不知道有任何其他变化。

提前谢谢你。

请看下面的代码：

'Send Bulk Email From Excel Using VBA Code
Sub SendDailyReport()
    'Below Loop can be changed to While Loop or increase the limit (10) if your list has more than 10 mail ids
    Dim SendTo As String
    Dim ToMSg As String
 If MsgBox("Are you sure you want to send this report?", vbYesNo) = vbNo Then Exit Sub
    For I = 2 To 1000
        SendTo = ThisWorkbook.Sheets(1).Cells(I, 1)
        If SendTo <> ñî Then
            ToMSg = ThisWorkbook.Sheets(1).Cells(I, 2)
            Send_Range SendTo, ToMSg
        End If
    Next I
End Sub
Sub Send_Range(SendTo As String, ToMSg As String)


   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("F4:S46").Select

   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = SendTo
      .Item.Subject = ToMSg
      .Item.Send
   End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub

Answer 1

ToMSg的主题取自这里：

ToMSg = ThisWorkbook.Sheets(1).Cells(I, 2)

因此，它取自工作簿的第一页，而不是 ActiveSheet。

删除ThisWorkbook.Sheets(1)，它应该可以工作。