Hyperlink.EmailSubject (Word)

Cette propriété renvoie ou définit la chaîne de texte pour la ligne d'objet du lien hypertexte spécifié.

La ligne d'objet est ajoutée à l'adresse de lien hypertexte Internet, ou l'URL.

Dim hypLoop As Hyperlink 
 
For Each hypLoop In ActiveDocument.Hyperlinks 
 If hypLoop.Address Like "mailto*" And _ 
 hypLoop.Address = hypLoop.EmailSubject Then 
 hypLoop.EmailSubject = "NewProducts" 
 End If 
Next hypLoop