VorMakeTentative ()
Schwaches objItem als Gegenstand
objItem = GetCurrentItem einstellen ()
Wenn nicht TypeOf objItem AppointmentItem dann ist
MsgBox („nicht eine Verabredung“)
Unterseeboot herausnehmen
Beenden wenn
Einstellen objItem.BusyStatus = 1
objItem.Save
Unterseeboot beenden
Funktion GetCurrentItem () als Gegenstand
Schwaches objApp als Outlook.Application
objApp = Anwendung einstellen
Auf Störung zunächst wieder aufnehmen
Fall TypeName (objApp.ActiveWindow) vorwählen
„Forscher“ umkleiden
GetCurrentItem = objApp.ActiveExplorer.Selection.Item einstellen (1)
„Prüfer“ umkleiden
GetCurrentItem = objApp.ActiveInspector.CurrentItem einstellen
Sonst umkleiden
Auserwähltes beenden
Funktion beenden
|