{"id":478,"date":"2009-12-06T12:27:09","date_gmt":"2009-12-06T04:27:09","guid":{"rendered":"http:\/\/www.jhouseconsulting.com\/?p=478"},"modified":"2009-12-06T12:27:09","modified_gmt":"2009-12-06T04:27:09","slug":"how-to-prevent-certain-ms-outlook-dialog-boxes-from-showing","status":"publish","type":"post","link":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/2009\/12\/06\/how-to-prevent-certain-ms-outlook-dialog-boxes-from-showing-478","title":{"rendered":"How to prevent certain MS Outlook dialog boxes from showing?"},"content":{"rendered":"

This script will manage the “PONT_STRING” registry value to control the “Don’t Show Dialog” Setting for some of the Outlook dialog boxes that don’t have a simple way of preventing them from showing via a Group Policy Setting, etc. Under Outlook 2007 there are two particular dialog boxes that may prompt the user when a new profile is created.<\/p>\n

\"\"<\/a><\/p>\n

\"\"<\/a><\/p>\n

This script will prevent them from showing.<\/p>\n

These options are held under the following key…<\/p>\n

HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\xx.0\\Outlook\\Options\\General<\/p>\n

…where xx is the Office version number.<\/p>\n

Enjoy!<\/p>\n


\n‘ This script will manage the “PONT_STRING” registry value to control the “Don’t Show
\n‘ Dialog” Setting” for some of the Outlook dialog boxes that don’t have a simple way
\n‘ of preventing them from showing via a Group Policy Setting, etc.
\n‘
\n‘ These options are held under the following key…
\n‘ HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\xx.0\\Outlook\\Options\\General
\n‘ where xx is the Office version number.
\n‘
\n‘ Note that the “PONT_STRING” string must end with a comma.
\n‘
\n‘ Simply set all Office versions you are using in the arrVersions array and the
\n‘ dialogs you want to prevent from displaying in the arrDialogs array.
\n‘
\n‘ Release 1.0
\n‘ Written by Jeremy@jhouseconsulting.com on 6th December 2009.
\n‘
\nOption Explicit<\/p>\n

Dim arrVersions, arrDialogs, objShell, Version, strKeyRoot, strKeyPath
\nDim Dialog, strValueData, arrValueData, BlnReturn
\n‘
\narrVersions = Array(“12.0”)
\n‘ Note that…
\n‘ – Office 2000 = 9.0
\n‘ – Office XP\/2002 = 10.0
\n‘ – Office 2003 = 11.0
\n‘ – Office 2007 = 12.0
\n‘
\narrDialogs = Array(“60″,”48”)
\n‘ 60 – “Windows Desktop Search is not currently installed or not up to date. Outlook
\n‘ will not be able to provide fast search results when using the new Instant
\n‘ Search functionality unless this Windows component is installed. Please contact
\n‘ your system administrator.”
\n‘ 48 – “Outlook, Windows Internet Explorer, and other applications save lists of RSS
\n‘ Feeds that you subscribe to. The Common Feed List in Microsoft Windows
\n‘ maintains one synchronized list of RSS Feeds. Do you want your RSS Feeds in
\n‘ Outlook to be synchronized with the Common Feed List?”
\n‘
\nSet objShell = WScript.CreateObject(“WScript.Shell”)<\/p>\n

strKeyRoot = “HKCU\\”
\nstrKeyPath = “Software\\Microsoft\\Office\\”<\/p>\n

If IsArray(arrVersions) AND IsArray(arrDialogs) Then
\n For Each Version in arrVersions
\n strKeyPath = strKeyPath & Version & “\\Outlook\\Options\\General\\”
\n If RegValueExists(strKeyRoot & strKeyPath & “PONT_STRING”) Then
\n strValueData = objShell.RegRead(strKeyRoot & strKeyPath & “PONT_STRING”)
\n arrValueData = Split(strValueData,”,”)
\n For Each Dialog in arrDialogs
\n BlnReturn = InArray(Dialog,arrValueData)
\n If NOT BlnReturn Then
\n strValueData = strValueData & Dialog & “,”
\n End If
\n Next
\n Else
\n For Each Dialog in arrDialogs
\n strValueData = strValueData & Dialog & “,”
\n Next
\n End If
\n objShell.RegWrite strKeyRoot & strKeyPath & “PONT_STRING”, strValueData
\n Next
\nEnd If<\/p>\n

Set objShell = Nothing<\/p>\n

wscript.quit(0)<\/p>\n

Function RegValueExists(sRegValue)
\n‘ Returns True or False based of the existence of a registry value.
\n Dim oShell, RegReadReturn
\n Set oShell = CreateObject(“WScript.Shell”)
\n RegValueExists = True ‘ init value
\n On Error Resume Next
\n RegReadReturn = oShell.RegRead(sRegValue)
\n If Err.Number <> 0 Then
\n RegValueExists = False
\n End if
\n On Error Goto 0
\n Set oShell = Nothing
\nEnd Function <\/p>\n

Function InArray(item,myarray)
\n Dim i
\n For i=0 To UBound(myarray) Step 1
\n If lcase(item)=lcase(myarray(i)) Then
\n InArray=True
\n Exit Function
\n End If
\n Next
\n InArray=False
\nEnd Function
\n<\/dirtycode><\/p>\n","protected":false},"excerpt":{"rendered":"

This script will manage the “PONT_STRING” registry value to control the “Don’t Show Dialog” Setting for some of the Outlook dialog boxes that don’t have a simple way of preventing them from showing via a Group Policy Setting, etc. Under Outlook 2007 there are two particular dialog boxes that may prompt the user when a … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[5],"tags":[178,177,179],"class_list":["post-478","post","type-post","status-publish","format-standard","hentry","category-scripting","tag-dialog","tag-outlook","tag-pont_string"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t