Cara Mengatur Font Default untuk Badan Kontak, Pengangkatan, dan Tugas melalui VBA

Outlook tidak memiliki fitur asli untuk mengatur font default untuk isi kontak, janji temu dan item tugas. Jadi, jika Anda ingin menentukan font, Anda dapat menggunakan metode yang diperkenalkan dalam artikel ini.

Seperti email, janji temu Outlook, tugas dan kontak juga memiliki bidang tubuh, di mana kita dapat mengisi detail item. Namun, Outlook hanya mengizinkan pengguna untuk mengatur font default yang digunakan di badan email. Jika Anda ingin menentukan font di isi kontak, janji temu, atau tugas, Anda harus mencari cara lain, seperti add-in pihak ketiga atau Outlook VBA. Di sini kami akan mengajari Anda secara terperinci cara menggunakan VBA untuk mendapatkannya. Baca terus untuk mempelajari langkah-langkah mendetail dan kode VBA yang sesuai.

Atur Font Default untuk Badan Pengangkatan, Tugas dan Kontak

1. Pada awalnya, start program Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" untuk meluncurkan editor Outlook VBA.
3. Di jendela popup, Anda perlu membuka proyek "ThisOutlookSession".
4. Selanjutnya, salin kode VBA berikut ke dalam jendela proyek 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. Setelah itu, Anda perlu menandatangani kode ini.

• Pertama, buat sertifikat digital dengan Sertifikat Digital untuk Proyek VBA.
• Kemudian tetapkan sertifikat ini ke makro baru.

6. Nanti, Anda bisa mengubah pengaturan makro Outlook Anda untuk mengizinkan makro yang ditandatangani secara digital.
7. Akhirnya Anda start Outlook Anda untuk mengaktifkan proyek VBA baru. Mulai sekarang, saat Anda membuat kontak, janji temu, atau tugas baru, body akan menggunakan font default-nya, seperti gambar layar berikut:

Lindungi Data PST Anda dari Korupsi

Karena fakta bahwa file PST Outlook rentan terhadap kesalahan dan korupsi, Anda harus sangat memperhatikan perlindungan PST. Misalnya, Anda harus berhati-hati terhadap email dari sumber yang tidak dikenal yang mungkin merupakan email berbahaya yang berisi virus. Setelah file PST Anda terinfeksi, Anda harus menggunakan alat perbaikan yang memiliki reputasi baik dan terbukti dengan baik, seperti DataNumen Outlook Repair, Yang dapat memperbaiki PST mengajukan seperti angin sepoi-sepoi.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com