Pin Outlook to Start Menu with GPO

Posted on 2009-12-31
Last Modified: 2012-05-08
What I have: Windows Server 2008 Standard, Windows 7 Professional, Office 2007 Professional

What I want to do: I would like to create a GPO that will pin a Outlook 2007 shortcut to the Start Menu above the All Programs menu like there used to be in XP Pro.

I have tried many things and it just will not work... Any suggestions would be of great help.
Question by:MortonTA
    LVL 15

    Accepted Solution

    No, you'll have to use a script:

    try looking at the link above with a sample script from MS or look at the one I use below:

    You might want to modify it to your requirements:

    Set objShell = CreateObject("Shell.Application")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim strFileName, verbs, strProfile

    strProfile = "C:\Documents and Settings\All Users"
    Call FindFileName

    Set objFolder = objShell.Namespace(strProfile & "\Start Menu\Network Applications")
    Set objFolderItem = objFolder.ParseName(strFileName)
    Set colVerbs = objFolderItem.Verbs

    'find options
    For Each objVerb in colVerbs
    verbs = verbs & vbcrlf & objVerb

    'msgbox verbs

    If (Instr ("MaintenanceMode"), "Remove") = 0) Then
    Call PinToStart

    ElseIf (Instr ("MaintenanceMode"), "Remove") <> 0) Then
    Call RemoveFromStart
    End If

    Sub RemoveFromStart

    If InStr(verbs, "Unp&in from Start menu") Then
    'unpin from start menu
    objFolderItem.InvokeVerb("Unp&in from Start menu")
    End If

    If oFSO.FileExists(strProfile & "\Start Menu\Add New Programs.lnk") Then
    oFSO.DeleteFile strProfile & "\Start Menu\Add New Programs.lnk"
    End If
    End Sub

    Sub PinToStart

    If InStr(verbs, "P&in to") Then
    'pin to start menu
    objFolderItem.InvokeVerb("P&in to Start menu")
    ElseIf (InStr(verbs, "P&in to") = 0) AND (InStr(verbs, "Unp&in") = 0) Then
    oFSO.CopyFile strProfile & "\Start Menu\Network Applications\" & strFileName, strProfile & "\Start Menu\Add New Programs.lnk", True
    ElseIf InStr(verbs, "p&in") Then
    If oFSO.FileExists(strProfile & "\Start Menu\" & strFileName) Then
    oFSO.DeleteFile(strProfile & "\Start Menu\" & strFileName)
    End If
    End If

    End Sub


    Sub FindFileName
    If oFSO.FileExists(strProfile & "\Start Menu\Network Applications\Add New Programs.lnk") Then
    strFileName = "Add New Programs.lnk"
    ElseIf oFSO.FileExists(strProfile & "\Start Menu\Network Applications\_Add New Programs.lnk") Then
    strFileName = "_Add New Programs.lnk"
    End If
    End Sub
    LVL 3

    Expert Comment

    don't you just have to right click the icon and click pin to start menu?  simple as that?
    LVL 1

    Author Comment

    Sorry i havent gotten back to this issue... getting over siwne flu really sucks!

    Anyway, the script did work! thanks - jscornerstone:, yes one could do this but I wanted a solution that the user did not have to be involved in...
    LVL 3

    Expert Comment

    oh okay.  im still a newb when it comes to advanced stuff like scripting.  tons of questions are on either programming/scripting so experts exchange is still kinda hard for me.  i know most of the basic/intermediate stuff but when you ask questions like this i just put whatever i think lol.

    Featured Post

    Too many email signature changes to deal with?

    Are you constantly being asked to update your organization's email signatures? Do they take up too much of your time? Wouldn't you love to be able to manage all signatures from one central location, easily design them and deploy them quickly to users. Well, you can!

    Join & Write a Comment

    Synchronize a new Active Directory domain with an existing Office 365 tenant
    The recent Microsoft changes on update philosophy for Windows pre-10 and their impact on existing WSUS implementations.
    This tutorial will show how to configure a single USB drive with a separate folder for each day of the week. This will allow each of the backups to be kept separate preventing the previous day’s backup from being overwritten. The USB drive must be s…
    This Micro Tutorial will give you a introduction in two parts how to utilize Windows Live Movie Maker to its maximum editing capability. This will be demonstrated using Windows Live Movie Maker on Windows 7 operating system.

    755 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    19 Experts available now in Live!

    Get 1:1 Help Now