Hi all,
I found in
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_o
lemsg_fields_property_infostore_object_.asp :
--------------- snip -------------------------------------
CDO 1.2.1
Fields Property (InfoStore Object)
The Fields property returns a single Field object or a Fields collection
object. Read-only.
Syntax
objInfoStore.Fields
objInfoStore.Fields(index)
objInfoStore.Fields(proptag)
objInfoStore.Fields(name)
--------------- end snip ---------------------------------
and
--------------- snip -------------------------------------
If your application is running as a Microsoft Windows NT® service, you
cannot access the Microsoft Exchange Public Folders through the normal
hierarchy because of a notification conflict. You must use the InfoStores
Fields property to obtain the Microsoft Exchange property
PR_IPM_PUBLIC_FOLDERS_ENTRYID, property tag &H66310102. This represents the
top-level public folder and allows you to access all other public folders
through its Folders property.
Example
This code fragment accesses the root of the Public Folders subtree of a
message store:
Dim objSess As Session ' assume logged on to valid session
Dim objInfoStore As InfoStore ' assume opened and valid
Dim strPFRootID As String ' binary entry ID returned as hex string
Dim objPFRoot As Folder ' root folder of Public Folders
tagPFRootID = &H66310102 ' PR_IPM_PUBLIC_FOLDERS_ENTRYID
strPFRootID = objInfoStore.Fields(tagPFRootID) ' entry ID
???????????????????????
MsgBox "Public Folders root folder ID = " & strPFRootID
Set objPFRoot = objSession.GetFolder(strPFRootID)
--------------- end snip ---------------------------------
if I write:
--------------- snip -------------------------------------
$cdo=Win32::OLE->new("MAPI.Session");
$cdo->logon(....);
foreach (in $cdo->{Infostores}){
if (my $RootID=$_->Fields(1714487554)){# 1714487554 = &H66310102
--------------- end snip ---------------------------------
$RootID is object and not string !!!!!!!!!!!!!!!!!!!!!!!!
This object is a field-object from infostore and has not
an identifier for a folder (I need for $folder=$cdo->GetFolder($RootID);)
!!!!!!
Is that my error ?
or is 2 errors in the µsoft's
web-page (1. String is not object;
2. Fields-object not contains folder-ID) ?????
Best regards/Mit freundlichen Grüssen
Joachim Görner
Informationsverarbeitung Systemtechnik Basisdienste (ISB)
ADAC e.V., Am Westpark 8, 81373 München
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82
<mailto:[EMAIL PROTECTED]>
www.adac.de
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
