[VB-Outlook] Impression Mails & PJ dans le bonne ordre
Bonjour le Forum,
Je reviens vers vous concernant le projet d'impression des mails selectionnés ainsi que des pièces jointes qui y sont attachés.
J'ai un problème que je n'arrive pas à résoudre :
Les mails s'impriment tous à la suite avant l'impression des pièces jointes ce qui, à la fin, me donne un "tas" de mail d'un côté, et un "tas" de PJ de l'autre.
Or, j'aimerais avoir le mail puis la / les PJ les uns à la suite des autres.
J'ai essayé de solutionner sa avec un DoEvents
, mais je pense mal m'y prendre :
For Each Ml In Mls
i = 0
Set ttep = Ml.Attachments
For Each p In ttep
p.SaveAsFile ch & p.DisplayName
If InStr(1, SaveName, p.DisplayName) >= 1 Then SaveName = InstrSave(SaveName, p.DisplayName)
If Mid(p.DisplayName, InStr(1, p.DisplayName, ".") + 1, Len(p.DisplayName) - InStr(1, p.DisplayName, ".") + 1) = "pdf" Then nb = NumPDF(ch & p.DisplayName)
If nb > 10 Then Kill ch & p.DisplayName
nb = 0
Next p
Ml.PrintOut 'ici instruction de l'impression du mail
For Each File In Folder.Files
If File.Type = "Data Base File" Or File.Name = "image001.jpg" Then GoTo NextIteration
If InStr(1, SaveName, File.Name) >= 1 Then GoTo NextIteration
CreateObject("Shell.Application").NameSpace(0).ParseName(File).InvokeVerb ("Print") 'ici instruction de l'impression de la PJ
SaveName = SaveName & Chr(10) & File.Name
NextIteration:
Next File
Next Ml
Merci d'avance pour votre aide!
Édit :
Et j'en profite pour poser une autre question :
Comment on fais pour désactier l'aperçu avant impression sur VB Outlook :0 ?
Parcequ'avec les images jpg ou png, la macro se stop pour demander à valider l'impression !