olAppointmentItem di Const = 1
Const = 9 olFolderCalendar
olkApp fioco, olkSes, olkFld, olkApt
Regolare il olkApp = CreateObject (“Outlook.Application„)
Regolare i olkSes = olkApp.GetNamespace (“MAPI„)
olkSes.Logon olkApp.DefaultProfileName
Regolare il olkFld = olkSes.GetDefaultFolder (olFolderCalendar)
Regolare il olkApt = olkFld.Items.Find (“[oggetto] = “nastri di sostegno del cambiamento„ e [inizio] = “„ & disposizione (data & “3:00 PM„, “ddddd h: nn AMPM„) &„„ ")
Se TypeName (olkApt) = “niente„ allora
Regolare il olkApt = olkApp.CreateItem (olAppointmentItem)
Con olkApt
“Cambiare l'oggetto come voluto„
. Oggetto = “nastri di sostegno del cambiamento„
“Cambiare il tempo di avviamento come voluto„
. Inizio = data & “3:00 PM„
“Cambiare la durata come voluto (in minuti)„
. Durata = 30
“Cambiare il tempo di ricordo come voluto„
.ReminderMinutesBeforeStart = 10
.ReminderSet = allineano
. Risparmiare
Concluder con
Concluder se
Regolare il olkApt = niente
Regolare il olkFld = niente
olkSes.Logoff
Regolare i olkSes = niente
Regolare il olkApp = niente
|