Need help with a vb script that add the reply to all button in outlook 2003.

Discussion in 'Web Design & Coding' started by VenomXt, Oct 19, 2006.

  1. VenomXt

    VenomXt Blame me for the RAZR's Folding Team

    Messages:
    3,453
    Location:
    Houston, Texas
    Ok here is what’s going on. We run a vb scrip to remove the reply to all button in outlook 2003. It auto runs during the install of outlook 2003. A few people would like the button back (and are allowed to have it)

    They know the short cut key (ctrl-shift-r) and still want the button.

    My VB is very rusty and I was hoping someone here would look at this and it would instantly come to them.

    Here is the remove code.


    Big reps coming if you can help.
     
  2. VenomXt

    VenomXt Blame me for the RAZR's Folding Team

    Messages:
    3,453
    Location:
    Houston, Texas
    No one?
     
  3. Shamus MacNoob

    Shamus MacNoob Moderator Political User

    Messages:
    4,199
    Location:
    L'Ile Perrot Quebec
    Have you looked in the customize section ? Right click toolbar
     

    Attached Files:

  4. VenomXt

    VenomXt Blame me for the RAZR's Folding Team

    Messages:
    3,453
    Location:
    Houston, Texas
    There is no option to re-add it after we run the above code to remove it via outlook. :)
     
  5. VenomXt

    VenomXt Blame me for the RAZR's Folding Team

    Messages:
    3,453
    Location:
    Houston, Texas
  6. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    do you need this as a VBScript? Why not just remove the regkeys created by the script?

    edit:
    here.. just modified your script. Haven't tested it.. just hacked the original script to remove the values set by the original script.

    I'm home sick.. otherwise I would have tested it prior to posting it.

    Code:
                                 Option Explicit
    ' ===================================================================
    ' Title: Removes the Reply to all button from Outlook 2003
    ' 
    ' 
    ' 
    ' Description:
    ' 
    ' This program is designed to replace the reply to all functionality from
    ' the outlook 2003 client
    '
    ' Dependancies:
    ' 
    '
    ' --------------------------------------------------------------------
    ' Revision History
    ' --------------------------------------------------------------------
    ' Date Who Description of changes
    ' ---- --- ------------------------------------------
    '
    ' 11/3/05 ABJ Initial Creation 
    ' 10/20/06 Fitz! Woo! -- Made to readd the reply to all function
    '
    ' Begin Script
    ' Define variables for operation
    Dim WshShell, WshProcEnv, SSO, retval, SSOSet, WINVer, strComputer, oReg, strKeyPath, strValueName, strValue, objOperatingSystem
    Dim strKeyPath1, strValueName1, strValue1, strKeyPath2, strValueName2, strValue2, objWMIService, colOperatingSystems, strValue3, strValueName3, strKeyPath3, strKeyPath4, strValueName4, strValue4
    ' Set operational variables
    Const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set WshProcEnv = WshShell.Environment("Process")
    SSOSet = False
    strKeyPath3 = "Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\{69770FBC-071F-4CEE-8086-561332A59FA3}User\Software\Policies\Microsoft\Office\11.0\Outlook\DisabledCmdBarItemsList"
    strKeyPath4 = "Software\Policies\Microsoft\Office\11.0\Outlook\DisabledCmdBarItemsList"
    strValueName4 = "TCID1"
    strValue4 = "-"
    'ReEnables the reply to all button within Outlook 2003
    oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath3,strValueName4,strValue4
    oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath4,strValueName4,strValue4
    
     
    Last edited: Oct 20, 2006
    VenomXt likes this.
  7. VenomXt

    VenomXt Blame me for the RAZR's Folding Team

    Messages:
    3,453
    Location:
    Houston, Texas
    Works. I see what you did thanks learned something. *repped*
     
    Last edited: Oct 20, 2006