Задержка приглашения на собрание в Outlook 2010 - vba

Question

Я пытаюсь написать код, чтобы запланировать приглашение на собрание и автоматически отложить отправку участникам позже, т.е. отложить отправку приглашения на собрание.

Ниже приведен код, но он дает ошибку в тот момент, когда я хочу, чтобы приглашение было отправлено через 30 минут.

Строка ошибки:

Заявка.Подождите (сейчас + TimeValue ("06:30:00"))

Буду очень признателен за помощь в этом. Большое спасибо

Sub Book_meeting_room()


Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = Outlook.Application                 'Creating Outlook Session
Set olApt = olApp.CreateItem(olAppointmentItem) 'Creating an Appointment

With olApt

.MeetingStatus = olMeeting                  'olAppointmentItem with Meeting status olMeeting
                                            'becomes a OL Meeting Item.
.Subject = "Room 1"                         'Subject
.Start = #11/20/2017 8:30:00 AM#            'Enter Date + Time here.
.Duration = 240                             'In Minutes
.Location = "Office"                        'Location of the meeting.
.Recipients.Add ("Margaret")                'Recipient Name, Alias, or any other Attribute.
.BusyStatus = olFree
.ReminderSet = True
.ReminderMinutesBeforeStart = 20

End With

Application.Wait (Now + TimeValue("06:30:00"))          'defer 06hrs and 30mins.
olApt.Send                             'Sending Mail.
Set olApt = Nothing

MsgBox "Invite Sent", vbInformation

End Sub

Answer 1

Application.Wait не работает с Outlook, вы можете использовать функцию Doevent с таймером или функцию Sleep

Использование Doevent - лучший вариант, потому что он позволит вам продолжать работать после запуска макроса, проблема возникает, если вы чрезмерно используете его:

Public Sub Pause(Seconds As Single)
Dim TimeEnd As Single
TimeEnd = Timer + Seconds
While Timer < TimeEnd
    DoEvents
Wend
End Sub 

В режиме сна вам нужно объявить функцию, и она больше не будет работать до тех пор, пока сообщение не будет отправлено. Вы заявляете это с помощью:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Ваш код будет выглядеть следующим образом (вы также можете отметить дополнительную проблему, которая будет решена с помощью .Display для работы программы)

Sub Book_meeting_room()

Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = Outlook.Application                 'Creating Outlook Session
Set olApt = olApp.CreateItem(olAppointmentItem) 'Creating an Appointment

With olApt

.MeetingStatus = olMeeting                  'olAppointmentItem with Meeting status olMeeting
                                            'becomes a OL Meeting Item.
.Subject = "Room 1"                         'Subject
.Start = #11/20/2017 8:30:00 AM#            'Enter Date + Time here.
.Duration = 240                             'In Minutes
.Location = "Office"                        'Location of the meeting.
.Recipients.Add ("Margaret")                'Recipient Name, Alias, or any other Attribute.
.BusyStatus = olFree
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Display

End With

Pause (23400) 'defer 06hrs and 30mins.
'Sleep (23400) 'also defer 06hrs and 30mins eventually

olApt.Send                             'Sending Mail.
Set olApt = Nothing

MsgBox "Invite Sent", vbInformation

End Sub