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