Comment toujours ouvrir votre e-mail dans un niveau de zoom personnalisé avec Outlook VBA

Par défaut, le courrier électronique Outlook est ouvert avec un niveau de zoom de 100 %. Si vous souhaitez toujours ouvrir votre e-mail avec un niveau de zoom personnalisé, tel que 150 %, vous pouvez utiliser la méthode partagée dans cet article.

En fait, dans mon article précédent "Comment régler le niveau de zoom dans Outlook”, vous pouvez apprendre les moyens d'ajuster les niveaux de zoom à la fois dans le volet de lecture et dans la fenêtre Message. Cependant, les méthodes introduites dans cet article ne permettent pas de fixer le niveau de zoom personnalisé, c'est-à-dire de rester permanent. Il reviendra automatiquement à son réglage par défaut la prochaine fois. Ainsi, si vous souhaitez toujours ouvrir les e-mails avec un niveau de zoom personnalisé, vous pouvez utiliser l'approche suivante.

Ouvrez toujours votre e-mail dans un niveau de zoom personnalisé

1. Tout d'abord, vous devez démarrer votre programme Outlook comme d'habitude.
2. Ensuite, dans la fenêtre d'affichage d'Outlook, appuyez sur les raccourcis clavier "Alt + F11".
3. Ensuite, vous entrerez dans la fenêtre de l'éditeur VBA, dans laquelle vous pourrez accéder au projet « ThisOutlookSession ». Trouvez-le simplement sur le côté gauche et double-cliquez pour l'ouvrir.
4. Ensuite, copiez le code VBA répertorié ci-dessous dans cette fenêtre de projet.

Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objMailDocument As Word.Document
 
    'When opening an email which is not a new mail
    If Len(Trim(objMail.Subject)) <> 0 Then
       Set objMailDocument = objMail.GetInspector.WordEditor
       'Change "150" as per your desired zoom level
       objMailDocument.Windows(1).Panes(1).View.Zoom.Percentage = 150
    End If
End Sub

5. Après cela, vous devez signer ce code.

• Appuyez sur le bouton "Outils" dans la barre d'outils.
• Ensuite, choisissez l'option "Signature numérique…" dans la liste déroulante.
• Ensuite, dans la boîte de dialogue contextuelle, activez un certificat numérique.

6. Enfin, fermez la fenêtre « Microsoft Visual Basic pour Applications » actuelle et redémarrez votre application Outlook pour activer le nouveau projet VBA.
7. Depuis lors, chaque fois que vous ouvrez un e-mail qui n'est pas un nouveau message, l'e-mail s'affichera dans votre niveau de zoom personnalisé, comme l'image suivante :

Défendre Outlook contre le crash

Le fichier de données Outlook est considérablement susceptible d'être endommagé. Ainsi, c'est une tâche assez ardue de sauvegarder vos données Outlook. Il existe une variété de menaces autour de votre fichier de données Outlook, y compris les virus transmis par e-mail, les pannes matérielles, les erreurs humaines et les problèmes logiciels. Afin de sauver votre fichier PST dès qu'il subit des dommages, il est suggéré de conserver un formidable outil de réparation, tel que DataNumen Outlook Repair. Il est capable de réparer Outlook problèmes et récupérer efficacement un maximum de données Outlook.

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 mdf corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com