vbscript AD Email подпись 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 

, но во время входа в систему я получаю Unspecified ошибку в этой строке;
objSignatureObject.ReplyMessageSignature = "Reply Signature 003"

Если я запускаю код без этой строки, он отлично работает. Но он добавляет подпись в список подписей. Я хочу добавить его так, чтобы он автоматически применялся для новых (не включенных выше) и отвечал на электронные письма. Это означает, что пользователь должен вручную выбрать сиг.

Я googled и googled. Я видел вышеупомянутый код, работающий не менее чем в 30 разных сценариях. Не знаю, почему это не работает для меня. Начиная интересно, если это проблема кодирования или вопрос политики AD ...

благодаря

Answer 1

опущены (должно быть установлена ​​ подпись, что Microsoft Word добавляет новые сообщения электронной почты ) NewMessageSignature property установки. Итог:

''' 
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