Outlook-Signatur automatisch erstellen mit Attribute aus Active Directory
Innerhalb eines Unternehmens gehört es zu den Aufgaben von Systemadministratoren die Signaturen für das Corporate Identity zu verwalten. Die meisten Unternehmen möchten das gesamte Erscheinungsbild der Signatur gestalten.
Outlook bietet hierfür keine direkten Möglichkeiten an, da die Email Signatur in Outlook eine clientseitige Anwendung ist und Benutzer somit ihre eigene Signatur erstellen und ändern können. Es gibt jedoch die Möglichkeit den Zugriff mithilfe von Gruppenrichtlinien auf die Signatur Optionen zu verhindern. Dies behebt jedoch nicht das Problem, dass zunächst eine Standardsignatur erstellt und generiert wird, und für die Benutzer bereitgestellt wird.
Dort wo eine zentralisierte Lösung auf Outlook Client-Ebene bevorzugt wird, und man auf die Exchange Transport Rules verzichten möchte, oder kein Exchange Server in verwendung ist, um die Signaturen zu generieren und über Login-Script oder GPOs zu verteilen, kann dieser Beitrag ein Ansatz für zentralisierte Lösungen geben.
VBScript Outlook Signatur deployment
Das folgende VBScript erstellt beim Client eine Outlook Signatur, dabei werden Anwenderdaten (Attribute) aus Active Directory ausgelesen und anschliessend in die Signatur eingefügt, danach fügt das Skript die Signatur in neuen E-Mails und Antworten an.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") GetUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & GetUser) GetName = objUser.FullName GetTitle = objUser.Title GetDepartment = objUser.Department GetCompany = objUser.Company GetPhone = objUser.TelephoneNumber GetOtherPhone = objUser.otherTelephone GetMobile = objUser.Mobile GetEmail = objUser.EmailAddress GetFax = objUser.FaxNumber GetStreet = objUser.StreetAddress GetZip = objUser.PostalCode GetCity = objUser.l GetState = objUser.State GetHomepage = objUser.Homepage GetNotes = objUser.Info Appendix = "Bei Fragen stehen wir Ihnen gerne zur Verf" & Chr(252) & "gung." Regards = "Freundliche Gr" & Chr(252) & "sse" 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 ' BOF signature objSelection.Font.Name = "Calibri" objSelection.Font.Size = 11 objSelection.TypeText Appendix objSelection.TypeParagraph() objSelection.TypeParagraph() objSelection.TypeText Regards objSelection.TypeParagraph() objSelection.TypeText GetName objSelection.TypeParagraph() objSelection.TypeText GetTitle & " " & GetDepartment objSelection.TypeParagraph() objSelection.TypeText "Mobile " & GetMobile objSelection.TypeParagraph() objSelection.Font.Name = "Arial Black" objSelection.Font.Size = 13 objSelection.Font.Bold = True objSelection.Font.Color = RGB(22,46,106) objSelection.TypeText GetCompany objSelection.Font.Name = "Calibri" objSelection.Font.Size = 11 objSelection.Font.Bold = False objSelection.Font.Color = RGB(0,0,0) objSelection.TypeParagraph() objSelection.TypeText GetStreet & " " & GetZip & " " & GetCity & " " & GetNotes objSelection.TypeParagraph() objSelection.TypeText "Telefon " & GetPhone & " Fax " & GetFax & " " & GetEmail & " " & GetHomepage ' EOF signature Set objSelection = objDoc.Range() objSignatureEntries.Add "MySignature", objSelection objSignatureObject.NewMessageSignature = "MySignature" objSignatureObject.ReplyMessageSignature = "MySignature" objDoc.Saved = True objWord.Quit |
Die Code Zeilen kopiert man in einen Editor, zum Beispiel Notepad und speichert diese mit der Dateierweiterung-.vbs.
Anpassungen an der Signatur können im Skipt zwischen BOF signature und EOF signature vorgenommen werden.
Das Skript nun ausführen an einer Workstation mit Outlook, es findet am Bildschirm keine Ausgabe statt, nach der Ausführung kann Outlook geöffnet werden, und damit eine neue E-Mail erstellen, die Signatur erscheint nun in der Nachricht, welche der nachstehenden Abbildung ähnlich sieht.
Outlook Signaturen Client Verteilung
Über GPOs kann man Scripts für das Login konfigurieren. Die Einstellungen für Anmelde- und Abmelde-Scripts findet man unter Benutzerkonfiguration => Richtlinien => Windows-Einstellungen => Skripts. Der Speicherort für Scripts, die man über GPOs zuweist, befindet sich unter dem Pfad \\FQDN\SYSVOL\FQDN\policies\user\scripts\logon und logoff.
