Vraag : De macro van vooruitzichten VBA - Vastgesteld benoemingspunt „om tijd te tonen zoals voorlopig“

Hulp tevreden -
I vergt macro VBA een van Vooruitzichten (2007) - Vastgesteld benoemingspunt „om tijd als voorlopige "
When te tonen ben ik in de „ontdekkingsreizigermening“ van mijn kalender die ik zou willen om macro klikken whih zal plaatsen het geselecteerde punt aan „voorlopige "

Thanks!
Jim

Antwoord : De macro van vooruitzichten VBA - Vastgesteld benoemingspunt „om tijd te tonen zoals voorlopig“

Hello!

Wijs „MakeTentative“ aan een nieuwe knoop en een test toe als dit de truc doet.

Ik testte het niet maar ik ben vrij zeker het zal werken. Enkel voor voorzichtigheid, cre�ër een nieuwe kalender en een test daar alvorens in uw echte kalender te testen.

Als het niet werkt, antwoord met het fout en lijnaantal.

Ik kan het op Maandag slechts testen, als u niet let op wachtend.

Syldra
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

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
Andere oplossingen  
 
programming4us programming4us