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"
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
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
Si quelqu'un a eu le même problème ou un peu d'aide à m'apporter je suis preneur
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
Bonne journée et bon week end si vous faites le pont
Partager