Koko päivän tapahtumien oletusarvoisen alkamis- ja päättymisajan asettaminen Outlookin työaikojen perusteella

Oletusarvoisesti et voi muuttaa koko päivän tapahtumien alkamis- ja päättymisaikaa Outlookissa toiveidesi mukaan. Tässä artikkelissa näytetään, kuinka voit asettaa koko päivän tapahtumien oletusarvoisen alkamis- ja päättymisajan työaikasi mukaan.

Kuten näet, kun otat käyttöön "Koko päivän tapahtuma" -vaihtoehdon tapaamisessa, sekä "Alkamisaika"- että "Päättymisaika"-kentät näkyvät harmaina. Tässä tilanteessa et voi muuttaa niitä mieleiseksesi. Siksi seuraavassa jaamme sinulle menetelmän, jolla voit asettaa koko päivän tapahtumien oletusarvoisen alkamis- ja päättymisajan Outlookin työaikojen perusteella.

Aseta koko päivän tapahtumien oletusarvoinen alkamis- ja päättymisaika työajan mukaan

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Kun olet päässyt Outlookin päänäyttöön, voit painaa “Alt + F11” -näppäimiä.
3. Myöhemmin pääset Outlook VBA -editori -ikkunaan.
4. Nykyisessä Microsoft Visual Basic for Applications -ikkunassa sinun on avattava ThisOutlookSession-projekti-ikkuna.
5. Kopioi sitten seuraava VBA-koodi tähän projektiin.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Sen jälkeen sinun on allekirjoitettava tämä koodi. Napsauta "Työkalut"> "Allekirjoitus".
7. Noudata seuraavassa valintaikkunassa digitaalisia varmenteita uudelle VBA-projektille seuraamalla näytön ohjeita.
8. Myöhemmin sinun on muutettava Outlook-makroasetuksiasi sallimaan digitaalisesti allekirjoitetut makrot.
9. Lopulta voit käynnistää Outlook-sovelluksen uudelleen aktivoidaksesi tämän makron.
10. Tästä eteenpäin aina, kun otat käyttöön "Koko päivän tapahtuma" -vaihtoehdon Outlook-tapaamisessa, tapaamisen alkamis- ja päättymisaika muuttuvat työaikasi mukaisiksi, kuten seuraavassa kuvakaappauksessa:

Nouda arvokkaita tietoja vaarantuneesta Outlook-tiedostosta

Vaikka Outlookilla on useita eri ominaisuuksia, se ei tarkoita, että se on täysin virheetön. Se voi silti vioittua useista tekijöistä, kuten sähköpostitse välitetyistä viruksista, ihmisten väärästä käsittelystä ja niin edelleen. Siksi, paitsi säännöllisten PST-tietojen varmuuskopioiden tekeminen, sinun on parasta valmistaa lähistöllä oleva tehokas ulkoinen PST-korjaustyökalu, kuten DataNumen Outlook Repair. Se voi korjaa PST kysymyksiä lyhyessä ajassa.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com