☰

使用 Active Directory 字段在 Exchange 2003 中实施签名策略

tag-icon • tag-icon active-directory exchange outlook
使用 Active Directory 字段在 Exchange 2003 中实施签名策略

我们的组织已决定需要为所有用户提供一个标准签名块，该签名块基于用户的姓名、职位、联系方式和办公地点，所有这些信息都存储在 Active Directory 中。

是否有人找到了基于 Active Directory 字段自动生成 Outlook/Exchange 2003 签名的简洁解决方案？

答案1

我是Exclaimer 邮件实用程序。

它位于您的 Exchange 服务器上，有许多可自定义的规则，这些规则决定是否应用固定格式。我让它在所有外部发送的电子邮件顶部添加我们的公司徽标，并在底部添加人员姓名、职位和各种电话号码 - 所有这些都是从 Active Directory 中提取的。

我只使用过一次支持，但他们非常友好、知识渊博并且很快解决了我的问题。

答案2

我编写的脚本非常成功。它将各种 AD 字段写入不可见的 Word 文档，然后将其复制到 Outlook 2007 中作为默认和回复签名。

我不再让它在每次登录时自动运行。我很少会在用户首次登录计算机时遇到问题，此时 Outlook 无法在未完成向导的情况下打开。截至目前，它只是一个 GPO，只会将一个名为“重置电子邮件签名”的快捷方式推送到用户的桌面。这还允许用户拥有非默认签名，而不会每次都覆盖它们。

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strFax = objUser.faxNumber

strStreet = objUser.StreetAddress
strCity = objUser.L
strState = objUser.St
strPOBox = objUser.postalCode

strFirstName = objUser.givenName
strInitials = objUser.initials
strLastName = objUser.sn
If strInitials = "" Then
    strFullName = strFirstName & " " & strLastName
Else
    strFullName = strFirstName & " " & strInitials & ". " & strLastName
End If

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Style = "No Spacing" 
objSelection.Font.Name = "Calibri"
objSelection.Font.Size = "11"

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.TypeParagraph()
objSelection.TypeText "Sincerely,"
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText "ORGANIZATION NAME"
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText strFullName & ", " & strTitle
'objSelection.TypeText strName & ", " & strTitle
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText strStreet
objSelection.TypeParagraph()
objSelection.TypeText strCity & ", " & strState & " " & strPOBox
objSelection.TypeParagraph()
objSelection.TypeText "Desk: " & strPhone
objSelection.TypeParagraph()
objSelection.TypeText "Fax:    " & strFax
objSelection.TypeParagraph()

'Hyperlink below
objDoc.Hyperlinks.Add objSelection.Range, "www.yoursitename.com", "", "", "www.yoursitename.com", ""

objSelection.TypeParagraph()
objSelection.TypeParagraph()

'Picture below
Set objShape = objSelection.InlineShapes.AddPicture("\\fileserver\path\to\image.BMP")

Set objSelection = objDoc.Range()

objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"

objDoc.Saved = True
objWord.Quit

如果您有任何疑问，请告诉我！

相关内容