Într-un mediu corporatist, administratorul de sistem sau departamentul IT rareori are sarcina de a face un singur și semnătura într-un stil corporativ, atunci când comunică angajații utilizând Microsoft Outlook. În această situație, este logic să procedăm după cum urmează:
1. Scrieți textul mesajului utilizând variabilele semnătură preluate din AD (Active Directory),
2. Scrieți un mic script folosind VBS care compilează fișierul de semnătură și îl trimite la folderele utilizatorilor,
3. Folosind GPO (Group Policy), rulați acest script de la utilizatorii de domenii.
Deci, acum fiecare articol va fi luat în considerare în detaliu.
Numărul articolului 1. Definiți câmpurile pentru adăugarea de valori la o singură semnătură Outlook.
Din câmpurile de proprietăți ale obiectului Active Directory, puteți lua parametri precum:
1. objUser.FullName - iese numele,
2. objUser.Title - afișează câmpul "Position",
3. objUser.Company - denumirea companiei, câmpul "Organization",
7. objuser.wWWHomePage - responsabil pentru afișarea site-ului organizației.
După determinarea parametrilor, veți obține ceva de genul:
Elementul nr. 2 pentru un singur șablon de semnătură într-o scrisoare Outlook
Aici voi da textul scenariului care mi-a fost testat personal. Script-ul poate fi schimbat, este posibil Adauga logo-ul meu al companiei, alte linii, aspectul, culoarea, și altele. Eu aduc doar ceea ce este folosit de mine cu adevărat.
La reluarea erorii următoare
Setați objSysInfo = CreateObject ("ADSystemInfo")
strUser = objSysInfo.UserName
Setați objUser = GetObject ("LDAP: //" strUser)
strZpov = "Cu sinceritate"
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = societatea objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.ipPhone
strEmail = objuser.mail
Setați objWord = CreateObject ("Word.Application")
Setați objDoc = objWord.Documents.Add ()
Setați objSelection = objWord.Selection
Setați objEmailOptions = objWord.EmailOptions
Setați objSignatureObject = objEmailOptions.EmailSignature
Setați 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)
obiecte
objSelection.TypeText CHR (11)
Tranzactionare
objSelection.TypeText CHR (11)
objSelection.TypeText "Telefon". strPhone "Db." 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
Setați objSelection = objDoc.Range ()
objSignatureEntries.Add "Semnătura AD", objSelection
objSignatureObject.NewMessageSignature = "Semnătura AD"
objSignatureObject.ReplyMessageSignature = "Semnătura AD"
objDoc.Saved = Adevărat
Numărul articolului 3. Adăugăm un script al unui singur șablon de semnătură într-o scrisoare Outlook către GPO.
Toată data viitoare când vă conectați la sistem, fișierele de semnături sunt generate de script folosind politicile și vor înlocui toate semnăturile de la clienți.
Trimiteți-le prietenilor: