Discussion :

[d.tellier]

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.



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é.


Comment faire ?

Merci beaucoup.