[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 !

Rechercher des sujets similaires à "outlook impression mails bonne ordre"