Vous ne pouvez pas configurer Outlook pour utiliser une imprimante spécifique autre que celle par défaut pour imprimer des e-mails. Mais dans cet article, nous allons vous montrer une méthode pour y parvenir avec Outlook VBA.
Votre ordinateur doit avoir défini une imprimante comme imprimante par défaut, qui sera appliquée à tous les programmes de cet ordinateur. Dans ce cas, si vous souhaitez imprimer des e-mails via une imprimante autre que celle par défaut dans Outlook, vous devez changer d'imprimante à chaque fois lors de l'impression. C'est assez gênant. Par conséquent, dans ce qui suit, nous vous partagerons un moyen d'utiliser automatiquement une imprimante spécifique pour les e-mails sans avoir à changer d'imprimante à chaque fois.
Utiliser automatiquement une imprimante spécifique pour imprimer des e-mails
- Dès le départ, lancez votre application Outlook.
- Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Ensuite, dans la fenêtre « Microsoft Visual Basic pour Applications » qui s’affiche, vous devez d’abord activer la « Bibliothèque d’objets Microsoft Word ». Pour ce faire, cliquez sur « Outils » > « Références ».
- Ensuite, vous devez accéder à un module vide.
- Ensuite, copiez et collez le code VBA suivant dans ce module.
Sub PrintEmail()
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objWordApp As Word.Application
Dim strTempFolder As String
Dim strMailDocument As String
Dim objMailDocument As Word.Document
Dim strPrinter As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set objItem = ActiveInspector.CurrentItem
Case olExplorer
Set objItem = ActiveExplorer.Selection.Item(1)
End Select
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordApp = CreateObject("Word.Application")
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
objMail.SaveAs strMailDocument, olDoc
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
objMailDocument.Activate
strPrinter = objWordApp.ActivePrinter
'Change to the name of specific printer
objWordApp.ActivePrinter = "Specific Printer"
objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
objWordApp.ActivePrinter = strPrinter
objMailDocument.Close False
objWordApp.Quit
Kill strMailDocument
End If
End Sub
- Après cela, vous pouvez fermer la fenêtre actuelle.
- Ensuite, allez dans le menu "Fichier" et cliquez sur "Options".
- Dans la fenêtre "Options Outlook", passez à l'onglet "Barre d'outils d'accès rapide" et ajoutez la nouvelle macro à la barre d'outils d'accès rapide comme d'habitude.
- Finalement, vous pouvez essayer ce projet VBA.
- Tout d'abord, sélectionnez ou ouvrez un e-mail que vous souhaitez imprimer.
- Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
- L'e-mail sera imprimé par l'imprimante spécifique à la fois.
- A partir de maintenant, pour imprimer des e-mails par imprimante spécifique, vous pouvez simplement utiliser cette macro.
Récupérer Outlook après une corruption accidentelle
Pour éviter la perte de vos données Outlook, vous devez déployer des efforts considérables. Par exemple, vous devriez sauvegarder régulièrement votre fichier PST. Bien entendu, il est conseillé d'utiliser un outil de réparation externe, tel que… DataNumen Outlook Repair. Il peut fixer PST erreurs et restaurer un maximum de données Outlook pour vous.
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