Outlook Macro Notification Outlook si nouveaux fichiers folder Windows

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

DELATTE

XLDnaute Junior
Bonjour à tous,

Je voulais savoir si il était possible de générer une macro dans Outlook qui enverrait une notification dès que de nouveaux fichiers pdf sont ajoutés dans un folder Windows.

Un grand merci d'avance.

Bien à vous,
 
Trier par date Trier par votes
Bonjour,
Je t'invites a créer une tâche dans le gestionnaire de tâches pour exécuter un vbscript toutes les 5 minutes, ou plus ou moins en fonction de ce que tu as besoin de réactivité.

Ce script vérifie l'arrivée de nouveaux fichiers dans un répertoire que tu défini, Envoi un notification Outlook puis archives dans un fichier de log pour ne plus le renvoyer.
Code: 
' Script VBScript pour surveiller un répertoire et envoyer un email pour chaque nouveau PDF
' Auteur: Assistant Claude
' Version: 1.0

Option Explicit

' === CONFIGURATION - À MODIFIER SELON VOS BESOINS ===
Const REPERTOIRE_SURVEILLE = "C:\MonRepertoire\PDFs"  ' Chemin du répertoire à surveiller
Const EMAIL_DESTINATAIRE = "destinataire@exemple.com"  ' Email du destinataire
Const EMAIL_EXPEDITEUR = "expediteur@exemple.com"      ' Votre adresse email (optionnel)
Const SUJET_EMAIL = "Nouveau fichier PDF détecté"      ' Sujet de l'email
'Const INTERVALLE_VERIFICATION = 5000                   ' Intervalle en millisecondes (5 secondes)

' Variables globales
Dim fso, dossier, fichiersPrecedents
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichiersPrecedents = CreateObject("Scripting.Dictionary")

' Fonction principale
Sub Main()
    WScript.Echo "=== Surveillance des fichiers PDF ==="
    WScript.Echo "Répertoire surveillé : " & REPERTOIRE_SURVEILLE
    WScript.Echo "Intervalle de vérification : " & (INTERVALLE_VERIFICATION / 1000) & " secondes"
    WScript.Echo "Appuyez sur Ctrl+C pour arrêter..."
    WScript.Echo ""
  
    ' Vérifier que le répertoire existe
    If Not fso.FolderExists(REPERTOIRE_SURVEILLE) Then
        WScript.Echo "ERREUR : Le répertoire '" & REPERTOIRE_SURVEILLE & "' n'existe pas !"
        WScript.Quit
    End If
  
    ' Initialiser la liste des fichiers existants
    InitialiserFichiersPrecedents()
  
    ' Boucle de surveillance
'    Do
        VerifierNouveauxFichiers()
    '    WScript.Sleep INTERVALLE_VERIFICATION
'    Loop
End Sub

' Initialise la liste des fichiers PDF déjà présents
Sub InitialiserFichiersPrecedents()
    Dim fichier
    Set dossier = fso.GetFolder(REPERTOIRE_SURVEILLE)
  
    For Each fichier In dossier.Files
        If LCase(fso.GetExtensionName(fichier.Name)) = "pdf" Then
            fichiersPrecedents.Add fichier.Name, fichier.DateCreated
        End If
    Next
  
    WScript.Echo "Initialisation : " & fichiersPrecedents.Count & " fichiers PDF trouvés"
End Sub

' Vérifie s'il y a de nouveaux fichiers PDF
Sub VerifierNouveauxFichiers()
    Dim fichier, nomFichier
    Set dossier = fso.GetFolder(REPERTOIRE_SURVEILLE)
  
    For Each fichier In dossier.Files
        nomFichier = fichier.Name
      
        ' Vérifier si c'est un fichier PDF
        If LCase(fso.GetExtensionName(nomFichier)) = "pdf" Then
            ' Vérifier si c'est un nouveau fichier
            If Not fichiersPrecedents.Exists(nomFichier) Then
                WScript.Echo "Nouveau fichier détecté : " & nomFichier
              
                ' Ajouter à la liste des fichiers connus
                fichiersPrecedents.Add nomFichier, fichier.DateCreated
              
                ' Envoyer l'email
                EnvoyerEmail nomFichier, fichier.Path
            End If
        End If
    Next
End Sub

' Envoie un email via Outlook
Sub EnvoyerEmail(nomFichier, cheminComplet)
    On Error Resume Next
  
    Dim outlookApp, mailItem
  
    ' Créer une instance d'Outlook
    Set outlookApp = CreateObject("Outlook.Application")
  
    If Err.Number <> 0 Then
        WScript.Echo "ERREUR : Impossible de démarrer Outlook (" & Err.Description & ")"
        Err.Clear
        Exit Sub
    End If
  
    ' Créer un nouvel email
    Set mailItem = outlookApp.CreateItem(0) ' olMailItem = 0
  
    With mailItem
        .To = EMAIL_DESTINATAIRE
        If EMAIL_EXPEDITEUR <> "" Then .SentOnBehalfOfName = EMAIL_EXPEDITEUR
        .Subject = SUJET_EMAIL & " - " & nomFichier
        .Body = "Bonjour," & vbCrLf & vbCrLf & _
                "Un nouveau fichier PDF a été détecté dans le répertoire surveillé." & vbCrLf & vbCrLf & _
                "Nom du fichier : " & nomFichier & vbCrLf & _
                "Chemin complet : " & cheminComplet & vbCrLf & _
                "Date de détection : " & Now() & vbCrLf & vbCrLf & _
                "Cordialement," & vbCrLf & _
                "Système de surveillance automatique"
      
        ' Optionnel : Joindre le fichier PDF à l'email
        ' .Attachments.Add cheminComplet
      
        ' Envoyer l'email
        .Send
    End With
  
    If Err.Number = 0 Then
        WScript.Echo "Email envoyé avec succès pour : " & nomFichier
    Else
        WScript.Echo "ERREUR lors de l'envoi de l'email : " & Err.Description
        Err.Clear
    End If
  
    ' Nettoyer les objets
    Set mailItem = Nothing
    Set outlookApp = Nothing
End Sub

' Gestion des erreurs globales
Sub GestionErreur(description)
    WScript.Echo "ERREUR : " & description
    WScript.Echo "Le script continue à fonctionner..."
End Sub

' Démarrer le script
Main()
 
Dernière édition:
Vote positif 0 Vote négatif
dysorthographie à dit:
Bonjour,
Je t'invites a créer une tâche dans le gestionnaire de tâches pour exécuter un vbscript toutes les 5 minutes, ou plus ou moins en fonction de ce que tu as besoin de réactivité.

Ce script vérifie l'arrivée de nouveaux fichiers dans un répertoire que tu défini, Envoi un notification Outlook puis archives dans un fichier de log pour ne plus le renvoyer.
Code: 
' Script VBScript pour surveiller un répertoire et envoyer un email pour chaque nouveau PDF
' Auteur: Assistant Claude
' Version: 1.0

Option Explicit

' === CONFIGURATION - À MODIFIER SELON VOS BESOINS ===
Const REPERTOIRE_SURVEILLE = "C:\MonRepertoire\PDFs"  ' Chemin du répertoire à surveiller
Const EMAIL_DESTINATAIRE = "destinataire@exemple.com"  ' Email du destinataire
Const EMAIL_EXPEDITEUR = "expediteur@exemple.com"      ' Votre adresse email (optionnel)
Const SUJET_EMAIL = "Nouveau fichier PDF détecté"      ' Sujet de l'email
'Const INTERVALLE_VERIFICATION = 5000                   ' Intervalle en millisecondes (5 secondes)

' Variables globales
Dim fso, dossier, fichiersPrecedents
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichiersPrecedents = CreateObject("Scripting.Dictionary")

' Fonction principale
Sub Main()
    WScript.Echo "=== Surveillance des fichiers PDF ==="
    WScript.Echo "Répertoire surveillé : " & REPERTOIRE_SURVEILLE
    WScript.Echo "Intervalle de vérification : " & (INTERVALLE_VERIFICATION / 1000) & " secondes"
    WScript.Echo "Appuyez sur Ctrl+C pour arrêter..."
    WScript.Echo ""
 
    ' Vérifier que le répertoire existe
    If Not fso.FolderExists(REPERTOIRE_SURVEILLE) Then
        WScript.Echo "ERREUR : Le répertoire '" & REPERTOIRE_SURVEILLE & "' n'existe pas !"
        WScript.Quit
    End If
 
    ' Initialiser la liste des fichiers existants
    InitialiserFichiersPrecedents()
 
    ' Boucle de surveillance
'    Do
        VerifierNouveauxFichiers()
    '    WScript.Sleep INTERVALLE_VERIFICATION
'    Loop
End Sub

' Initialise la liste des fichiers PDF déjà présents
Sub InitialiserFichiersPrecedents()
    Dim fichier
    Set dossier = fso.GetFolder(REPERTOIRE_SURVEILLE)
 
    For Each fichier In dossier.Files
        If LCase(fso.GetExtensionName(fichier.Name)) = "pdf" Then
            fichiersPrecedents.Add fichier.Name, fichier.DateCreated
        End If
    Next
 
    WScript.Echo "Initialisation : " & fichiersPrecedents.Count & " fichiers PDF trouvés"
End Sub

' Vérifie s'il y a de nouveaux fichiers PDF
Sub VerifierNouveauxFichiers()
    Dim fichier, nomFichier
    Set dossier = fso.GetFolder(REPERTOIRE_SURVEILLE)
 
    For Each fichier In dossier.Files
        nomFichier = fichier.Name
     
        ' Vérifier si c'est un fichier PDF
        If LCase(fso.GetExtensionName(nomFichier)) = "pdf" Then
            ' Vérifier si c'est un nouveau fichier
            If Not fichiersPrecedents.Exists(nomFichier) Then
                WScript.Echo "Nouveau fichier détecté : " & nomFichier
             
                ' Ajouter à la liste des fichiers connus
                fichiersPrecedents.Add nomFichier, fichier.DateCreated
             
                ' Envoyer l'email
                EnvoyerEmail nomFichier, fichier.Path
            End If
        End If
    Next
End Sub

' Envoie un email via Outlook
Sub EnvoyerEmail(nomFichier, cheminComplet)
    On Error Resume Next
 
    Dim outlookApp, mailItem
 
    ' Créer une instance d'Outlook
    Set outlookApp = CreateObject("Outlook.Application")
 
    If Err.Number <> 0 Then
        WScript.Echo "ERREUR : Impossible de démarrer Outlook (" & Err.Description & ")"
        Err.Clear
        Exit Sub
    End If
 
    ' Créer un nouvel email
    Set mailItem = outlookApp.CreateItem(0) ' olMailItem = 0
 
    With mailItem
        .To = EMAIL_DESTINATAIRE
        If EMAIL_EXPEDITEUR <> "" Then .SentOnBehalfOfName = EMAIL_EXPEDITEUR
        .Subject = SUJET_EMAIL & " - " & nomFichier
        .Body = "Bonjour," & vbCrLf & vbCrLf & _
                "Un nouveau fichier PDF a été détecté dans le répertoire surveillé." & vbCrLf & vbCrLf & _
                "Nom du fichier : " & nomFichier & vbCrLf & _
                "Chemin complet : " & cheminComplet & vbCrLf & _
                "Date de détection : " & Now() & vbCrLf & vbCrLf & _
                "Cordialement," & vbCrLf & _
                "Système de surveillance automatique"
     
        ' Optionnel : Joindre le fichier PDF à l'email
        ' .Attachments.Add cheminComplet
     
        ' Envoyer l'email
        .Send
    End With
 
    If Err.Number = 0 Then
        WScript.Echo "Email envoyé avec succès pour : " & nomFichier
    Else
        WScript.Echo "ERREUR lors de l'envoi de l'email : " & Err.Description
        Err.Clear
    End If
 
    ' Nettoyer les objets
    Set mailItem = Nothing
    Set outlookApp = Nothing
End Sub

' Gestion des erreurs globales
Sub GestionErreur(description)
    WScript.Echo "ERREUR : " & description
    WScript.Echo "Le script continue à fonctionner..."
End Sub

' Démarrer le script
Main()
Cliquez pour agrandir...
Un grand merci à vous. 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Impression PDF Folder Windows dans l’ordre avec pause
Réponses
13
Affichages
271
DELATTE
D
D
  • Résolu(e)
Outlook Macro Outlook 365-Création sous-dossier suivant contenu et sauvegarde pièces jointes lien zip
4 5 6
Réponses
79
Affichages
3 K
DELATTE
D
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
654
TooFatBoy
TooFatBoy
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
236
patricktoulon
patricktoulon
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2
Réponses
18
Affichages
786
job75
job75
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
341
Phil69970
Phil69970
P
  • Question Question
Outlook Outlook imprimer mail et PJ en PDF
Réponses
2
Affichages
1 K
paulng
P
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
224
DARRIEUX
D
patricktoulon
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
348
patricktoulon
patricktoulon
patricktoulon
  • Résolu(e)
XL 2013 lancement de phase de test de l’exporter html pdf coloration syntaxique version 2025/2026
2
Réponses
27
Affichages
1 K
patricktoulon
patricktoulon
C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
265
chnico80
C
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
439
wDog66
wDog66
M
  • Question Question
Microsoft 365 Questions générales Power Query
Réponses
4
Affichages
629
merinos-BernardEtang
merinos-BernardEtang
Usine à gaz
  • Question Question
Autres Windoxs 10 : Exécuter tous mes classeurs Excel et PDF en tant qu'administrateur
2
Réponses
17
Affichages
2 K
Usine à gaz
Usine à gaz
R
  • Résolu(e)
Microsoft 365 Extraction contenu mail outlook vers excel
2
Réponses
18
Affichages
1 K
raf26
R
Jojo973
  • Question Question
Microsoft 365 Trier les données d'une colonne.
Réponses
2
Affichages
101
sylvanu
sylvanu
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
472
Lu76Fer
Lu76Fer
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
256
AtTheOne
AtTheOne
goldkeefer
  • Résolu(e)
XL 2016 Planning de ménage
Réponses
5
Affichages
247
Volvo64400
Volvo64400
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
863
halecs93
halecs93
Retour