我们的组织已经决定,所有用户都需要根据他们的姓名,职位,联系方式和办公地点为所有用户设置一个标准签名块,所有这些都存储在Active Directory中。
有没有人find一个干净的解决scheme,自动生成基于Active Directory字段的Outlook / Exchange 2003签名?
我是Exclaimer Mail Utilities的长期客户和粉丝。
它位于您的Exchange服务器上,并有许多可定制的规则来决定是否应用固定。 我把它添加到所有外部发送的电子邮件的顶部我们的公司标志,人民的名字,职位和底部的各种电话号码 – 所有从活动目录中拉出。
我只使用过支持一次,但他们非常友好,知识渊博,很快解决了我的问题。
我写了一个脚本,运气非常好。 它从各个AD字段写入一个不可见的Word文档,然后将其复制到Outlook 2007中作为默认和答复签名。
我离开它自动运行每个login。 很less有用户第一次login到计算机时遇到的问题,如果没有通过向导,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
如果您有任何问题,请告诉我!