Composants réseau : Testez la nouvelle version bêta d'ICS
(Internet Component Suite)

Le , par pinkiki, Nouveau Candidat au Club
Citation Envoyé par pinkiki  Voir le message
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!!!

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 = ""



Vous avez aimé cette actualité ? Alors partagez-la avec vos amis en cliquant sur les boutons ci-dessous :
Offres d'emploi IT
RESPONSABLE WEB ANALYTICS F/H
VACALIANS GROUP - Languedoc Roussillon - SETE (34)
Développeur WEB PHP F/H
VACALIANS GROUP - Languedoc Roussillon - SETE (34)
Développeur Web FULL-STACK
VACALIANS GROUP - Languedoc Roussillon - SETE (34)

Voir plus d'offres Voir la carte des offres IT
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -