Application.OnTime is not valid in Outlook which is why there is

Set objOutlook = CreateObject("Outlook.Application")