Outlook-da yeni görüşlərin fon rəngini necə əvvəlcədən təyin etmək olar

Yeni görüş yaratdığınız zaman, açılan görüş pəncərəsində fon rəngini təyin etməyə imkan verən birbaşa seçim tapa bilməzsiniz. Beləliklə, əgər siz yeni görüşlərin fon rəngini əvvəlcədən təyin etmək istəyirsinizsə, bu s.-dəki yoldan istifadə edə bilərsinizost

Bildiyiniz kimi, Outlook-da e-poçtların fon rəngini dəyişdirmək olduqca asandır. Konkret olmaq üçün, açılmış Mesaj pəncərəsində aşağıdakı ekran görüntüsündə göstərildiyi kimi, “Seçimlər” sekmesinde “Səhifə Rəngi” düyməsini tapa bilərsiniz. Kliklədikdən sonra fon üçün sevimli rənginizi seçə bilərsiniz.

Buna baxmayaraq, e-poçtlardan fərqli olaraq, görüşlər üçün belə bir funksiya yoxdur. Açılan görüş pəncərəsində "Seçimlər" sekmesini tapa bilməzsiniz, "Səhifə Rəngi" düyməsini qeyd etməmək. Buna görə də, əgər görüşün fon rəngini əvvəlcədən təyin etmək istəyirsinizsə, başqa həll yolları axtarmalısınız. İndi, aşağıda, VBA istifadə edən bir metodu sizinlə paylaşacağıq. VBA ilə tanış deyilsinizsə, daha yaxşı olar ki, post - "Outlook-da VBA kodunu necə işlətmək olar".

Yeni görüşlərin əvvəlcədən təyin edilmiş fon rəngi

1. Kimi üçüntart, Outlook-da “Alt + F11” vasitəsilə VBA redaktorunu işə salın.
2. Sonra, “MS Word Object Library İstinad" kimi "Necə Obyekt Lib əlavə etmək olarrary VBA-da istinad".
3. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə köçürün.

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. Bundan sonra kursoru “Application_Startup” alt proqram.
4. Nəhayət, "F5" düyməsini basın.
5. İndi Outlook "Təqvim" bölməsinə keçin və "Yeni görüş" düyməsini basın.
6. Dərhal, aşağıdakı şəkildə göstərildiyi kimi, fon rəngi dəyişdirilmiş yeni görüş göstərilir.

Outlook məlumat itkisindən qaçın

Hesab olunur ki, Outlook məlumatlarının zədələnməsi və ya itirilməsindən çəkinməlisiniz. Buna görə də müxtəlif ehtiyat tədbirləri görməlisiniz. Məsələn, ardıcıl və yenilənmiş ehtiyat nüsxəsini əldə etmək zərurət məsələsidir. Bundan əlavə, siz inbox təmir alətinin harada yerləşdirildiyini və onu necə işlətəcəyini bilməlisiniz. Nəhayət, eyni zamanda başqa bir təcrübəli üçüncü tərəf PST təmir alətini də saxlamalısınız DataNumen Outlook Repair. Mümkündür təmir PST məsələlər bir anda.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com