Hyperlink.EmailSubject (Word)

Gibt die Textzeichenfolge für die Betreffzeile des angegebenen Hyperlinks zurück oder legt Sie fest.

Die Betreffzeile wird der Internet Adresse des Hyperlinks oder der URL hinzugefügt.


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