Outlook n'a pas de fonctionnalité native pour définir la police par défaut pour le corps du contact, le rendez-vous et l'élément de tâche. Ainsi, si vous souhaitez spécifier la police, vous pouvez recourir à la méthode présentée dans cet article.
Comme l'e-mail, le rendez-vous Outlook, la tâche et le contact ont également le champ du corps, dans lequel nous pouvons remplir les détails de l'élément. Cependant, Outlook permet uniquement aux utilisateurs de définir la police par défaut utilisée dans le corps de l'e-mail. Si vous souhaitez spécifier la police dans le corps du contact, du rendez-vous ou de la tâche, vous devez rechercher d'autres moyens, tels que des compléments tiers ou Outlook VBA. Ici, nous allons vous apprendre en détail comment utiliser VBA pour l'obtenir. Lisez la suite pour connaître les étapes détaillées et les codes VBA correspondants.
Définir la police par défaut pour le corps du rendez-vous, de la tâche et du contact
- Au tout début, start votre programme Outlook.
- Appuyez ensuite sur les touches "Alt + F11" pour lancer l'éditeur Outlook VBA.
- Dans la fenêtre contextuelle, vous devez ouvrir le projet "ThisOutlookSession".
- Ensuite, copiez les codes VBA suivants dans cette fenêtre de projet.
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
- Après cela, vous devez signer ce code.
- Tout d'abord, créez un certificat numérique par Digital Certificates for VBA Projects.
- Attribuez ensuite ce certificat à la nouvelle macro.
- Plus tard, vous pourrez modifier vos paramètres de macro Outlook pour autoriser les macros signées numériquement.
- Enfin tu estart votre Outlook pour activer le nouveau projet VBA. Désormais, lorsque vous créez un nouveau contact, rendez-vous ou tâche, body utilisera sa police par défaut, comme la capture d'écran suivante :
Protégez vos données PST contre la corruption
En raison du fait que le fichier Outlook PST est sujet aux erreurs et à la corruption, vous devez faire très attention aux protections PST. Par exemple, vous devez vous méfier des e-mails provenant de sources inconnues, car il peut s'agir d'e-mails malveillants contenant des virus. Une fois que votre fichier PST est infecté, vous devez recourir à un outil de réparation réputé et éprouvé, tel que DataNumen Outlook Repair, Qui peut réparer la TVP déposer comme un jeu d'enfant.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris fixer SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com