• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2950
  • Last Modified:

Pin Outlook to Start Menu with GPO

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.
  • 2
1 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 (session.property("MaintenanceMode"), "Remove") = 0) Then
Call PinToStart

ElseIf (Instr (session.property("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
don't you just have to right click the icon and click pin to start menu?  simple as that?
MortonTAAuthor Commented:
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...
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

Free recovery tool for Microsoft Active Directory

Veeam Explorer for Microsoft Active Directory provides fast and reliable object-level recovery for Active Directory from a single-pass, agentless backup or storage snapshot — without the need to restore an entire virtual machine or use third-party tools.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now