StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POUpdating the default font in outlook 2002
text
Body
copied!<p>I have been asked to create a vbscript that will set the default font for users in Outlook 2002. I have got some code that alters three registry keys and is supposed to update the font details. The keys are being updated in the registry but have no effect on Outlook, I have restarted outlook and rebooted the machine and the font remains unchanged. The code I am using is below, any help would be gratfully received</p> <pre><code>Dim strValue Dim strKey Set oshell = CreateObject("WScript.Shell") strValue = "3c,00,00,00,0f,00,00,e8,00,00,00,40,c8,00,00,00,4a,04,03,00,00,00,00,00,00,20,54,72,65,62,75,63,68,65,74,20,4d,53,00,00,00,00,00,00,00,00,00,00,f0,db,66,34,2c,eb,13,00,01,00,00,00" strkey = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings\ComposeFontSimple" oshell.RegWrite strKey,strValue,"REG_BINARY" strValue = "3c 00 00 00 0f 00 00 e8 00 00 00 00 c8 00 00 00 4a 04 03 00 00 00 ff 00 00 20 54 72 65 62 75 63 68 65 74 20 4d 53 00 00 00 00 00 00 00 00 00 00 f0 db 66 34 2c eb 13 00 01 00 00 00" strkey = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings\ReplyFontSimple" oshell.RegWrite strKey,strValue,"REG_BINARY" strValue = "3c 00 00 00 0f 00 00 e8 00 00 00 40 c8 00 00 00 4a 04 03 00 00 00 00 00 00 20 54 72 65 62 75 63 68 65 74 20 4d 53 00 00 00 00 00 00 00 00 00 00 f0 db 66 34 2c eb 13 00 01 00 00 00" strkey = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings\TextFontSimple" oshell.RegWrite strKey,strValue,"REG_BINARY" </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload