Discussion :

[clovys33700]

Bonjour à vous tous,

je fais suite au précédent message car il est similaire.

En fouillant dans les archives j'ai trouvé ce sujet qui s'approche de la solution que je cherche.

https://www.developpez.net/forums/d1...t-automatique/


Mais comme il est très très très très très très vieux je ne suis pas aventuré à le déterrer.


En fait ce que je cherche c'est très simple mais à la fois très compliqué pour quelqu'un qui n'est pas programmeur.
J'ai besoin qu'Outlook identifie le nom de domaine de l'expéditeur et que au besoin il crée ce dossier et le déplace.

Mes connaissances en programmation sont très rudimentaires
l
'organigramme que je souhaiterais ressemblerai à ceci.
À la réception d'un mail toto@exemple.fr

%var_D%=exemple
if folder %var_d% exist then move to folder %var_D% else create folder %var_D% and move to folder %var_D%

Et pour finir il faut que cette règle puisse s'appliquer à tous les messages de tous les comptes.
Voilà le voir mais connaissances en programmation sont vraiment rudimentaires un peu basiques quand j'étais plus jeune mais cet tous.

Merci pour votre aide

[clovys33700]

Bonjour à tous,

Je continue mes recherches. Je suis surpris par le manque de réactivité de la communauté.

Quoi qu'il en soit nativement Outlook ne sait pas faire malgré la demande de plusieurs utilisateurs.

Effectivement il est possible de le faire en Visual basique.

J'ai trouvé ce sujet mais qui date mais qui correspond exactement à la première étape de la solution de mon problème. À savoir, récupérer dans une variable, le nom de domaine de l'expéditeur.
Une fois cette variable établie il suffira de créer un dossier avec cette variable. Si le dossier existe déjà poursuivre.
Ensuite déplacer ce mail Le dossier susnommé.

voilà le script que j'ai trouvé

##récupération nom de domaine##

Sub script(Mail As MailItem)
Dim SenderEmailAddress, Domaine As String

Domaine = Split(SenderEmailAddress, "@", 1)
MsgBox Domaine
SenderEmailAddress = Mail.SenderEmailAddress

End Sub

*source* https://www.developpez.net/forums/d2...-d-expediteur/

maintenant toujours depuis la même source comment exécuter une macro a la réception d'un mail.
##exécution a l'arrivé d'un mail##

Private Sub Application_NewMail()
Dim myOlApp As New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Temp")
Dim strName As String

For Each myItem In myInbox.Items

strName = myItem.EntryId

myItem.SaveAs "C:\temp" & strName & ".txt", olTXT
myItem.Move myDestFolder
Set myItem = myItems.GetNext

Next myItem
End Sub



Voila j'ai des petits bout mais je ne suis pas programmeur et de plus cela a plus de 10 donc de la préhistoire.


Prendre 10 minutes pour réorganiser tout ça proprement et fonctionnel et comment l'insérer dans Outlook ça serait vraiment sympa car ça dépasse largement mon domaine de compétence.
Sinon j'ai vu qu'il existait des modules complémentaires de messagerie j'ai pas encore fouillé de ce coté.

Vous remerciant par avance de bien prendre un peut de votre temps

[clovys33700]

bonsoir,

bien j'ai du me tromper de forum j'ai demandé a tchat Gpt elle m'a pondu un truc c'est pas parfais mais cela fonctionne.

Désolé pour le dérangement.

Bonne sieste

Mes amitié a morphée

cdt

clovys.