如何使用Excel VBA发送电子邮件

Question

我的A到H列中包含数据。A列中的数据是电子邮件地址。 我在另一个单元格中放置了一个复选框。 我想要的是，当我勾选复选框时，它将继续发送电子邮件到位于最后一行A列的电子邮件帐户。但是下面的代码仅适用于单元格A1。

Private Sub CheckBox1_Click()

    Dim Email As String

    Row = 1
    Email = Sheet1.Cells(Row, 1)
    Do Until Sheet1.Cells(Row, 1) = ""
        Row = Row + 1
    Loop

    Dim OutApp As Object, OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = Email
        .Subject = score
        .HTMLBody = "This is a contain of Email Message"
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing

End Sub

Answer 1

在下面的部分中，您尝试在其中获取最后一行，然后获取该单元格中的电子邮件：

Row = 1
Email = Sheet1.Cells(Row, 1)
Do Until Sheet1.Cells(Row, 1) = ""
    Row = Row + 1
Loop

您从第一行获取Email ，然后在Do Until循环中检查最后一行， 但不修改 Email变量。

解决 ：无需循环即可在A列中找到具有有效电子邮件地址的最后一行，您只需在下面的几行中即可找到它：

Dim LastRow As Long

' get last row with data in Column A (don't skip blank cells in the middle)
LastRow = Sheet1.Range("A1").End(xlDown).Row
Email = Sheet1.Range("A" & LastRow).Value

您的其余代码工作正常。