Outlook VBScript签名更改颜色和字体不带换行符

Outlook VBScript签名更改颜色和字体不带换行符,vbscript,Vbscript,我有一个非常特别的客户,他希望所有员工的电子邮件签名都以非常具体的方式格式化。我遇到的问题是,客户端希望将其格式化为w:其中“w:”的格式为蓝色,超链接的格式为黑色,都是Arial 9pt 如果不添加不需要的换行符或不将整个签名格式化为黑色,我无法使其正常工作 'Website objSelection.Font.Name = "Arial" objSelection.Font.Size = 9 objSelection.Font.Color = RGB(27,161,226) objSelec

我有一个非常特别的客户,他希望所有员工的电子邮件签名都以非常具体的方式格式化。我遇到的问题是,客户端希望将其格式化为w:其中“w:”的格式为蓝色,超链接的格式为黑色,都是Arial 9pt

如果不添加不需要的换行符或不将整个签名格式化为黑色,我无法使其正常工作

'Website
objSelection.Font.Name = "Arial"
objSelection.Font.Size = 9
objSelection.Font.Color = RGB(27,161,226)
objSelection.Font.Bold = False
objSelection.Font.Italic = False
objSelection.TypeText strSymbol_W

objSelection.Font.Bold = False
objSelection.Font.Italic = False
Set objLink = objSelection.Hyperlinks.Add (objSelection.Range, strWebsite, , ,strWebsite)
Set objSelection = objLink()
objSelection.Font.name = "Arial"
objSelection.Font.Color = RGB(0,0,0)
objSelection.Font.Size = 9


您的代码应该更像这样:

Set objLink = objSelection.Hyperlinks.Add(objSelection.Range, strWebsite, "", "", strWebsite)
objLink.Range.Font.name = "Arial"
objLink.Range.Font.Color = RGB(0,0,0)
objLink.Range.Font.Size = 9

谢谢,成功了。有趣的是,选择范围本身如何修复它而不是选择。