Outlook meeting overslaan als range in J cellen leeg zijn

[loek010]

Beste forumleden,

de bedoeling is als in kolom 10 (J) de cel leeg is, dat die rij niet wordt meegenomen in verzending van de meeting
ben al geruime tijd aan het stoeien voor de juiste code, maar het wil niet echt lukken of hij verzend alles of helemaal niks.
wat zie ik over het hoofd?

Zie Bijlage als voorbeeld.

 

[snb]

Sub M_snb()
  sn = Sheet2.Cells(1).CurrentRegion
   
  With CreateObject("outlook.application")
    For j = 2 To UBound(sn)
      If sn(j, 10) = 1 Then
        With .CreateItem(1)
          .Start = sn(j, 3)
          .Duration = sn(j, 4)
          .Importance = 2
          .RequiredAttendees = sn(j, 5)
          .Subject = sn(j, 6)
          .Location = sn(j, 8)
          .Body = sn(j, 9)
          .MeetingStatus = 1
          .ReminderSet = True
          .ReminderMinutesBeforeStart = sn(j, 7)
          .send
        End With
      End If
    Next
  End With
End Sub

Minimaliseer de interaktie met het werkblad (lezen/schrijven).
Gebruik 'Late Binding' en dus de numerieke parameters.

 

[loek010]

@SNB

Bedankt voor je aanzienlijke kortere code, en het werkt zoals ik het voor ogen had Top :thumb:
en bedankt voor je uitleg omtrent de late binding.
weer wat bijgeleerd

 

[snb]

In tegenstelling tot jouw code wordt niet voor ieder item een nieuwe outlook-instantie gemaakt.