Hyperlink.EmailSubject (Word)

Returns or sets the text string for the specified hyperlink's subject line.

The subject line is appended to the hyperlink's Internet address, or URL. This property is commonly used with email hyperlinks. The value of this property takes precedence over any email subject specified in the Address property of the same Hyperlink object.

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