When I use the code above, I get an error:

Run-time error '91':
Object variable or With block variable not set

When I click Debug, the line highlighted is
If .GetNamespace("MAPI").GetDefaultFolder(9).Items.Find(c00).Start = "" Then

I have the Microsoft Outlook 15.0 Object Library enabled.