MakeTentative secondario ()
objItem fioco come oggetto
Regolare il objItem = GetCurrentItem ()
Se non il objItem di TypeOf allora è AppointmentItem
MsgBox (“non un appuntamento„)
Uscire il sommergibile
Concluder se
Regolar objItem.BusyStatus = 1
objItem.Save
Concludere il sommergibile
Funzione GetCurrentItem () come oggetto
objApp fioco come Outlook.Application
Fissare il objApp = l'applicazione
Sull'errore riprendere dopo
Selezionare il caso TypeName (objApp.ActiveWindow)
Mettere “l'esploratore„
Regolare GetCurrentItem = objApp.ActiveExplorer.Selection.Item (1)
Mettere “l'ispettore„
Regolare GetCurrentItem = objApp.ActiveInspector.CurrentItem
Mettere altrimenti
Concludere prescelto
Concludere la funzione
|