olAppointmentItem de Const = 1
Const = 9 olFolderCalendar
Faible olkApp, olkSes, olkFld, olkApt
Placer l'olkApp = le CreateObject (« Outlook.Application »)
Placer les olkSes = l'olkApp.GetNamespace (« MAPI »)
olkSes.Logon olkApp.DefaultProfileName
Placer l'olkFld = l'olkSes.GetDefaultFolder (olFolderCalendar)
Placer l'olkApt = l'olkFld.Items.Find (« [sujet] = « les bandes en réserve de changement » et [début] = « » et le format (date et « 15h00 », « ddddd h : nn AMPM ») et » » ")
Si TypeName (olkApt) = « rien » puis
Placer l'olkApt = l'olkApp.CreateItem (l'olAppointmentItem)
Avec l'olkApt
« Changer le sujet comme désiré »
. Sujet = « bandes en réserve de changement »
« Changer l'heure de départ comme désirée »
. Début = date et « 15h00 »
« Changer la durée comme désirée (en minutes) »
. Durée = 30
« Changer le temps de rappel comme désiré »
.ReminderMinutesBeforeStart = 10
.ReminderSet = rectifient
. Économiser
Finir avec
Finir si
Placer l'olkApt = rien
Placer l'olkFld = rien
olkSes.Logoff
Placer les olkSes = rien
Placer l'olkApp = rien
|