Note: The other languages of the website are Google-translated. Back to English

Comment imprimer automatiquement les pièces jointes lorsque les e-mails arrivent dans Outlook ?

Ce didacticiel illustre une méthode permettant de combiner un script VBA et une règle Outlook pour vous aider à imprimer automatiquement les pièces jointes de certains e-mails lorsqu'ils arrivent dans Outlook.


Imprimer automatiquement les pièces jointes lorsque certains e-mails arrivent

Supposons que vous souhaitiez imprimer automatiquement les pièces jointes des e-mails entrants d'un certain expéditeur. Vous pouvez procéder comme suit pour le faire.

Étape 1 : Créer un script dans Outlook

Tout d'abord, vous devez créer un script VBA dans Outlook.

1. Lancez votre Outlook, appuyez sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez sur Project1 > Objets Microsoft Outlook > Cette session Outlook ouvrir le Cette session Outlook (code) fenêtre, puis copiez le code suivant dans cette fenêtre de code.

Code VBA 1 : Imprimer automatiquement les pièces jointes (tous les types de pièces jointes) à l'arrivée des e-mails


Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Remarque: Ce code prend en charge l'impression de tous les types de pièces jointes reçues dans les e-mails. Si vous souhaitez imprimer uniquement le type de pièce jointe spécifié, tel que des fichiers pdf, veuillez appliquer le code VBA suivant.

Code VBA 2 : imprime automatiquement le type de pièces jointes spécifié à l'arrivée des e-mails

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Remarque: Dans la ligne Cas « pdf », s'il vous plaît changer "pdf" à l'extension de fichier que vous souhaitez imprimer.

3. Allez-y et cliquez Outils > Les références. Dans le popping Références – Projet1 boîte de dialogue, vérifiez le Exécution de scripts Microsoft , puis cliquez sur le OK .

4. Enregistrez le code et appuyez sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Remarque: S'il vous plaît assurez-vous que le Activer toutes les macros l'option est activée dans votre Outlook. Vous pouvez cocher cette option en suivant les étapes indiquées ci-dessous.

Étape 2 : Créer une règle pour utiliser le script

Après avoir ajouté le script VBA dans Outlook, vous devez créer une règle pour utiliser le script en fonction de certaines conditions.

1. Accédez à l'onglet Accueil, cliquez sur Règles > Gérer les règles et les alertes.

2. dans le Règles et alertes boîte de dialogue, cliquez sur le Nouvelle règle bouton pour créer une règle.

Conseils: Si vous avez ajouté plusieurs comptes de messagerie à votre Outlook, veuillez spécifier un compte dans le Appliquer les modifications à ce dossier liste déroulante où vous souhaitez appliquer la règle. Sinon, il sera appliqué à la boîte de réception du compte de messagerie actuellement sélectionné.

3. Dans le premier Assistant de règles boîte de dialogue, sélectionnez Appliquer la règle aux messages que je reçois à l' Étape 1 boîte, puis cliquez sur Suivant.

4. Dans le second Assistant de règles boîte de dialogue, vous devez:

4.1) Spécifiez une ou plusieurs conditions dans le champ Étape 1 boîte selon vos besoins;
Dans ce cas, je souhaite imprimer uniquement les pièces jointes des e-mails entrants d'un expéditeur spécifié. Ici, je vérifie le de personnes ou d'un groupe public boîte.
4.2) Cliquez sur la valeur soulignée dans le Étape 2 case pour modifier la condition ;
4.3) Cliquez sur Suivant. Voir capture d'écran:

5. Dans le troisième Assistant de règles boîte de dialogue, vous devez configurer comme suit.

5.1) Dans le Étape 1 : sélectionnez la section action(s), vérifier la exécuter un script boîte;
5.2) Dans le Étape 2 section, cliquez sur le texte souligné « un script » ;
5.3) Dans l'ouverture Sélectionnez un script boîte de dialogue, cliquez sur le nom du code VBA que vous avez ajouté ci-dessus, puis cliquez sur OK
5.4) Cliquez sur le Suivant bouton. Voir la capture d'écran:

Conseils: Si la "exécuter un script” l'option est manquante dans votre Assistant de règles, vous pouvez l'afficher en suivant la méthode mentionnée dans cet article : restaurer l'option Exécuter un script manquante dans la règle Outlook.

6. Puis un autre Assistant de règles apparaît demandant des exceptions. Vous pouvez sélectionner les exceptions si nécessaire, sinon, cliquez sur le Suivant bouton sans aucune sélection。

7. Dans le dernier Assistant de règles, vous devez spécifier un nom pour la règle, puis cliquer sur le Finition .

8. Puis il revient au Règles et alertes boîte de dialogue, vous pouvez voir la règle que vous avez créée répertoriée à l'intérieur, cliquez sur le OK bouton pour terminer l'ensemble des paramètres.

Désormais, lorsqu'un e-mail de la personne spécifiée est reçu, les fichiers joints seront imprimés automatiquement.


Articles connexes

Imprimer uniquement les pièces jointes d'un e-mail ou d'e-mails sélectionnés dans Outlook
Dans Outlook, vous pouvez imprimer les e-mails, mais avez-vous imprimé les pièces jointes uniquement à partir d'un e-mail ou d'e-mails sélectionnés dans Outlook ? Cet article présente les astuces pour résoudre ce travail.

Imprimer uniquement l'en-tête de message d'un e-mail dans Outlook
Lors de l'impression d'un e-mail dans Outlook, il imprimera à la fois l'en-tête et le corps du message dans l'e-mail. Cependant, dans certains cas particuliers, vous devrez peut-être simplement imprimer l'en-tête du message avec le sujet, l'expéditeur, les destinataires, etc. Cet article présentera deux solutions pour le faire.

Imprimer un calendrier dans une plage de dates spécifiée/personnalisée dans Outlook
Normalement, lors de l'impression d'un calendrier en vue Mois dans Outlook, il sélectionne automatiquement le mois contenant la date actuellement sélectionnée. Mais, vous devrez peut-être imprimer le calendrier dans une plage de dates personnalisée, telle que 3 mois, la moitié de l'année, etc. Cet article vous présentera la solution.

Imprimer un contact avec une image dans Outlook
Normalement, l'image d'un contact ne sera pas imprimée lors de l'impression du contact dans Outlook. Mais parfois, il sera plus impressionnant d'imprimer un contact avec sa photo. Cet article présentera quelques solutions de contournement pour y parvenir.

Imprimer une sélection d'un e-mail dans Outlook
Si vous recevez un e-mail et constatez qu'une sélection du contenu de l'e-mail doit être imprimée au lieu d'imprimer l'intégralité du message, que feriez-vous? En fait, Outlook peut vous aider à réaliser cette opération à l'aide de navigateurs Internet, tels que Firefox et Internet Explorer. Ici, je prendrai les navigateurs Internet par exemple. Veuillez consulter les didacticiels suivants.

Plus d'articles sur "l'impression dans Outlook"...


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnés...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (1)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour

j ai suivi a la lettre votre methode pour imprimez automatiquement lesz pieces jointess

activez les macros mais il n y a pas de macro

donc ca ne fonctionne pas ou il me manque un element

merci de me dire svp
jean louis sueur
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés