Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
C0000..5 error when using Outlook automation
Message
 
 
To
04/10/2001 12:37:43
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00536843
Message ID:
00564335
Views:
12
Hi Jim,

You can make the code in you message more readable by using < pre >,< /pre > tag (no spaces).

>Hi Gary,
>
>Thanks for bringing this to our attention. I have passed it up the line.
>
>I can reproduce this by modifying your code slightly:
>
>oOutlook = CREATEOBJECT('outlook.application')
>loSpace = oOutlook.GetNameSpace("MAPI")
>m.OLSyncFolder = "Inbox"
>loSelFolder = .NULL.
>FOR EACH loFolder IN loSpace.Folders
>	FOR EACH loSubFolder IN loFolder.Folders
>		IF ALLT(loSubFolder.NAME) == m.OLSyncFolder
>			loSelFolder = loSubFolder
>			EXIT
>		ENDIF
>	ENDFOR
>	IF !ISNULL(loSelFolder)
>		EXIT
>	ENDIF
>ENDFOR
>
>IF ISNULL(loSelFolder)
>	=MESSAGEBOX("Folder '" + m.OLSyncFolder + "' is invalid or not found.",48,"System Message")
>	RETURN
>ENDIF
>
>IF TYPE("loSelfolder")<>"O"
>	=MESSAGEBOX("Invalid folder selected",48, "Sync Error!" )
>	RETURN
>ENDIF
>
>loContacts = loSelFolder.Items
>RETURN
>
>Thanks again!
>
>Jim
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform