Sub MakeTentative ()
Schemerige objItem als Voorwerp
Reeks objItem = GetCurrentItem ()
Als niet TypeOf objItem dan AppointmentItem is
MsgBox („niet een benoeming“)
Sub van de uitgang
Eind als
Vastgesteld objItem.BusyStatus = 1
objItem.Save
Sub van het eind
Functie GetCurrentItem () als Voorwerp
Schemerige objApp als Outlook.Application
Reeks objApp = Toepassing
Op Fout hervat daarna
Selecteer Geval TypeName (objApp.ActiveWindow)
Geval „Ontdekkingsreiziger“
Vastgestelde GetCurrentItem = objApp.ActiveExplorer.Selection.Item (1)
Geval „Inspecteur“
Vastgestelde GetCurrentItem = objApp.ActiveInspector.CurrentItem
Geval anders
Uitgezocht eind
De Functie van het eind
|