Bonjour,
J'essaie d'utiliser une script de
dolphy35 - Merci a lui
que j'essaie d'adapter . J'ai vraiment du mal en VBA Outllok https://outlook.developpez.com/faq/?page=VBA#Script_Regle

Je voudrais récupérer le nom de domaine de l'expéditeur a l'arrivé d'un mail.

Voici le script
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub script(Mail As MailItem)
Dim SenderEmailAddress, Domaine As String
 
  Domaine = Split(SenderEmailAddress, "@", 1)
  MsgBox Domaine
  SenderEmailAddress = Mail.SenderEmailAddress
 
End Sub
Quand je reçois un mail j'ai ce message d'erreur.

Nom : Erreur1.jpg
Affichages : 26
Taille : 12,9 Ko

Deuxièmement je voudrais utiliser ce nom de domaine pour renseigner le champ société de Tous les champs Document. Ce qui permet de classer les mails par le champ société.

Nom : Erreur2.jpg
Affichages : 23
Taille : 39,0 Ko
Comment faire ?

Merci beaucoup.