群集电子邮件跳过不包含电子邮件的行，而不是收到错误消息

尝试设置对象，然后通过使用语句可以使代码更短且更易于阅读。WorksheetWith

我用常规的 .WhileFor

请参阅下面代码说明中的注释：

Sub sendCustEmails()
        
    Dim objOutlook As Object
    Dim objEmail As Object
    Dim ws As Worksheet
    Dim LastRow As Long, intRow As Long
    
    Set objOutlook = CreateObject("Outlook.Application")
     
    ' set worksheet object
    Set ws = ThisWorkbook.Sheets("2. Ansprechpartner für Touren")
      
    LastRow = ws.Range("F2").End(xlDown).Row ' get last row with data in worksheet
     
    With ws
        ' loop over rows with data in column F
        For intRow = 2 To LastRow
            If Trim(.Range("F" & intRow).Value) <> "" Then  ' check that column F contains text in it
                        
                Set objEmail = objOutlook.CreateItem(olMailItem)
            
                'Subject and Body templates are in cells A2 and B2
                strMailSubject = ThisWorkbook.Sheets("Tabelle1").Range("A2").Value
                strMailBody = ThisWorkbook.Sheets("Tabelle1").Range("B2").Value
                
        
                strTour_Nr = .Range("F" & intRow).Value
                strUntName = .Range("C" & intRow).Value
                strEmail = .Range("P" & intRow).Value
                strVon_Ladedatum = .Range("K" & intRow).Value
                strVon_Ladezeit = .Range("M" & intRow).Value
                strBis_Ladezeit = .Range("N" & intRow).Value
                strPOD_fehlt = .Range("Q" & intRow).Value
                strIOP_IOD_fehlt = .Range("R" & intRow).Value
                strPOD_missing = .Range("S" & intRow).Value
                strIOD_IOP_missing = .Range("T" & intRow).Value
                
                strMailSubject = Replace(strMailSubject, "<TourNr>", strTour_Nr)
                strMailBody = Replace(strMailBody, "<TourNr>", strTour_Nr)
                strMailBody = Replace(strMailBody, "<Unt_Name>", strUntName)
                strMailBody = Replace(strMailBody, "<Von_Ladedatum>", strVon_Ladedatum)
                strMailBody = Replace(strMailBody, "<Von_Ladezeit>", strVon_Ladezeit)
                strMailBody = Replace(strMailBody, "<Bis_Ladezeit>", strBis_Ladezeit)
                strMailBody = Replace(strMailBody, "<POD_fehlt>", strPOD_fehlt)
                strMailBody = Replace(strMailBody, "<IOP_IOD_fehlt>", strIOP_IOD_fehlt)
                strMailBody = Replace(strMailBody, "<POD_missing>", strPOD_missing)
                strMailBody = Replace(strMailBody, "<IOP_IOD_missing>", strIOD_IOP_missing)
                
                With objEmail
                    .To = CStr(strEmail)
                    .Subject = strMailSubject
                    .Body = strMailBody
                    .Send
                End With
                
                Set objEmail = Nothing ' clear object
        
            End If
            
        Next intRow
    End With

End Sub