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" |
Partager