olAppointmentItem de Const = 1
Const = 9 olFolderCalendar
olkApp não ofuscante, olkSes, olkFld, olkApt
Ajustar o olkApp = o CreateObject (“Outlook.Application”)
Ajustar os olkSes = o olkApp.GetNamespace (“MAPI”)
olkSes.Logon olkApp.DefaultProfileName
Ajustar o olkFld = o olkSes.GetDefaultFolder (olFolderCalendar)
Ajustar o olkApt = o olkFld.Items.Find (“[assunto] = “fitas alternativas da mudança” e [começo] = “” & formato (data & “3:00 PM”, “ddddd h: nn AMPM”) &”” ")
Se TypeName (olkApt) = “nada” então
Ajustar o olkApt = o olkApp.CreateItem (o olAppointmentItem)
Com olkApt
“Mudar o assunto como desejado”
. Assunto = da “fitas alternativas mudança”
“Mudar o tempo começar como desejado”
. Começo = data & “3:00 PM”
“Mudar a duração como desejado (nos minutos)”
. Duração = 30
“Mudar o tempo do lembrete como desejado”
.ReminderMinutesBeforeStart = 10
.ReminderSet = retificam
. Conservar
Terminar com
Terminar se
Ajustar o olkApt = nada
Ajustar o olkFld = nada
olkSes.Logoff
Ajustar olkSes = nada
Ajustar o olkApp = nada
|