Outlook 2013: Message Preview - Einstellungen verteilen
Hallo Leute,
seit dem letztem Outlook Update KB3085579 ist (wieder) eine Funktion verfügbar, um die Schriftart/Farbe der Nachrichtenvorschau zu ändern (Info z.B. hier).
Das Problem ist, das Outlook nach dem Update standardmäßig die Farbe auf blau ändert.
Nachdem ich mittlerweile viele Beschwerden der User über dieses blau erhalten habe, möchte ich die Farbe wieder auf das "alte" Grau umstellen.
Mein Problem ist aber:
Weiß wer, wo diese Einstellung gespeichert wird?
Ich habe nämlich wenig Lust, die Farbe jetzt bei jedem User einzeln umzustellen.
Beste Grüße
Patrick
seit dem letztem Outlook Update KB3085579 ist (wieder) eine Funktion verfügbar, um die Schriftart/Farbe der Nachrichtenvorschau zu ändern (Info z.B. hier).
Das Problem ist, das Outlook nach dem Update standardmäßig die Farbe auf blau ändert.
Nachdem ich mittlerweile viele Beschwerden der User über dieses blau erhalten habe, möchte ich die Farbe wieder auf das "alte" Grau umstellen.
Mein Problem ist aber:
- In den Office 2013 Administrative Template ist diese Einstellung noch nicht verfügbar (ADMX hat die Version 15.0.4727.1000 - nach Installation des KB3085579 hat man die Version 15.0.4763.1000)
- Diese Einstellung wird auch nicht in der registry gespeichert. Zumindest findet regshot keine Änderungen in der registry (wenn ich die Schriftfarbe ändere).
Weiß wer, wo diese Einstellung gespeichert wird?
Ich habe nämlich wenig Lust, die Farbe jetzt bei jedem User einzeln umzustellen.
Beste Grüße
Patrick
Please also mark the comments that contributed to the solution of the article
Content-ID: 285744
Url: https://administrator.de/contentid/285744
Printed on: October 11, 2024 at 15:10 o'clock
11 Comments
Latest comment
Hallo Patrick
Das sieht man wenn man eine Mailbox mit MFCMapi öffnet
Hier sieht man ein Beispiel solch einer Ansicht und deren XML-Config
http://www.msoutlook.info/question/51
http://www.outlook-tips.net/how-to/copy-outlook-custom-views/
Da haben die bestimmt den Color-Index geändert. Könnte man vielleicht über ein Makro lösen.
Grüße Uwe
- * Nachtrag -
Per VBS ließe sich das bspw. so lösen (Natürlich kann man das auch mit andern Programmiersprachen umsetzen (Powershell / AutoIT) das wäre kein Problem)
Weiß wer, wo diese Einstellung gespeichert wird?
Die wird in Outlook in den Ansichten gespeichert. Und das ganze im PST-File oder in der Mailbox auf dem Exchange.Das sieht man wenn man eine Mailbox mit MFCMapi öffnet
Hier sieht man ein Beispiel solch einer Ansicht und deren XML-Config
http://www.msoutlook.info/question/51
http://www.outlook-tips.net/how-to/copy-outlook-custom-views/
Da haben die bestimmt den Color-Index geändert. Könnte man vielleicht über ein Makro lösen.
Grüße Uwe
- * Nachtrag -
Per VBS ließe sich das bspw. so lösen (Natürlich kann man das auch mit andern Programmiersprachen umsetzen (Powershell / AutoIT) das wäre kein Problem)
On Error Resume Next
Set objOL = CreateObject("Outlook.Application")
Set xml = CreateObject("Msxml2.DOMDocument.6.0")
Set v = objOL.GetNamespace("MAPI").GetDefaultFolder(6).CurrentView
xml.LoadXML (v.xml)
Set node = xml.SelectSingleNode("/view/previewstyle")
If Not node Is Nothing Then
node.Text = "color:gray"
Else
Set el = xml.createElement("previewstyle")
el.text = "color:gray"
xml.documentElement.appendChild(el)
End If
v.xml = xml.xml
v.Save
MsgBox "Farbe der Nachrichtenvorschau in der Ansicht welche im Posteingang eingestellt ist auf Grau geändert",vbInformation
Set xml = Nothing
Set objOL = Nothing
Hallo, ich habe bei uns das gleiche Problem, nur ist es bei mir so, dass euer Skript nur die Message Preview Farbe im Posteingang ändert aber alle anderen Unterordner behalten das nervige blau.
Habt ihr dafür evtl. auch noch eine Lösung?
Hallo Foertschy,Habt ihr dafür evtl. auch noch eine Lösung?
das war so beabsichtigt, es könnte ja sein das die User Ihre eigenen Ansichten definiert haben, und die einfach alle abzuändern hätte ich halt als "Bevormundung" verstanden.
Falls das doch benötigt wird, das hier ändert bei allen anderen Ansichten die Farbe der Nachrichtenvorschau auf Grau.
On Error Resume Next
Const HKCU = &H80000001
'Check if an outlook 2013 profile exists
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.EnumKey HKCU, "Software\Microsoft\Office\15.0\Outlook\Profiles", arrSubKeys
if IsNull(arrSubKeys) then wscript.Quit 'quit if no profile exists
'Create additional objects
Set objOL = CreateObject("Outlook.Application")
Set XML = CreateObject("Msxml2.DOMDocument.6.0")
XML.async = false
'get views object
Set ol_views = objOL.GetNamespace("MAPI").GetDefaultFolder(6).Views
'for each view change preview-style to gray
For Each v In ol_views
XML.LoadXML (v.XML)
Set Node = XML.SelectSingleNode("/view/previewstyle")
If Not Node Is Nothing Then
Node.Text = "color:gray"
Else
Set el = XML.createElement("previewstyle")
el.Text = "color:gray"
XML.DocumentElement.appendChild (el)
End If
v.XML = XML.XML
v.Save
Next
'Cleanup
Set XML = Nothing
Set objOL = Nothing
Falls der Beitrag gefällt, seid so nett und unterstützt mich durch eine kleine Spende / If you like my contribution please support me and donate
Hallo Uwe,
wir haben auch das Problem, das wir 600 Usern erklären müssten, wie Sie die Farben ändern können.
Allerdings ist Deine letzte Lösung nicht auf alle Unterordner des Postfachs anzuwenden sondern auf die verschiedenen Ansichten
"Kompakt, Einzeln und Vorschau". Hättest Du auch eine Lösung für alle Ordner und Unterordner innerhalb des eigenen
Postfachs (so wie es Foertschy angefragt hatte)?
Gruß,
Olaf
wir haben auch das Problem, das wir 600 Usern erklären müssten, wie Sie die Farben ändern können.
Allerdings ist Deine letzte Lösung nicht auf alle Unterordner des Postfachs anzuwenden sondern auf die verschiedenen Ansichten
"Kompakt, Einzeln und Vorschau". Hättest Du auch eine Lösung für alle Ordner und Unterordner innerhalb des eigenen
Postfachs (so wie es Foertschy angefragt hatte)?
Gruß,
Olaf
Hallo Olaf,
Dazu muss die Ordnerstruktur rekursiv durchlaufen werden und die aktuelle Ansicht jedes einzelnen Ordners geändert werden.
Dies kannst du mit folgendem Skript erreichen. Es nimmt den Default-Store von Outlook und durchläuft alle Ordner (nur die mit DefaultItemType = MailItem, also keine Kontakteordner etc. die die Einstellung nicht haben) rekursiv und ändert die Ansicht entsprechend.
Falls der Beitrag gefällt, seid so nett und unterstützt mich durch eine kleine Spende / If you like my contribution please support me and donate^^
Grüße Uwe
Zitat von @tbw-01:
wir haben auch das Problem, das wir 600 Usern erklären müssten, wie Sie die Farben ändern können.
Allerdings ist Deine letzte Lösung nicht auf alle Unterordner des Postfachs anzuwenden sondern auf die verschiedenen Ansichten
"Kompakt, Einzeln und Vorschau".
Genau diese Ansichten werden verändert, d.h. wenn diese in anderen Ordnern verwendet werden ist dort dann aber auch dort die Änderung ersichtlich.wir haben auch das Problem, das wir 600 Usern erklären müssten, wie Sie die Farben ändern können.
Allerdings ist Deine letzte Lösung nicht auf alle Unterordner des Postfachs anzuwenden sondern auf die verschiedenen Ansichten
"Kompakt, Einzeln und Vorschau".
Hättest Du auch eine Lösung für alle Ordner und Unterordner innerhalb des eigenen
Postfachs (so wie es Foertschy angefragt hatte)?
Wenn die User Ihre Ansichten nicht unter einem Namen speichern, hast du recht, dann kann jeder Ordner eine eigene Ansicht ohne Namen haben.Postfachs (so wie es Foertschy angefragt hatte)?
Dazu muss die Ordnerstruktur rekursiv durchlaufen werden und die aktuelle Ansicht jedes einzelnen Ordners geändert werden.
Dies kannst du mit folgendem Skript erreichen. Es nimmt den Default-Store von Outlook und durchläuft alle Ordner (nur die mit DefaultItemType = MailItem, also keine Kontakteordner etc. die die Einstellung nicht haben) rekursiv und ändert die Ansicht entsprechend.
On Error Resume Next
Const HKCU = &H80000001
Set objShell = CreateObject("Wscript.Shell")
'Check if profile exists
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.EnumKey HKCU, "Software\Microsoft\Office\15.0\Outlook\Profiles", arrSubKeys
if IsNull(arrSubKeys) then wscript.Quit 'quit if no profile exists
'Create additional objects
Set objOL = CreateObject("Outlook.Application")
Set XML = CreateObject("Msxml2.DOMDocument.6.0")
xml.async = False
'Set Start folder to root of default store
Set folderStart = objOL.Session.DefaultStore.GetRootFolder
'start parsing folderstructure
parseFolder folderStart
'cleanup
Set XML = Nothing
Set objOL = Nothing
'sub to parse folder structure recursive
Sub parseFolder(fldr)
If fldr.DefaultItemType = 0 Then
Set v = fldr.CurrentView
XML.LoadXML (v.XML)
Set Node = XML.SelectSingleNode("/view/previewstyle")
If Not Node Is Nothing Then
Node.Text = "color:gray"
Else
Set el = XML.createElement("previewstyle")
el.Text = "color:gray"
XML.DocumentElement.appendChild (el)
End If
v.XML = XML.XML
v.Save
End If
For Each subfolder In fldr.Folders
parseFolder subfolder
Next
End Sub
Grüße Uwe
@Foertschy "Danke" auch für NULL Rückmeldung ...