Automation Error - the server threw an exception?

[poctok]

Dear All - I need help!

I am trying to make a show a folder in Outlook as an Address Book using the following code:

'Add folder
Set myFolder = myFolders.Item("All Public Folders&quot.Folders.Item("Report Distribution&quot
myFolder.Folders.Add stOfolder, olFolderContacts
'Make folder an address book
Set myFolder = myFolders.Item("All Public Folders&quot.Folders.Item("Report Distribution&quot.Folders.Item(stOfolder)
myFolder.ShowAsOutlookAB = True

Everything works until the showasoutlook line and then I get the exception error.

Any ideas?

Regards
Nicky