[VB-Outlook] Impression Mails & PJ dans le bonne ordre

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 101
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 9 mai 2019, 15:48

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 !
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message