Bonjour à tous !

Nos collaborateurs sont en TSE et utilisent OUTLOOK ; j ai une regle outlook qui lance le script d impression de piece jointe pdf.
Mais lors de reception de >5 mail (ces mails arrivent avec espacement temps très court), seulement 3 sont imprimés, les autres sont perdus... une idée ?

Merci !

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
'ce script est lancé par OUTLOOK si reception par AAA
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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub ShellImprime(fichier As String)
        ShellExecute 0, "print", fichier, "", "\\monDossier", 0
End Sub
 
'sauvegarde du fichier en attach
Sub script(MyMail As MailItem)
Set fichier = MyMail.Attachments
Repertoire = "\\monDossier"
fichier(1).SaveAsFile Repertoire & fichier(1).FileName
 
 
    Dim WshNetwork
    Set WshNetwork = CreateObject("WScript.Network")
 
'imp par defaut IMP2    
    WshNetwork.SetDefaultPrinter "IMP2"
 
 
'imp du fichier    
ShellImprime (fichier(1).FileName)
 
'attente pendant l impression sinon imprime sur IMP6
    Sleep 2000
 
'imp par defaut IMP6    
    WshNetwork.SetDefaultPrinter "IMP6"