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 =＆＃34;回复签名003＆＃34;

如果我在没有该行的情况下运行代码，它就能完美运行。但它只会将签名添加到签名列表中。我想添加它，以便它自动应用于新的（不包括在上面的）和回复电子邮件。这意味着用户必须手动选择sig。

我用Google搜索并用Google搜索。我已经看到上面的代码在不少于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

vbscript AD电子邮件签名ReplyMessageSignature

1 个答案: