Can someone COM this??

This is the closest I have come to getting this to work... I can get the number of messages in the inbox, is that worth anything?

$OL = CreateObject("outlook.Application")
$mapi=$ol.getnamespace("mapi")
? $mapi

$inbox=$mapi.getdefaultfolder(6)
? $inbox

$count=$inbox.items.count
? $count

$first=$inbox.items(1).subject
? $first

I have been doing some digging in the Exchange properties and found the following cool app to get the properties you are looking for. It also comes a with a VB Reference on this as well.

Check it out!

Outlook Spy

Talk to you later!

- Kent

Bryce

This is untested. But, this should give you a rough idea.

code:

---

; -- Pieces stolen from - http://cwashington.netreach.net/depo/view.asp?Index=445&ScriptType=vbscript 
; -- You will need to have CDO.DLL installed too..
BREAK ON CLS
Dim CdoPR_ACCOUNT
CdoPR_CONTAINER_CLASS = &H3613001E

$OL = CreateObject("outlook.Application")
$mapi=$ol.getnamespace("mapi")
? $mapi
$inbox=$mapi.getdefaultfolder(6)
? $inbox
$count=$inbox.items.count
? $count
$size=$inbox.object.Size
? $size
$first=$inbox.items(1).subject
? $first
         $intCounter = 1
         ; Loop through the infostores
          For $intCounter = 1 To $mapi.InfoStores.Count
               ;' Check if we have not hit the public information store
               If Trim(UCase($mapi.Infostores.Item($intCounter).Name)) <> "PUBLIC FOLDERS" Then
                    ;Get the root folder
                    $objRootFolder = $mapi.Infostores.Item($intCounter).RootFolder
                    ;Get the folder collection
                    $objFoldersColl = $objRootFolder.Folders ;Folders collection
                    ;Wscript.Echo objFoldersColl.count
                   If $objFoldersColl <> "" Then
                        ; get the first folder in the collection
                        $objOneFolder = $objFoldersColl.GetFirst
                         ?$objOneFolder.name
                        ;loop through all the folders in the collection
                        Do While $objOneFolder <> ""
                            ; Check all messages in this folder
                            ; is it a Mail Item folder?
                            $objFields = $objOneFolder.Fields
                            $strFolderType = $objFields.Item(CdoPR_CONTAINER_CLASS)
                            If $strFolderType = "IPF.Note" Then
                                 $objFields = ""
                                 ;check all subfolders also
				$size=$inbox.object.Size ; -- Get the current folder size
				$fldrsize = $size ; -- Set it to a computed global variable
				$ttlsize = $size+$ttlsize
				? $size+" of Folder"
				? $ttlsize+" Total"
                            EndIf
                            $objOneFolder = $objFoldersColl.GetNext
                     Loop
                EndIf
                    ; Add the results to the report text
                    ;? strUserName
               EndIf
          Next

---

Have fun!

- Kent

[ 10 February 2002: Message edited by: Ben Dulaney ]

1) Start Excel

2) Go TOOLS->REFERENCES

3) Select "Windows Script Host Object Model"

4) Click OK

5) Go VIEW->OBJECT BROWSER

6) Drop down "All Libraries" and select "IWshRuntimeLibrary" instead

7) Select "WshShortcut" in Classes

And on the right is all the methods and properties. Method are documented in the bottom window - with all the required parameters and their types ... some interface definitions even have good descriptions of what the function does and some help ...

Not sure if Outlook will show up as a reference for you or not ... But I hope this helps a little ...

-Shawn

[ 10 February 2002: Message edited by: Shawn ]

1.5) Go TOOLS->MACRO->VISUAL BASIC EDITOR

-Shawn

Internet Explorer you say, eh ?

OK, here a small "teach a man to fish" kinda tutorial on performing your own COM discovery ...

The only peice of information you have is the "ProgID" and for internet explorer, we know that is "internetexplorer.application". So go into regedit.exe and do the following initial steps:

1) Start regedit

2) Open HKEY_CLASSES_ROOT

3) Find InternetExplorer.Application

4) Open up that key and click CLSID

5) Should say default="{0002DF01-0000-0000-C000-000000000046}"

6) Double-click "default" and ^C the CLSID into your clipboard buffer

7) Go all the way back up to the top of HKEY_CLASSES_ROOT again.

8) Find a key called HKEY_CLASSES_ROOT\CLSID

9) Crack it open and hit ^F (find) then ^V the CLSID into the dialogbox and press "Find Next"

10) Crack it open and check out "LocalServer32" (for DLL's, the key is called InprocServer32") Internet Explorer is a .exe localserver. But we're here to check out a key called "TypeLib" - check out the default value of that.

11) The default data value should say "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}". This is the CLSID of the typelib that describes the interface in all it's gory details ... select this value into your clipboard buffer. We're not done yet.

12) In HKEY_CLASSES_ROOT\CLSID search for this typelib class id ... when you find it, you should see a new reference to an InProcServer32 now - the value is:

%SystemRoot%\System32\shdocvw.dll

Whew ... now you know that the COM typelib information for the component called InternetExplorer.Application is implemented inside a DLL (as a resource) at:

%SystemRoot%\System32\shdocvw.dll

This is part one of the adventure ... if you don't want to perform the previous steps, just take things from here ... now on to Part II ...

1) Start Excel and the Visual Basic Editor.

2) Go TOOLS->REFERENCES

3) Click BROWSE on the dialog

4) Paste %SystemRoot%\System32\shdocvw.dll into the filename box

5) Click "Open" and now you should have a new reference called "Microsoft Internet Controls"

6) Click OK and go VIEW->Object Browser

7) Select SHDocVW and you should see a class called "InternetExplorer" under classes. Select it.

8) Look in the right pane - look familiar ?

Hope this helps.

-Shawn

F:\WINNT\System32\MSHTML.TLB

So select that as a reference. Once you do that, find a class called "HTMLDocument" and you might see familiar methods like

write
writeln
readystate
getelementbyid

you name it - it's there.

-Shawn

[ 10 February 2002: Message edited by: Shawn ]

DHTML Reference

-Shawn

I use a program called TLBDOC, it is a Type Library documenter that creates a .HLP file (need to install MS's help workshop) from a .DLL file telling you all the properties, methods and functions and their parameters.

Here is a copy and paste of the FolderExists function from SCRRUN.DLL (aka Windows Scripting Host)

[u]See also[/u]

Declaration: FolderExists(FolderSpec as String) as Boolean

Return Value

Description
Check if a path exists

You can get TLBDOC from CodeStone Software

cj