XL 2013 VBA OUTLOOK déplacer un mail qui contient comme objet "hello#45698"

pedro4953 · 6 Avril 2022

Bonjour,

J'aimerais connaître le code pour appliquer sur toute ma boîte mail les conditions suivantes :

SI mon mail contient CONDITION alors déplacer cet e mail dans MONOUTLOOK/DOSSIER1/DOSSIER2/DOSSIER 3

Monoutlook	pedro4953@outlook.fr
Dossier1	Boîte de réception
Dossier2	suivi des commandes
Dossier3	suivi des commandes semaine 14
Condition	hello#45698

Un grand merci d'avance,

Pedro

pedro4953 · 8 Avril 2022

Bonjour,
Je reformule ma demande, j'aimerai créer une règle VBA qui permet de transférer un mail reçu sur la boîte de réception et qui contient en Objet du mail "hello#45698" directement dans le sous dossier suivant : Boîte de réception\suivi des commandes\suivi des commandes semaine 14

Une âme charitable?

Pedro

D.D. · 8 Avril 2022

Bonjour

Tu ne peux pas créer une règle dans Outlook plutôt ? Ce serait plus simple, plus souple.

pedro4953 · 8 Avril 2022

D.D. à dit:
Bonjour

Tu ne peux pas créer une règle dans Outlook plutôt ? Ce serait plus simple, plus souple.

Bonjour @D.D. ,
Le but est d'affranchir à l'utilisateur cette tâche.
Je ne sais pas si c'est possible
Pedro

pedro4953 · 8 Avril 2022

Bien sûr, les répertoires "Boîte de réception\suivi des commandes\suivi des commandes semaine 1" sont déjà créés.

Pedro

pedro4953 · 8 Avril 2022

J'ai trouvé un bout de code à adapter (https://dolphy35.developpez.com/) cependant avant même de tenter de l'adapter, je ne parviens pas à le lancer.

VB:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'---------------------------------------------------------------------------------------
' Procédure : Application_NewMailEx
' Auteur    : Dolphy35
' Site      : http://dolphy35.developpez.com
' Détail    : Permet de déplacer le nouveau message si celui-ci est envoyé par un expéditeur précis
'---------------------------------------------------------------------------------------
'
    'Déclartions
    Dim MonApp As Outlook.Application
    Dim MonMail As Object
    Dim MonNameSpace As Outlook.Namespace
    Dim MonDossier As Outlook.folder
   
    'Instance des variables
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
    Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
   
        'Test si l'expéditeur correpond dans ce cas on déploce le mail
        'vers le dossier Temp de votre boîte de réception
        If MonMail.SenderEmailAddress = "adressemailtest@gmail.com" Then
            MonMail.Move MonDossier.folders("Temptest")
        End If
       
End Sub

D.D. · 8 Avril 2022

pedro4953 à dit:
Bonjour @D.D. ,
Le but est d'affranchir à l'utilisateur cette tâche.
Je ne sais pas si c'est possible
Pedro

Je ne comprends pas. Mettre du VBA demande un accès au poste de l'utilisateur. Quelle différence par rapport à une regle automatique ?

pedro4953 · 8 Avril 2022

D.D. à dit:
Je ne comprends pas. Mettre du VBA demande un accès au poste de l'utilisateur. Quelle différence par rapport à une regle automatique ?

L'idée : j'ai conçu un programme qui envoi un mail avec un objet prédéfini (exemple : hello#45698) à plusieurs destinataires. Ces destinataires nous répondront par retour de ces mail et donc avec le même Objet de mail.

L'idée c'est que quand un mail arrive dans la boîte de réception outlook avec cet objet "hello#45698", il faudrait réussir à le classer dès sa réception, dans un répertoire de notre choix (exemple à classer dans : Boîte de réception\suivi des commandes\suivi des commandes semaine 14 je précise que ce chemin est déjà existant).

Suis je clair?

Pedro

D.D. · 8 Avril 2022

Je dois être fatiguée, je ne suis pas sure de comprendre.
Cependant, quand j'ai quelque chose de similaire à faire chez moi, je fais ceci

Et c'est tout.

pedro4953 · 8 Avril 2022

@D.D. exactement, mais maintenant en VBA pas besoin de spécifier le nom de l'expéditeur

pedro4953 · 11 Avril 2022

Up, n'y a t'il personne pour m'aider?

D.D. · 12 Avril 2022

pedro4953 à dit:
Up, n'y a t'il personne pour m'aider?

Hello,

En fait, mais peut être que ca vient de moi, ta demande n'est pas très claire et je pense y avoir répondu.

Efgé · 12 Avril 2022

Bonjour @pedro4953 Bonjour @D.D. , le fil
@pedro4953
Je plussoie aux réponses de D.D..
Si il s'agit de classer les mails que tu reçois, une règle suffit et est là pour ça.
Si tu veux classer les mails chez le destinataire, des problèmes se font jour.
Soit le dossier d'archivage est sur le poste du destinataire et tu ne pourras pas y avoir accès depuis ton code, soir le dossier d'archivage est sur le réseau et ce sont les règles de confidentialité qui t'interdiront l'accès à un dossier personnel, sauf à demander une dérogation à la sécurité informatique qui d'après moi ne créera pas d'exception vu le sujet.

Cordialement

pedro4953 · 12 Avril 2022

Bonjour @Efgé bonjour @D.D. bonjour le fil,

Merci pour vos réponses,

Afin d'essayer d'être le plus clair possible, voici attaché, le fichier sur lequel j'ai avancé, j'arrive à créer via l'utilisateur sur sa boîte mail outlook les dossiers et sous dossiers. Comment réussir à lui faire créer la règle de classement ?

Est ce impossible?

Pedro

pedro4953 · 12 Avril 2022

pedro4953 à dit:
Bonjour @Efgé bonjour @D.D. bonjour le fil,

Merci pour vos réponses,

Afin d'essayer d'être le plus clair possible, voici attaché, le fichier sur lequel j'ai avancé, j'arrive à créer via l'utilisateur sur sa boîte mail outlook les dossiers et sous dossiers. Comment réussir à lui faire créer la règle de classement ?

Est ce impossible?

Pedro

Dans cet exemple il faudrait que l'utilisateur arrive à classer ses e mails qui contiennent comme objet "relance_cdes_20220412" dans le dossier "relance_cdes_20220412"

XL 2013 VBA OUTLOOK déplacer un mail qui contient comme objet "hello#45698"

pedro4953

XLDnaute Nouveau

pedro4953

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

pedro4953

XLDnaute Nouveau

pedro4953

XLDnaute Nouveau

pedro4953

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

pedro4953

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

pedro4953

XLDnaute Nouveau

pedro4953

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Efgé

XLDnaute Barbatruc

pedro4953

XLDnaute Nouveau

Pièces jointes

pedro4953

XLDnaute Nouveau

Discussions similaires