Bonjour à tous !

Je voudrais automatiser l'impression de PJ que je reçois par mail, parce que vraiment ... quelle perte de temps de faire des clics droit sur toutes les PJ pour les imprimer !
j'ai repris des bouts de codes trouvés par-ci par-là que j'ai essayé d'adapter mais sans réussite, je vous mets le code ci dessous
Dans "This Outlook session"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
 
    Dim MyApp As Outlook.Application
    Dim MyMail As Object
    Dim MyNameSpace As Outlook.NameSpace
 
    Set MyApp = Outlook.Application
    Set MyNameSpace = MyApp.GetNamespace("MAPI")
    Set MyMail = Application.Session.GetAddressEntryFromID(EntryIDCollection)
      If MyMail.SenderEmailAddress = "bbb" Then
          script MyMail
      End If
      If MyMail.SenderEmailAddress = "aaa" Then
          MyMail.Print
      End If
      If MyMail.SenderEmailAddress = "xxx" Then
          MyMail.Print
End Sub
Dans un module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub script(MyMail As MailItem)
 
    Set fichier = MyMail.Attachments
    Repertoire = "C:\temp\"
    fichier(1).SaveAsFile Repertoire & fichier(1).FileName
    ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0
 
End Sub
Si quelqu'un a eu le même problème ou un peu d'aide à m'apporter je suis preneur

Bonne journée et bon week end si vous faites le pont