Hyperlink.EmailSubject (Word)

Devuelve o establece la cadena de texto para la línea de asunto del hipervínculo especificado.

La línea de asunto se anexa a la dirección del hipervínculo Internet o la dirección 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