Автоподпісь в outlook у користувачів домену

Дістався мені в спадок домен мав дуже багато зайвого і мало чого корисного. Один з не зробили на мій погляд БП - це автоподпісь в Outlook у користувачів домену.

On Error Resume Next

Set objSysInfo = CreateObject ( «ADSystemInfo»)

strUser = objSysInfo.UserName
Set objUser = GetObject ( «LDAP: //» strUser)

strZpov = «З повагою,"
strDev = «________________________________________________________________________»
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.mobile
strEmail = objuser.mail
strotdel = objUser.extensionAttribute3
strLogo = «\\ шлях до вашого малюнка в мережі \ logo-контора-1.jpg»

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
Set objRange = objDoc.Range ()

Set objTable = objDoc.Tables (1)

objTable.Rows (1) .select
objSelection.Cells.Merge
objTable.Cell (2, 1) .select
objTable.Cell (2, 1) .Width = 70
objSelection.TypeText CHR (11)
objTable.Cell (2, 1) .Text = objSelection.InlineShapes.AddPicture (strLogo)
objTable.Cell (2, 2) .select
objTable.Cell (2, 2) .Width = 400
objselection.font.color = RGB (11, 32, 77)
objSelection.TypeText CHR (11)
»# '
objSelection.ParagraphFormat.Space1
objselection.font.color = RGB (11, 32, 77)
objSelection.Font.Name = «Arial Narrow»
objSelection.Font.Size = «11»
objSelection.TypeText strZpov
objSelection.TypeText CHR (11)
objSelection.TypeText strName
objSelection.TypeText CHR (11)
objSelection.TypeText strTitle
objSelection.TypeText CHR (11)
if (strDepartment<>»») Then objSelection.TypeText strDepartment
if (strDepartment<>»») Then objSelection.TypeText CHR (11)
if (strotdel<>»») Then objSelection.TypeText strotdel
if (strotdel<>»») Then objSelection.TypeText CHR (11)
objSelection.TypeText strCompany
objSelection.TypeText CHR (11)
objSelection.TypeText «Тел. » strPhone
if (strintPhone<>»») Then objSelection.TypeText CHR (11) «Моб. » 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
objDoc.Close
objWord.Quit

Розберемо, що за що відповідає в даному скрипті.

On Error Resume Next

Set objSysInfo = CreateObject ( «ADSystemInfo»)

strUser = objSysInfo.UserName
Set objUser = GetObject ( «LDAP: //» strUser)

strZpov = «З повагою,"
strDev = «____________________________________________________________________»
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.mobile
strEmail = objuser.mail
strotdel = objUser.extensionAttribute3
strLogo = «\\ шлях до вашого малюнка в мережі \ logo-контора-1.jpg»

Set objTable = objDoc.Tables (1)

Блок, створення таблиці, в якій два стовпці і один рядок. колір тексту і його розмір:

objTable.Cell (2, 1) .select
objTable.Cell (2, 1) .Width = 70
objSelection.TypeText CHR (11)
objTable.Cell (2, 1) .Text = objSelection.InlineShapes.AddPicture (strLogo)
objTable.Cell (2, 2) .select
objTable.Cell (2, 2) .Width = 400
objselection.font.color = RGB (11, 32, 77)
objSelection.TypeText CHR (11)

Блок, який виводить інформацію з блоку відповідностей:

objSelection.ParagraphFormat.Space1
objselection.font.color = RGB (11, 32, 77)
objSelection.Font.Name = «Arial Narrow»
objSelection.Font.Size = «11»
objSelection.TypeText strZpov
objSelection.TypeText CHR (11)
objSelection.TypeText strName
objSelection.TypeText CHR (11)
objSelection.TypeText strTitle
objSelection.TypeText CHR (11)
if (strDepartment<>»») Then objSelection.TypeText strDepartment
if (strDepartment<>»») Then objSelection.TypeText CHR (11)
if (strotdel<>»») Then objSelection.TypeText strotdel
if (strotdel<>»») Then objSelection.TypeText CHR (11)
objSelection.TypeText strCompany
objSelection.TypeText CHR (11)
objSelection.TypeText «Тел. » strPhone
if (strintPhone<>»») Then objSelection.TypeText CHR (11) «Моб. » 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
objDoc.Close
objWord.Quit

Скрипт готовий, зберігаємо його як: імя_файла.VBS. залишилося зробити їх 5 штук. Назвати по-різному і в кожному поміняти логотип - «картинку» контори.

Далі, створюємо нову групову політику для кожного скрипта і ставимо даний скрипт в автозапуск при вході в систему. Отримуємо 5 групових політик, кожна для окремої контори, зі своїм шляхом для малюнка (логотипу).

Сам створений скрипт ви можете перевірить на своєму ПК, запускаючи його перед запуском Outlook.

Якщо ви досягли потрібного розташування, кольору шрифту і логотипу, робіть групові політики.

а вже самі групові політики по конторам, визначимо саме для наших груп.

Створюємо груп по атрибутам, тут ще один камінь. Якщо ми створюємо групу, а вона у нас динамічна, тобто співробітник може бути переведений з однієї контори в іншу? Я зробив дві групи. Одна група outl-контора1, до цієї групи прив'язана групова політика.

Друга група, podpis контора-1, в неї я додаю користувачів по атрибуту «кімната», щоранку, за звичайним завданням. Що я роблю завданнями щоранку і для чого? Видаляю раніше створені групи користувачів: podpisконтора1, podpis контора2, podpis контора3, podpis контора4, podpis контора5. Створюю групу користувачів: podpisконтора1, podpis контора2, podpis контора3, podpis контора4, podpis контора5. Додаю в ці групи користувачів по атрибуту «кімната», відповідно, якщо атрибут 1, то в групу podpisконтора1 і т.д. Додаю групи podpisконтора1 в групу outl-контора1, podpisконтора2 в групу outl-контора2 і т.д.

Що виходить в результаті: групам не треба постійно привласнювати групові політики, користувачі постійно оновлюються в групах при зміні кімнати, працює автоматично.

Для створення Автоподпісь в Outlook у користувачів домену буде потрібно додавання завдань windows. Так як команди в наших завданнях на рівні роботи сервера, їх необхідно зберігати в doc кодуванні.

Завдання на видалення груп:

dsrm «сп = podpis контора1, OU = mail podpis, OU = users, dc = Domen, dc = local» -noprompt
dsrm «сп = podpis контора2, OU = mail podpis, OU = users, dc = Domen, dc = local» -noprompt
dsrm «сп = podpis контора3, OU = mail podpis, OU = users, dc = Domen, dc = local» -noprompt
dsrm «сп = podpis контора4, OU = mail podpis, OU = users, dc = Domen, dc = local« -noprompt
dsrm »сп = podpis контора5, OU = mail podpis, OU = users, dc = Domen, dc = local« -noprompt

Завдання на створення груп:

dsadd group «сп = podpis контора1, OU = mail podpis, OU = users, dc = Domen, dc = local»
dsadd group «сп = podpis контора2, OU = mail podpis, OU = users, dc = Domen, dc = local»
dsadd group «сп = podpis контора3, OU = mail podpis, OU = users, dc = Domen, dc = local»
dsadd group «сп = podpis контора4, OU = mail podpis, OU = users, dc = Domen, dc = local»
dsadd group «сп = podpis контора5, OU = mail podpis, OU = users, dc = Domen, dc = local»

Завдання на додавання користувачів по атрибути «кімната»

dsquery * -filter «(physicalDeliveryOfficeName = 1)» | dsmod group «сп = podpis контора1, OU = mail podpis, OU = users, dc = Domen, dc = local» -chmbr
dsquery * -filter «(physicalDeliveryOfficeName = 2)» | dsmod group «сп = podpis контора2, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr
dsquery * -filter «(physicalDeliveryOfficeName = 3)» | dsmod group «сп = podpis контора3, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr
dsquery * -filter «(physicalDeliveryOfficeName = 4)» | dsmod group «сп = podpis контора4, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr
dsquery * -filter «(physicalDeliveryOfficeName = 5)» | dsmod group «сп = podpis контора5, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr

Тобто. всі користувачі домену, які мають атрибут «кімната» 1, будуть додані до групи podpis контора1.

Залишається додати групи в групи.

dsmod group «cn = outl-контора1, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr «сп = podpis контора1, OU = mail podpis, OU = users, dc = Domen, dc = local »
dsmod group «cn = outl-контора2, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr «сп = podpis контора2, OU = mail podpis, OU = users, dc = Domen, dc = local »
dsmod group «cn = outl-контора4, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr «сп = podpis контора3, OU = mail podpis, OU = users, dc = Domen, dc = local »
dsmod group «cn = outl-контора5, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr «сп = podpis контора4, OU = mail podpis, OU = users, dc = Domen, dc = local »
dsmod group «cn = outl-контора6, OU = mail podpis, OU = users, dc = Domen, dc = local» -addmbr «сп = podpis контора5, OU = mail podpis, OU = users, dc = Domen, dc = local

Для здійснення цього завдання по додаванню Автоподпісь в Outlook у користувачів домену, потрібно:

Атрибут «кімната». на підставі його відібрали користувачів до відповідних груп, створили скрипти, які додають підпис з різними логотипами, призначили їм окремі групові політики, самі групові політики призначили на групи, і в підсумку зв'язали групи групових політик і групи відсортованих нами користувачів.

Зроблена таким способом Автоподпісь в Outlook у користувачів домену відмінно працює на всіх версія Outlook.

Синхронізація користувачів WordPress c Active directory
Додати фотографію користувачеві Active directory
Віддалений помічник Windows в домені
Калькулятор позначень SMD конденсаторів