Строки писем с макросами: требуется цикл обработки ошибок операторов Else и msgbox, когда макрос завершен или завершен - PullRequest
Новая
       15

Строки писем с макросами: требуется цикл обработки ошибок операторов Else и msgbox, когда макрос завершен или завершен

0 голосов
/ 20 марта 2019

У меня есть рабочий макрос, который отправляет строки по электронной почте, когда в столбце «U» указана текущая дата. Строка Sheet1 затем копируется в Sheet2. В настоящее время он отправляет электронную почту автоматически, я хотел бы .display мое сообщение, но макрос продолжает цикл по столбцу "U", чтобы найти дополнительные строки и не отправляет все строки. Я также хотел бы добавить msgbox для случаев, когда строки «U» были отправлены еще, когда столбец «U» не содержит текущую дату, и выйти из макроса. 

Sub date_exists() 
    Dim s As Range
    Dim d As Date, i As Long
    d = Date

    For i = 1 To Cells(Rows.Count, "U").End(xlUp).Row
        'For Each i In Range("U:U") Added looping language
        On Error GoTo 2

        If Cells(i, "U").Value = d Then
            Cells(i, "C").EntireRow.Select
            Selection.Copy
            Range("A2").Select
            ActiveSheet.Paste

            ActiveSheet.Range("A1:M2").Select
            ActiveSheet.Range("A1:M2").Select

            ActiveWorkbook.EnvelopeVisible = True      

            With ActiveSheet.MailEnvelope
                .Introduction = "Recommends: " &        
                Sheets("Sheet1").Range("C2") & "Please select your vote."
                .Item.To = ActiveWorkbook.Sheets("Sheet1").Range("I2")
                .Item.CC = ActiveWorkbook.Sheets("Sheet1").Range("K2")
                .Item.Subject = ("Vote Request: ") & 
                Sheets("Sheet1").Range("F2") & "_" & 
                Sheets("Sheet1").Range("G2") & ("_Vote_Deadline_") & Sheets("Sheet1").Range("N2")
                .Item.HTMLBody = "Recommends: " & .Sheets("Sheet1").Range("C2")
                .Item.Display
            End With
        End If
    Next i 

2:
    MsgBox "No Meetings"
    Exit Sub
End Sub
...