Outlook không có tính năng gốc để đặt phông chữ mặc định cho nội dung liên hệ, cuộc hẹn và mục nhiệm vụ. Vì vậy, nếu bạn muốn chỉ định phông chữ, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.
Giống như email, cuộc hẹn, nhiệm vụ và liên hệ trong Outlook cũng có trường nội dung, trong đó chúng ta có thể điền thông tin chi tiết về mục. Tuy nhiên, Outlook chỉ cho phép người dùng đặt phông chữ mặc định được sử dụng trong nội dung email. Nếu bạn muốn chỉ định phông chữ trong nội dung liên hệ, cuộc hẹn hoặc nhiệm vụ, bạn phải tìm kiếm các phương tiện khác, chẳng hạn như phần bổ trợ của bên thứ ba hoặc Outlook VBA. Sau đây chúng tôi sẽ hướng dẫn chi tiết cho bạn cách sử dụng VBA để có được nó. Đọc tiếp để tìm hiểu các bước chi tiết và mã VBA tương ứng.
Đặt phông chữ mặc định cho nội dung cuộc hẹn, nhiệm vụ và liên hệ
- Ngay từ đầu, starchương trình Outlook của bạn.
- Sau đó nhấn nút phím “Alt + F11” để khởi chạy trình soạn thảo Outlook VBA.
- Trong cửa sổ bật lên, bạn cần mở dự án “ThisOutlookSession”.
- Sau đó, sao chép các mã VBA sau vào cửa sổ dự án này.
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
- Sau đó, bạn cần ký mã này.
- Đầu tiên, tạo chứng chỉ kỹ thuật số bằng Chứng chỉ kỹ thuật số cho Dự án VBA.
- Sau đó gán chứng chỉ này cho macro mới.
- Sau đó, bạn có thể thay đổi cài đặt macro Outlook của mình để cho phép các macro được ký điện tử.
- Cuối cùng bạntart Outlook của bạn để kích hoạt dự án VBA mới. Từ giờ trở đi, khi bạn tạo một liên hệ, cuộc hẹn hoặc nhiệm vụ mới, nội dung sẽ sử dụng phông chữ mặc định, như ảnh chụp màn hình sau:
Bảo vệ dữ liệu PST của bạn khỏi bị tham nhũng
Do tệp Outlook PST dễ bị lỗi và hỏng nên bạn phải chú ý nhiều đến các biện pháp bảo vệ PST. Ví dụ: bạn nên cẩn thận với các email từ các nguồn không xác định vì chúng có thể là những email độc hại có chứa vi-rút. Khi tệp PST của bạn bị nhiễm, bạn phải sử dụng lại một công cụ sửa lỗi uy tín và đã được chứng minh rõ ràng, chẳng hạn như DataNumen Outlook Repair, có thể sửa chữa PST tập tin như một làn gió.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa SQL Server và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm