Bonsoir
il y a des exemples dans la faq notamment celui-ci pour sauvegarder au format .MSG, dans ce format les PJ sont également dedans.
C'est ce qu'il me faut, en modifiant comme un peu.
J'ai ajouté:
Set oShell = CreateObject("Shell.Application")
Et remplacé:
repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"
Par :
repertoire = oShell.BrowseForFolder(0, "Choisissez la destination", 1) & "\"
Ça fonctionne !
Par contre pour enregistrer en txt comment modifier :
objCurrentMessage.SaveAs PathNomExport, OlSaveAsType.olMSG
Une question :
Si plusieurs messages sont sélectionnés, la boîte de dialogue "Enregistrer sous" revient autant de fois que le nombre de msg sélectionnés il faut choisir chaque fois le dossier.
Comment faire une boucle sur tous les messages sélectionnés pour les enregistrer sous le même dossier sans être obligé de selectionner celui-ci à chaque fois ?
Partager