MakeTentative secundario ()
objItem dévil como objeto
Fijar el objItem = GetCurrentItem ()
Si no el objItem de TypeOf entonces es AppointmentItem
MsgBox (“no una cita”)
Salir el submarino
Terminar si
Fijar objItem.BusyStatus = 1
objItem.Save
Terminar el submarino
Función GetCurrentItem () como objeto
objApp dévil como Outlook.Application
Fijar el objApp = el uso
En error reasumir después
Seleccionar el caso TypeName (objApp.ActiveWindow)
Encajonar a “explorador”
Fijar GetCurrentItem = objApp.ActiveExplorer.Selection.Item (1)
Encajonar a “inspector”
Fijar GetCurrentItem = objApp.ActiveInspector.CurrentItem
Encajonar
Terminar selecto
Terminar la función
|