Viikonlopputapaamisten automaattinen merkitseminen yksityisiksi Outlookissa

Most käyttäjille, viikonlopuksi sovitut ajat ovat yleensä yksityisiä. Siksi he haluavat Outlookin merkitsevän ja näyttävän tällaiset tapaamiset automaattisesti yksityisiksi. Tässä artikkelissa teemme tästä totta pienellä käsikirjoituksella.

Jotta yritys- ja yksityistapaamiset voidaan erottaa helpommin toisistaan, Outlook sallii käyttäjien merkitä tapaamiset yksityisiksi. Tällä tavalla kalenterin tulostaminen on melko kätevää ja helppoa ilman yksityisiä tapaamisia. Tässä tilanteessa saatat toivoa, että Outlook tunnistaa ja merkitsee tietyt tapaamiset automaattisesti yksityisiksi. Esimerkiksi viikonlopun tapaamiset ovat yleensä yksityisiä, joten haluat antaa Outlookin automaattisesti merkitä ne yksityisiksi. Sen jälkeen opastamme sinua saavuttamaan sen.

Automaattinen merkitsee viikonlopun tapaamiset yksityisiksi

1. Käynnistä ensin Outlook VBA -editori "Kuinka suorittaa VBA-koodi Outlookissa".
2. Aseta sitten seuraava koodi "Microsoft Visual Basic for Applications" -ikkunaan "ThisOutlookSession" -projektiin.

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

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
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 objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

3. Sen jälkeen restart Makro aktivoidaan Outlookissa.
4. Tästä eteenpäin joka kerta, kun luot uuden tapaamisen tai muutat olemassa olevan tapaamisen viikonlopuksi, Outlook merkitsee sen automaattisesti yksityiseksi.

Ratkaise ärsyttäviä Outlook-ongelmia

On mahdollista, että olet kohdannut joitain ongelmia käsitellessään Outlookia, kuten odottamaton sovellusten jumiutuminen, ponnahdusikkunoiden virheilmoituksia ja niin edelleen. Kun kärsit niistä, olisit huolissasi. Ole hyvä ja rauhoitu! Paniikki ei auta mitään, mutta pahentaa tilannetta. Ensinnäkin voit tarkistaa, voitko käyttää PST-tiedostoa tavalliseen tapaan. Jos näin on, sinun on korjattava PST-tiedosto, joka voidaan suorittaa käyttämällä Saapuneet-kansion korjaustyökalu tai tehokkaampi ulkoinen työkalu, kuten DataNumen Outlook Repair.

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