oh2204
Goto Top

Signaturverwaltung Exchange 2010

Hi,

ich bin auf der Suche nach einer professionellen Signatur- bzw. Disclaimerverwaltung für Exchange 2010 und Outlook 2010.
Ich habe auch schon einige gesehen, möchte aber hier noch einmal Fragen, welche Ihr einsetzt und für gut oder schlecht befinden könnt.

Mir gefällt das Disclaimer Tool von Exclaimer ganz gut. Was haltet Ihr davon?


VIele Grüße

Content-ID: 145870

Url: https://administrator.de/contentid/145870

Ausgedruckt am: 22.11.2024 um 11:11 Uhr

sniffnase
sniffnase 29.06.2010 um 11:56:05 Uhr
Goto Top
Ich erstelle die Signaturen mittels VBScript.
Funktioniert super wenn alle Daten Ordentlich in LDAP eingetragen sind face-smile
Das script liest eben alle daten aus AD aus, also name, nachname, adresse, tel, mobil, fax, etc..... und erstellt aus diesen variablen direkt die Outlook signatur.

Kostet nix und ist sehr einfach zum integrieren.
oh2204
oh2204 29.06.2010 um 12:32:38 Uhr
Goto Top
Das Problem bei uns ist, das unsere Signatur Bilder und Grafiken enthalten soll.
Ich versuche es zwar den Verantworlichen auszureden aber ich glaube da ist nichts zu machen face-wink
godlie
godlie 29.06.2010 um 12:50:50 Uhr
Goto Top
Nunja lässt sich alles mit VBScript und Word realisieren, den Disclaimer ( der ja wahrscheinlich für alle gleich ist ) kannst auch mit ner Regel im Exchange anfügen.
sniffnase
sniffnase 29.06.2010 um 13:05:05 Uhr
Goto Top
Zitat von @oh2204:
Das Problem bei uns ist, das unsere Signatur Bilder und Grafiken enthalten soll.
Ich versuche es zwar den Verantworlichen auszureden aber ich glaube da ist nichts zu machen face-wink

genau deshalb vbscript

zB:

Set objSysInfo = CreateObject("ADSystemInfo")  
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)  
strUsername = objUser.sAMAccountName
strName = objUser.FullName
strFirstname = objUser.Firstname
strLastname = objUser.Lastname
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strMobil = objUser.mobile
strPLZ = objUser.postalcode
strLand = objUser.l
strStreet = objUser.streetAddress
strFAX = objUser.facsimileTelephoneNumber
strDepartment = objUser.department
strDesc = objUser.description
strGroup = LCase(Join(objUser.MemberOf))
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


'Ab hier Signatur bearbeiten'  

'schrift einrichten:  
objSelection.Font.Name = "Arial"   
objSelection.Font.Size = 10 
'Text  
objselection.typetext " Das ist meine signatur. Mein Name ist" & strFirstname & " " & strLastname  
'Zeilenabstand  
objSelection.Typetext(chr(11))
'Bild einfügen  
objselection.InlineShapes.AddPicture("\\pfad\bild.gif")  

'Speichern als Signatur und als default einrichten.  
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection  
objSignatureObject.NewMessageSignature = "AD Signature"  
objSignatureObject.ReplyMessageSignature = "AD Signature"  
objDoc.Saved = True
objWord.Quit

Als .vbs speichern und ausführen.
manuel-r
manuel-r 29.06.2010 um 13:45:58 Uhr
Goto Top
Aus Neugier hab ich das mal angetestet mit dem Ergebnis, dass es zumindest auf Anhieb mal nicht funktioniert bei mir.
Ich bekomme vom WSH den Fehler Zeile 42, Zeichen1, Typen unverträglich: "objSignatureEntries.Add"
sniffnase
sniffnase 29.06.2010 um 13:51:53 Uhr
Goto Top
habs noch mal bearbeitet
zeile 41: Set objSelection = objDoc.Range()
crashzero2000
crashzero2000 29.06.2010 um 13:56:14 Uhr
Goto Top
Da kann ich den OLX Disclaimer von Gangl empfehlen :

http://www.gangl.de/default.asp?redirect=Produkte/produkte.asp%3Fprod=O ...
manuel-r
manuel-r 29.06.2010 um 13:57:13 Uhr
Goto Top
Ah ... jetzt ... ja. Das erwartete Ergebnis stellt sich ein. Danke.
sniffnase
sniffnase 29.06.2010 um 14:16:18 Uhr
Goto Top
toll, der macht genau das gleiche - nur für € 900,-- ^^
oh2204
oh2204 01.07.2010 um 08:39:05 Uhr
Goto Top
Das VB-Script einfach ins Logon-Script mit einbinden und starten lassen?
powermax
powermax 07.12.2010 um 12:12:00 Uhr
Goto Top
hallo,

dieser Script ist wirklich eine super Sache. Nur mit einem kleinen Schönheitsfehler, Alle ausgelesenen Daten erscheinen in EINER Zeile, es sieht leider nicht so doll aus, wie bekommt man diese unter einander? Name, Vorname, neue Zeile, Telefonnummer, neue Zeile ...,. Ausserdem wie kann ich dort einen freien Text eingeben mit Zeilenumbrüchen(für Events etc...)? Kenne mich leider mit VB-Scripting nicht aus, habe dies und das probiert aber es kommt immer irgendein Fehler.
Wäre super nett wenn jemand diesen Script um diese Sache ergänzen könnte. Dann wäre es einfach Perfekt!
Danke

powermax
godlie
godlie 07.12.2010 um 12:55:17 Uhr
Goto Top
Hallo,
das ist nicht so schwer und zwar:

objselection.typetext "Mein Name ist " & strFirstname & " " & strLastname   
'Zeilenabstand   
objSelection.Typetext(chr(11)) 
'Telefon  
objselection.typetext "Meine Nummer ist " & strPhone   
'Zeilenabstand   
objSelection.Typetext(chr(11)) 
......
powermax
powermax 07.12.2010 um 14:20:15 Uhr
Goto Top
danke godlie, werde morgen austesten...
powermax
powermax 08.12.2010 um 11:20:19 Uhr
Goto Top
Zitat von @godlie:
Hallo,
das ist nicht so schwer und zwar:

> objselection.typetext "Mein Name ist " & strFirstname & " " & strLastname   
> 'Zeilenabstand   
> objSelection.Typetext(chr(11)) 
> 'Telefon  
> objselection.typetext "Meine Nummer ist " & strPhone   
> 'Zeilenabstand   
> objSelection.Typetext(chr(11)) 
> ......
> 

fantastisch, es hat alles funktioniert, danke!!!
powermax
powermax 09.12.2010 um 10:51:32 Uhr
Goto Top
Moin,

habe den Script als Anmeldescript in einer 2003 Domäne. Es kommt leider eine Fehlermeldung "Tüpen unvertäglich: 'Join'" und zwar nur bei Domänenusern aber nicht beim Admin.
Was ist das für eine Fehlermeldung und wie kann man diese beseitigen? Hoffe Ihr könnt weiterhelfen.
Danke


powermax
godlie
godlie 09.12.2010 um 11:34:41 Uhr
Goto Top
hm
kann es sein das deine Benutzer in keiner Gruppe sind?

edit:

Tausch mal Zeile 19
strGroup = LCase(Join(objUser.MemberOf))

durch
If IsArray(objUser.MemberOf) Then
        strGroup = LCase(Join(objUser.MemberOf))
Else
        strGroup = lcase(objUser.MemberOf)
End If

aus
powermax
powermax 09.12.2010 um 12:32:56 Uhr
Goto Top
Hi godlie,

Danke für den Tip. Werde mal austesten.
die User sind in der Gruppe "Mitarbeiter".
powermax
powermax 09.12.2010 um 13:07:46 Uhr
Goto Top
Super, es funkt, Daaaaankee!!!!

kannst du mir bitte erklären warum der Fehler aufgetaucht war? Nur so zum Verständniss. Denn die user sind ja in einer Gruppe.

Es sieht bei uns so aus: siehe Screenie


http://img441.imageshack.us/img441/6046/48081165.jpg
godlie
godlie 09.12.2010 um 13:14:28 Uhr
Goto Top
Der Fehler ist aufgetreten, da deine Benutzer nur in einer Gruppe sind, somit kommt da kein Array zurück und der Join meckert natürlich.
Bei mir sind die Benutzer z.b. in der Gruppe SBSUsers --> Firmenname --> Abteilung .....
powermax
powermax 09.12.2010 um 13:27:05 Uhr
Goto Top
danke, aber was ist ein Array und was ist Join, was machen die Dinger genau? Wie sollte ich meine User organisieren damit ich keine Fehler bekomme? Ich dachte wenn ich die User unter Domäne => Gruppe packe ist doch auch okay.

Sorry wenn ich zu viele Fragen stelle, ich möchte es nicht nur irgendwie zum laufen bekommen sondern auch was dabei lernen.
mr-neo
mr-neo 25.02.2011 um 12:27:22 Uhr
Goto Top
Ist dieses Skript an ein Microsoft Office gebunden?
Wenn ich z.b. Set objWord = CreateObject("Word.Application") lese, ist damit Microsoft Word gemeint?

Wir haben ein Exchange 2007 mit Outlook 2010 im Einsatz, arbeiten allerdings mit OpenOffice. Habe bisher erfolgslos nach einer Signatur basierend auf dem Active Directory gesucht.
godlie
godlie 25.02.2011 um 18:35:26 Uhr
Goto Top
Da wirst du nicht viel glück haben schätze ich,
da die Signatur im Outlook ja auch auf Word aufsetzt.
speedyfurious
speedyfurious 02.05.2011 um 10:55:55 Uhr
Goto Top
Hallo Leute,

erstmal danke für das tolle Skript funktioniert bei mir super, bis auf eine Kleinigkeit.

Ich hab in der Signatur die Homepage und Emailadresse als Hyperlink hinterlegt und dieser will sich einfach nicht formatieren lassen.
Der Hyperlink wird immer mit der Outlook Standard Schrift formatiert und nicht mit der im Skript vorgegebenen

Folgende Varianten habe ich versucht:

objSelection.Font.Bold = True
objselection.typetext "I "  
objSelection.Font.Bold = False
objSelection.Font.Name = "Arial Narrow"  
objSelection.Font.Size = "8,5"  
objSelection.Font.Color = RGB(0,63,114)
Set objLink = objSelection.Hyperlinks.Add(objSelection.Range,"http://www.webpage.com",,"Our Webpage", "www.webpage.com")  

sowie mit objSelection

objSelection.Font.Bold = True
objselection.typetext "E "  
objSelection.Font.Bold = False
objSelection.Font.Name = "Arial Narrow"  
objSelection.Font.Size = "8,5"  
objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , , strEmail  

Ich habe auch versucht die Formatierung nach dem Hyperlink zu setzen, hat allerdings auch nicht funktioniert.

Hab schon ziemlich viel gesucht, allerdings noch keine passenden Lösung gefunden.

Vielleicht habt ihr eine Idee.

Danke
Philipp