Estou tentando escrever um código para agendar um convite para a reunião e atrasar o envio para os participantes em uma data / hora posterior automaticamente, ou seja, adiar o envio de um convite para a reunião
Abaixo está o código, mas está dando um erro no ponto em que eu quero que o convite seja enviado 30 minutos depois.
Linha de erro:
Application.Wait (Now + TimeValue ("06:30:00"))
Vai realmente apreciar ajuda sobre isso. Muito Obrigado
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