У корпоративному середовищі перед системним адміністратором, або відділом ІТ нерідко постає завдання, зробити єдину і підпис в корпоративному стилі, при листуванні співробітників за допомогою програми Microsoft Outlook. У даній ситуації вчинити найлогічніше наступним чином:
1. Написати текст повідомлення використовуючи змінні для підпису, взяті з AD (Active Directory),
2. Написати невеликий скрипт за допомогою VBS який компелірует файл підпису і розсилає його в папки користувачів,
3. Використовуючи GPO (групову політику) запускати даний скрипт у користувачів домену.
Отже тепер кожен пункт розглянемо більш детально.
Пункт №1.Определяем поля для додавання значень в єдину підпис Outlook.
З полів властивостей об'єкта Active Directory можна взяти такі параметри як:
1. objUser.FullName - виводить ПІБ,
2. objUser.Title - виводить поле "Посада",
3. objUser.Company - Назва компанії, поле "Організація",
7. objuser.wWWHomePage - відповідає за виведення сайту організації.
Після того, як еопределілі параметри вийде щось типу:
Пункт №2 Скрипт для єдиного шаблону підписи в листі Outlook
Тут я приведу текст скрипта який був протестований мною особисто. Скрипт можна змінити, можна Добаїть лого компанії, інші рядки, розташування, колір та ін. Я привожу тільки те, що реально мною використовується.
On Error Resume Next
Set objSysInfo = CreateObject ( "ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject ( "LDAP: //" strUser)
strZpov = "З повагою,"
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strEmail = objuser.mail
Set objWord = CreateObject ( "Word.Application")
Set objDoc = objWord.Documents.Add ()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.ParagraphFormat.Space1
objselection.font.color = RGB (0, 0, 0)
objSelection.TypeText strZpov
objSelection.TypeText CHR (11)
objSelection.TypeText strName
objSelection.TypeText CHR (11)
objSelection.TypeText strTitle
objSelection.TypeText CHR (11)
objSelection.TypeText strCompany
objSelection.TypeText CHR (11)
objSelection.TypeText "Тел." strPhone "Дб." strintPhone
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 255)
objSelection.Hyperlinks.Add objSelection.range, "mailto:" strEmail. strEmail
objSelection.TypeText CHR (11)
objSelection.Hyperlinks.Add objSelection.Range, strWeb, "", "", strWeb
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 0)
objSelection.TypeText strPostIndex strgorod strstreet
Set objSelection = objDoc.Range ()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
Пункт №3. Додаємо скрипт єдиного шаблону підписи в листі Outlook в GPO.
Все при наступному вході в систему файли підпису сформуються скриптом за допомогою політик і замінять всі підписи у клієнтів.