Все в некоторых случаях, компании, возможно, придется добавить подпись к определенному формату. К сожалению, я не могу сделать через Excahnge Server. С конца отказ быть добавлены правила транспорта, но и пользовательской информации не можете добавить вашу электронную почту.
VBscriptten способ сделать это идет. Информация для лиц, подлежащих активной среды каталог вы можете использовать это тоже должно быть введено точно.
Ниже вы найдете соответствующий код и организовать их самостоятельно.
Также спасибо .. мой друг, который внес вклад в свет
On Error Resume Next Установите objSysInfo = CreateObject ("ADSystemInfo") strUser = objSysInfo.UserName Установить objUser = GetObject ("LDAP :/ /" и strUser) strName = objUser.FullName strTitle = objUser.Title strDepartment = objUser.Department strCompany = objUser.Company strPhone = objUser.telephoneNumber strStreet = objUser.streetAddress Установите objWord = CreateObject ("Word.Application") Установите objDoc = objWord.Documents.Add () Установите objSelection = objWord.Selection Установите objEmailOptions = objWord.EmailOptions Установите objSignatureObject = objEmailOptions.EmailSignature Установите objSignatureEntries = objSignatureObject.EmailSignatureEntries Dim имя, firstLetter, otherLetters, имя_файла, SNAME имя = strName обр = Split (название, "") firstLetter = UCase (Left (обр (0), 1)) otherLetters = LCase (Right (обр (0), Len (обр (0)) -1)) имя_файла = firstLetter и otherLetters firstLetter = UCase (Left (обр (1), 1)) otherLetters = LCase (Right (ARR (1), Len (ARR (1)) -1)) sИМЯ = firstLetter и otherLetters имя = имя_файла & "" & SNAME С objSelection.ParagraphFormat . LeftIndent = CentimetersToPoints (0) . RightIndent = CentimetersToPoints (0) . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . LineSpacingRule = wdLineSpaceMultiple . LineSpacing = LinesToPoints (1:15) . Alignment = wdAlignParagraphLeft . WidowControl = True . KeepWithNext = False . KeepTogether = False . PageBreakBefore = False . NoLineNumber = False . Переносов = True . FirstLineIndent = CentimetersToPoints (0) . OutlineLevel = wdOutlineLevelBodyText . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 0 . LineUnitBefore = 0 . LineUnitAfter = 0 . MirrorIndents = False . TextboxTightWrap = wdTightNone ObjSelection С End With . Font.Bold = True . TypeText имя . TypeText vbCRLF . TypeText strTitle . TypeText vbCRLF . TypeText strDepartment и "Кафедра" . TypeText vbCRLF . TypeText vbCRLF . Font.Color = vbRed . TypeText strCompany . TypeText vbCRLF . Font.Bold = True . Font.Color = vbBlack . TypeText "Телефон" . Font.Bold = False . TypeText strPhone . TypeText vbCRLF . Font.Bold = True . TypeText "Адрес:" . Font.Bold = False . TypeText vbCRLF . TypeText strStreet End With Установите objSelection = objDoc.Range () IF (objSignatureEntries ("AD подписи")), то objSignatureEntries.Remove END "AD подпись" IF objSignatureEntries.Add "AD подпись", objSelection objSignatureObject.NewMessageSignature = "AD подписи" objSignatureObject.ReplyMessageSignature = "AD подписи" objDoc.Saved = True objWord.Quit 
Статьи, подобные этой, например, быстрого, hlefpul ответы.