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