Ungültiger Prozeduraufruf - VBS - OL2010

Hi @all,

wir haben bei uns folgendes Problemchen:
Es soll ein Öffentlicher Ordner als Favorit bei jedem User in sien Outlook 2010 eingebunden werden.
Manuell funktioniert das alles auch. Aber wi möchten es ber Softwareverteilung bzw. Logonscript ausrollen.

Also habe ich mal angefangen zu googlen und auch relativ zügig einige Scripte gefunden die ganau das leisten sollen.
Diese stürzen allerding immer an der selben Stelle ab:
AddToPFFavorites ist die Methode welche zuverlässig für Probleme sorgt.
"Ungültiger Prozeduraufruf oder ungültiges Argument"
Laut Manual aus dem MSDN passt das aber soweit (außerdem scheint es bei jedem "Scriptanbieter" zu gehen).

Da ich nun nach 2Stunden Googlen, Batseln und ausprobieren frustriert das Handtuch (vorübergehen) geworfen habe,
frage ich nun einfch mal in die Runde:
Hat jemand eine Idee?
Hat das jemand schon mal geamcht?

Ich habe hier mal das Script angehängt, welches ich zuzeit verwende:


Thx

Call AddFolderToFavorites(True)

Sub AddFolderToFavorites(AddToAddressBook)
Const olContactItem = 2
Set myFolder = GetFolder
If Not myFolder Is Nothing Then
myFolder.AddToPFFavorites
' if contacts folder,
' optionally add new Favorite to OAB
If myFolder.DefaultItemType = olContactItem Then
If AddToAddressBook = True Then
strFavFolder = _
"Public Folders\Favorites\" & _
myFolder.Name
Set myFavFolder = GetFolder(strFavFolder)
If Not myFavFolder Is Nothing Then
myFavFolder.ShowAsOutlookAB = True
End If
End If
End If
End If
Set myFolder = Nothing
End Sub

Public Function GetFolder()
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")

Set objFolder= objNS.GetDefaultFolder(18).Folders("Pub").Folders("Kontakte")

Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function