Вы можете попробовать повесить его на напоминание, а не спать.Для этого создайте напоминание.При запуске этот код будет вызван.Затем вы можете добавить туда CheckMail();
.Это в VBA, поэтому вам придется конвертировать его.
Private Const REMINDER_SUBJECT As String = "CHECKEMAILREMINDER"
Private Sub Application_Reminder(ByVal Item As Object)
Dim oTask As Outlook.TaskItem
If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
If oTask.Subject = REMINDER_SUBJECT Then
oTask.ReminderTime = DateAdd("m", 1, Now)
oTask.Save
End If
End If
End Sub
Я довольно долго искал способ сделать регулярные события в Outlook без напоминания, чтобы заархивировать мою электронную почту, ноэто единственное решение, которое я нашел.