Cum să presetați culoarea de fundal a noilor întâlniri în Outlook

Când creați o nouă întâlnire, în fereastra de întâlnire deschisă, nu puteți găsi o opțiune directă care să vă permită să setați culoarea de fundal. Astfel, dacă doriți să presetați culoarea de fundal a noilor întâlniri, puteți utiliza modul din această post

După cum știți, este destul de ușor să schimbați culoarea de fundal a e-mailurilor în Outlook. Pentru a fi specific, în fereastra Mesaj deschisă, puteți găsi un buton „Culoarea paginii” în fila „Opțiuni”, așa cum se arată în următoarea captură de ecran. După ce faceți clic pe el, puteți alege culoarea preferată pentru fundal.

Cu toate acestea, spre deosebire de e-mailuri, nu există o astfel de funcție pentru întâlniri. În fereastra de întâlnire deschisă, nu puteți găsi fila „Opțiuni”, ca să nu mai vorbim de butonul „Culoarea paginii”. Prin urmare, dacă doriți să presetați culoarea de fundal a unei întâlniri, trebuie să căutați alte soluții. Acum, în cele ce urmează, vă vom împărtăși o metodă care utilizează VBA. Dacă nu sunteți familiarizat cu VBA, ar fi bine să vă referiți la post - "Cum să rulați codul VBA în Outlook".

Culoarea de fundal presetată a noilor întâlniri

1. Pentru noitart, în Outlook, declanșați editorul VBA prin „Alt + F11”.
2. Apoi, activați „MS Word Object Library Referință” conform „Cum să adăugați un obiect Library Referință în VBA".
3. Apoi, copiați următorul cod VBA în proiectul „ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objApptInspector As Outlook.Inspector

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objApptInspector = Inspector
    End If
End Sub

Private Sub objApptInspector_Activate()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objApptDocument As Word.Document
 
    Set objAppointment = objApptInspector.CurrentItem
 
    'Work on new appointment
    If objAppointment.Subject = "" Then
       Set objApptDocument = objApptInspector.WordEditor
 
       'Change background color
       'Modify code as per your needs
       objApptDocument.Background.Fill.ForeColor.ObjectThemeColor = wdThemeColorAccent1
       objApptDocument.Background.Fill.ForeColor.TintAndShade = 0.8
       objApptDocument.Background.Fill.Visible = msoTrue
       objApptDocument.Background.Fill.Solid
    End If
End Sub

3. După aceea, mutați cursorul în „Application_Startup” subrutină.
4. În cele din urmă, apăsați butonul „F5”.
5. Acum, accesați panoul „Calendar” din Outlook și faceți clic pe „Întrevire nouă”.
6. Imediat, va fi afișată o nouă întâlnire, a cărei culoare de fundal a fost schimbată, așa cum se arată în figura următoare.

Evitați pierderea datelor Outlook

Se crede că trebuie să fii reticent în a suferi daune sau pierderi de date Outlook. Prin urmare, vi se cere să luați o varietate de măsuri de precauție. De exemplu, să obțineți o copie de rezervă consistentă și actualizată este o chestiune de necesitate. În plus, trebuie să știți unde este plasat instrumentul de reparare a căsuței primite și cum să îl rulați. Nu în ultimul rând, ar trebui să păstrați și un alt instrument de reparare PST terță parte cu experiență, cum ar fi DataNumen Outlook Repair. Poate repara PST probleme într-o clipă.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com