Comment imprimer automatiquement la première page des e-mails entrants importants dans votre Outlook

Certains utilisateurs aimeraient laisser Outlook imprimer automatiquement les e-mails entrants importants. De plus, si un tel email est trop long, pour ne pas gaspiller de papiers, Outlook n'imprimera que la première page. Maintenant, dans cet article, nous allons exposer comment le réaliser par programmation.

Imprimer manuellement la première page d'un courrier est assez facile. Vous pouvez simplement modifier les options d'impression avant l'impression. Cependant, si vous espérez qu'Outlook puisse identifier automatiquement la longueur de l'e-mail et imprimer automatiquement la première page d'un e-mail très long, vous devez rechercher d'autres moyens, tels que le suivant.

Impression automatique de la première page des e-mails entrants importants

1. Pour commencer, vous devez lancer votre application Outlook normalement.
2. Ensuite, dans la fenêtre principale d'Outlook, vous devez appuyer sur les touches "Alt + F11".
3. Par la suite, vous accéderez à l'éditeur VBA avec succès.
4. Dans cette nouvelle fenêtre, vous devez ouvrir un module vide, dans lequel vous devez copier le code VBA suivant dans ce module.

Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

5. Après cela, vous pouvez quitter la fenêtre actuelle.
6. Ensuite, allez dans le menu "Fichier" et cliquez sur le bouton "Gérer les règles et les alertes".
7. Dans la boîte de dialogue contextuelle "Règles et alertes", cliquez sur le bouton "Nouvelle règle".
8. Ensuite, dans la nouvelle boîte de dialogue de "l'assistant de règles", sélectionnez "Appliquer la règle sur les messages que je reçois" et cliquez sur "Suivant".
9. Dans le deuxième écran de "l'assistant de règles", vous devez spécifier les conditions, à savoir définir quels e-mails sont importants pour vous, comme ceux provenant d'expéditeurs spécifiques, etc.
10. Après cela, cliquez sur "Suivant", ce qui vous amènera à l'écran suivant, dans lequel vous devrez définir une action de règle. Sélectionnez "Exécuter un script" et optez pour la macro précédemment ajoutée.
11. Plus tard, cliquez sur plusieurs "Suivant" jusqu'à obtenir le dernier écran - "Terminer la configuration de la règle", dans lequel vous pouvez spécifier un nom pour cette règle et vérifier à nouveau le paramètre de règle.
12. Cliquez enfin sur "Terminer" pour enregistrer cette nouvelle règle.
13. Enfin, depuis lors, chaque fois qu'un nouvel e-mail entrant important arrive dans votre boîte aux lettres, Outlook imprimera automatiquement sa première page si elle est trop longue.

Extraire un maximum de données à partir de fichiers PST corrompus

Peut-être avez-vous réalisé la vulnérabilité d'Outlook. Dans ces circonstances, vous ne devez négliger aucun effort pour protéger vos données Outlook. Cependant, le plus souvent, vous constaterez que les données Outlook peuvent être corrompues simplement en raison d'un arrêt soudain. Ainsi, vous devez vous préparer à des imprévus Corruption d'Outlook, y compris des sauvegardes PST régulières et un puissant outil de réparation, comme DataNumen Outlook Repair.

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