This is code from my UO in Powerbuilder.
Everything works fine except for the last line. If the client is using
a Personal folder which they created such as ls_folder = "MYContacts"
I know this isn't a Powerbuilder group but was hoping for some help
with the folder items in Outlook.
If they are using the Default folder or a User Created folder in the
Public Folders the code below works fine.
BUT a User Created folder in the DefaultFolder(10) gets the error
"Error Calling External Function "item""
The code is the same except that ls_folder is the name of the user
created folder name stored in the database.
Public = ls_folder = "MyPublic_folders"
Personal = ls_folder = "MyPersonal_folder"

If ll_folder_class = 18 then
myFolder = olns_hold.GetDefaultFolder(18) //PUBLIC
FOLDERS
myNewFolder = myFolder.Folders.Item('' + ls_folder + '')
Else
If ls_folder = 'Contacts' Then
myNewFolder = olns_hold.GetDefaultFolder(10) //Non PUBLIC
FOLDERS
Else
myFolder = olns_hold.GetDefaultFolder(10) //Non DEFAULT
PUBLIC FOLDERS
myNewFolder = myFolder.Folders.Item('' + ls_folder + '')
End If
End IF
olns_hold =
iole_outlook.CreateItemFromTemplate(gnv_priorities .is_program_dir +
"samconimp.oft", myNewFolder)

If I understand what you're asking, you cannot open a non-default contacts
folder using GetDefaultFolder. You either have to use GetFolderFromID or
iterate the Folders collection to get the folder you want. If it's not a
folder at the same level as Calendar you'd have to recursively iterate
folders from the top of store down to find the one you want.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Rick H" wrote in message
oups.com...
This is code from my UO in Powerbuilder.
Everything works fine except for the last line. If the client is using
a Personal folder which they created such as ls_folder = "MYContacts"
I know this isn't a Powerbuilder group but was hoping for some help
with the folder items in Outlook.
If they are using the Default folder or a User Created folder in the
Public Folders the code below works fine.
BUT a User Created folder in the DefaultFolder(10) gets the error
"Error Calling External Function "item""
The code is the same except that ls_folder is the name of the user
created folder name stored in the database.
Public = ls_folder = "MyPublic_folders"
Personal = ls_folder = "MyPersonal_folder"

If ll_folder_class = 18 then
myFolder = olns_hold.GetDefaultFolder(18) //PUBLIC
FOLDERS
myNewFolder = myFolder.Folders.Item('' + ls_folder + '')
Else
If ls_folder = 'Contacts' Then
myNewFolder = olns_hold.GetDefaultFolder(10) //Non PUBLIC
FOLDERS
Else
myFolder = olns_hold.GetDefaultFolder(10) //Non DEFAULT
PUBLIC FOLDERS
myNewFolder = myFolder.Folders.Item('' + ls_folder + '')
End If
End IF
olns_hold =
iole_outlook.CreateItemFromTemplate(gnv_priorities .is_program_dir +
"samconimp.oft", myNewFolder)