vbscript AD电子邮件签名ReplyMessageSignature

Question

我试图让这段代码工作;

{meat snipped} 
Set objEmailOptions = objWord.EmailOptions 
Set objSignatureObject = objEmailOptions.EmailSignature 
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 
Set objSelection = objDoc.Range() 
objSignatureEntries.Add "Reply Signature 003", objSelection 
objSignatureObject.ReplyMessageSignature = "Reply Signature 003" 
objDoc.Saved = True 
objWord.Quit 

但在登录期间，我在此行上收到未指定的错误;
objSignatureObject.ReplyMessageSignature =“回复签名003”

如果我在没有该行的情况下运行该代码，则它可以很好地工作。但它只是将签名添加到签名列表中。我想添加它，以便它自动应用于新（不包括上面）和回复电子邮件。这意味着用户必须手动选择信号。

我已经谷歌搜索和谷歌搜索。我已经看到上面的代码在不少于30个不同的脚本中工作。不知道为什么它不适合我。开始怀疑，如果它是一个编码问题或AD政策问题......

感谢

Answer 1

已失NewMessageSignature property设置（即Microsoft Word中追加到新的电子邮件签名应该设置）。请尝试下一步：

''' 
Set objSelection = objDoc.Range() 
objSignatureEntries.Add "Reply Signature 003", objSelection 
objSignatureObject.NewMessageSignature = "Reply Signature 003" 
objSignatureObject.ReplyMessageSignature = "Reply Signature 003" 
objDoc.Saved = True 
objWord.Quit