EmailSubject 属性

返回或设置指定的超链接主题行的文本字符串。该主题行附加在超链接的 Internet 地址或 URL 中。String 类型，可读写。

说明

此属性通常配合电子邮件超链接一起使用。其值优先于在相同 Hyperlink 对象的 Address 属性中指定的任何其他电子邮件主题。

示例

本示例实现的功能是：检查活动文档中的电子邮件超链接。如果发现某个超链接有空主题行，则为其添加主题“NewProducts”。

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