Bonjour,

J'etais en train de faire un petit programme d'envoi de mail sauf que je l'ai programmé sur Excel avant de le mettre sur le VBA d'Outlook. Puis je me suis rendu compte que les commandes ne sont pas les mêmes.

J'aimerais savoir si quelqu'un peut m'aider, il faudrait trouver une variable de Folder (Excel) sur Outlook. Quand je le mets sur outlook, il cherche dans la plateforme d'outlook or j'aimerai que le programme cherche des dossiers sur mon bureau. Vous trouverez ci dessous un morceau du programme. Merci d'avance!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ParcourtDossier()
    Dim GestionFichier As New Scripting.FileSystemObject
    ' On commence par définir une variable de type Folder :
    Dim Dossier As Folder
    Dim SousDossier As Folder
    Dim oElement As IXMLDOMElement 'la variable du contenu située entre deux balises
    ' Cette boucle parcourt tous les dossiers contenus dans F:\Atelier :
    a = 1
    For Each Dossier In GestionFichier.GetFolder("C:\Users\Laurène\Desktop\Tampon DICT").SubFolders
        ' On affiche le nom du dossier courant dans la fenêtre exécution :
 
        For Each SousDossier In GestionFichier.GetFolder(Dossier.Path).SubFolders
             ' On affiche le nom du dossier courant dans la fenêtre exécution :
 
 
 
            ' Fichier va contenir le nom du premier fichier rencontré dans le SousDossier
             Fichier = Dir(SousDossier.Path & "\*.*")
            ' Tant que Fichier est différent de vide (Tant qu'il y a un fichier à lire, simplement)
            While Fichier <> ""
            adresse = ""