Macro imprime

Bonjour le forum

J’ai une macro dans Outlook qui imprime la pièce jointe d’un message 2 fois, le problème c’est qu’elle ne prend en compte que la 1° pièce jointe, alors que parfois mes messages peuvent comporter plusieurs pièces jointes

Merci

Dans module1

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

ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0

End Sub

Dans module2

Sub test_script()

Dim Oitem As Outlook.MailItem

Set Oitem = ActiveInspector.CurrentItem

script Oitem

End Sub

Rechercher des sujets similaires à "macro imprime"