每個人在某些情況下，公司可能需要將簽名添加到一個特定的格式。 不幸的是，我不能做通過Excahnge服務器。 S的聲明結束添加到傳輸規則，但不能添加用戶特定的信息您的電子郵件。
去做VBscriptten。 Active Directory環境中，你可以使用這個太受人的信息，必須準確輸入。
下面你會找到相關的代碼，並組織他們自己。
也感謝你......我的朋友，誰輕
出錯時繼續下一步 設置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 昏暗的名稱，firstLetter，otherLetters，FName參數，SNAME 名稱= strName的 ARR = SPLIT（姓名“，”） firstLetter = UCASE（左（ARR（0），1）） otherLetters = LCASE（右（ARR（0），LEN（ARR（0））-1）） FName參數= firstLetter及otherLetters firstLetter = UCASE（左ARR（1），（1）） otherLetters = LCASE（右ARR（（1），萊恩（房租（1））-1）） SNAME = firstLetter及otherLetters 名稱= FName參數＆“”＆SNAME 與objSelection.ParagraphFormat CentimetersToPoints的。leftindent上=（0） CentimetersToPoints的。RightIndent =（0） 。SpaceBefore = 0 。SpaceBeforeAuto = FALSE 。SpaceAfter = 0 。SpaceAfterAuto = FALSE 。LineSpacingRule = wdLineSpaceMultiple LineSpacing = LinesToPoints（1:15） 。對準= wdAlignParagraphLeft 。WidowControl = TRUE 。KeepWithNext = FALSE 。的KeepTogether = FALSE 。PageBreakBefore = FALSE 。NoLineNumber = FALSE 斷字=真 CentimetersToPoints的。FirstLineIndent =（0） 。OutlineLevel = wdOutlineLevelBodyText 。CharacterUnitLeftIndent = 0 。CharacterUnitRightIndent = 0 。CharacterUnitFirstLineIndent = 0 。LineUnitBefore = 0 。LineUnitAfter = 0 。MirrorIndents = FALSE 。TextboxTightWrap = wdTightNone 隨著尾隨著ObjSelection 。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 結尾 設置objSelection = objDoc.Range（） IF（objSignatureEntries（“公元簽名”）） objSignatureEntries.Remove“公元簽署”完 objSignatureEntries.Add“公元簽署”objSelection objSignatureObject.NewMessageSignature =“公元簽名” objSignatureObject.ReplyMessageSignature =“公元簽名” objDoc.Saved = TRUE objWord.Quit 
這樣的文章，例如快速，hlefpul的答案。