MakeTentative secondaire ()
Faible objItem comme objet
Placer l'objItem = le GetCurrentItem ()
Sinon l'objItem de TypeOf est AppointmentItem alors
MsgBox (« pas un rendez-vous »)
Sortir le sous-marin
Finir si
Placer objItem.BusyStatus = 1
objItem.Save
Finir le sous-marin
Fonction GetCurrentItem () comme objet
Faible objApp comme Outlook.Application
Placer l'objApp = l'application
Sur l'erreur reprendre après
Choisir le cas TypeName (objApp.ActiveWindow)
Enfermer le « explorateur »
Placer GetCurrentItem = objApp.ActiveExplorer.Selection.Item (1)
Enfermer le « inspecteur »
Placer GetCurrentItem = objApp.ActiveInspector.CurrentItem
Enfermer autrement
Finir choisi
Finir la fonction
|