Cara Menetapkan Font Lalai untuk Badan Perhubungan, Janji Temu dan Tugas melalui VBA

Outlook tidak mempunyai ciri asli untuk menetapkan fon lalai untuk badan kontak, janji temu dan item tugas. Oleh itu, jika anda ingin menentukan fon, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.

Seperti e-mel, janji temu, tugas dan kenalan Outlook juga mempunyai isi badan, di mana kita dapat mengisi butiran item. Walau bagaimanapun, Outlook hanya membenarkan pengguna menetapkan fon lalai yang digunakan di badan e-mel. Sekiranya anda ingin menentukan fon di badan hubungan, janji temu atau tugas, anda harus mencari cara lain, seperti tambahan pihak ketiga atau Outlook VBA. Di sini kami akan mengajar anda cara menggunakan VBA untuk mendapatkannya. Teruskan membaca untuk mengetahui langkah-langkah terperinci dan kod VBA yang sesuai.

Tetapkan Font Lalai untuk Badan Pelantikan, Tugas dan Kenalan

1. Pada peringkat awal, start program Outlook anda.
2. Kemudian tekan butang "Alt + F11" untuk melancarkan Outlook VBA editor.
3. Di tetingkap pop timbul, anda perlu membuka projek "ThisOutlookSession".
4. Selepas itu, salin kod VBA berikut ke tetingkap projek ini.

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

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

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

5. Selepas itu, anda perlu menandatangani kod ini.

• Pertama, buat sijil digital dengan Sijil Digital untuk Projek VBA.
• Kemudian tetapkan sijil ini ke makro baru.

6. Kemudian, anda boleh mengubah tetapan makro Outlook anda untuk membenarkan makro yang ditandatangani secara digital.
7. Akhirnya anda start Outlook anda untuk mengaktifkan projek VBA baru. Mulai sekarang, apabila anda membuat kenalan, janji temu atau tugas baru, badan akan menggunakan fon lalai, seperti tangkapan skrin berikut:

Lindungi Data PST Anda daripada Rasuah

Kerana kenyataan bahawa fail PST Outlook terdedah kepada kesalahan dan kerosakan, anda harus banyak memberi perhatian kepada perlindungan PST. Sebagai contoh, anda harus berhati-hati dengan e-mel dari sumber yang tidak diketahui kerana mereka mungkin e-mel berbahaya dengan virus. Setelah fail PST anda dijangkiti, anda harus berulang ke alat pembaikan yang bereputasi baik dan terbukti, seperti DataNumen Outlook Repair, yang boleh membaiki PST fail seperti angin.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk menetapkan SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com