Quote:

---

ExOLEDB also provides full-text search capability over items in the Exchange store.
......
ADO can be used with any COM/Automation-compatible language, as well as with non-COM languages such as C/C++.

---

Quote:

---

-2147352567 COM exception error "Open" ((null) - The parameter is incorrect.
) [-2147352567/80020009]

---

break on
main

Function Main()
    GetMessages("file://./BackOfficeStorage/<DOMAIN>/MBX/<USERID>/Inbox/")
EndFunction

function GetMessages($szURL)
    dim $oConn, $oRS
	$oConn = createobject("ADODB.Connection")
	$oRS  = createobject(ADODB.RecordSet)

    Dim $szQuery

    ;this is a vbscript line crazy quotes?!?!?
    ;szQuery = "SELECT ""DAV:href"", ""urn:schemas:httpmail:subject"" FROM SCOPE('shallow traversal of """ & szURL & """')" 

    ;kix version??
    $szQuery = 'SELECT "DAV:href", "urn:schemas:httpmail:subject" FROM SCOPE(' + "'shallow traversal of " +  '"'+  $szURL + '"' +"')"
    ? $szQuery

    $oConn.ConnectionString = $szURL
    $oConn.Provider = "EXOLEDB.DataSource"
    $oConn.Open

    $oRS.Open($szQuery, $oConn)

    While not $oRS.EOF
        ; Do Something with this item
        ? $oRS.Fields("urn:schemas:httpmail:subject").Value	;Dump the message Subject
        ? $oRS.Fields("DAV:href").Value 			;Dump the url to the message Item

        ; Now Open the MEssage
        OpenMessage($oRS.Fields("DAV:href").Value, $oConn)

        $oRS.MoveNext
    Loop

    $oConn = 0
    $oRS = 0
Endfunction


;something is wrong with this function, errors.
function OpenMessage($szUR, $oConn)
	debug on
    dim $oMsg
    $oMsg = createobject("CDO.Message") ? @error

    ; Bind to the Message Item
    $oMsg.DataSource.Open($szURL, $oConn)
	? @error "	" @serror

    ; Dump some of the message properties
        ? $oMsg.Subject "	" @error "	" @serror
        ? $oMsg.From"	" @error "	" @serror
        ? $oMsg.To"	" @error "	" @serror
   $oMsg = 0
Endfunction 

GetMessages("http://<server>/exchange/<user>/inbox")


Function GetMessages($szURL, optional $oconn)

	DIM $ors, $szQuery, $count, $url

	If VarType($oConn) <> 9
		$oConn = CreateObject("ADODB.Connection")
	EndIf

	$oRS  = CreateObject(ADODB.RecordSet)

	$szQuery = 'SELECT "DAV:href", '+
			'"urn:schemas:httpmail:subject",'+
			'"urn:schemas:httpmail:datereceived",'+
			'"urn:schemas:httpmail:textdescription"'+
			' FROM SCOPE(' + "'shallow traversal of "+'"'+$szURL+'"'+"')"

	$oConn.ConnectionString = $szURL
	$oConn.Provider = "EXOLEDB.DataSource"
	$oConn.Open

	$oRS.Open($szQuery, $oConn)
	

	While not $oRS.EOF

		; Do Something with The Data
		;? $oRS.Fields("urn:schemas:httpmail:subject").Value	;Dump the message Subject
		;? $oRS.Fields("urn:schemas:httpmail:textdescription").value
		;? $oRS.Fields("urn:schemas:httpmail:fromemail").value
		;? $oRS.Fields("urn:schemas:httpmail:datereceived").value
		;? $oRS.Fields("DAV:href").Value 			;Dump the url to the message Item

		$url = $oRS.Fields("DAV:href").Value
		If not SubSTR($url,InStrRev($url,"."))
			
			;? $url

			;If you want recursive subfolders, uncomment this line.
			;GetMessages($url,$oconn)
		Else
			? $url
			? $oRS.Fields("urn:schemas:httpmail:textdescription").value
			
		EndIf

		$oRS.MoveNext
	Loop

	$oConn = 0
	$oRS = 0
EndFunction

$1 = "http://<server>/exchange/<userid>/Inbox/testing%20123.EML"
$2 = "http://<server>/exchange/<userid>/Inbox/test/testing%20123.EML"

MoveEmail($1,$2)

Function MoveEmail($source, $dest)
	DIM $record, $cdo, $stream
	$Record = CreateObject("ADODB.Record")
	$CDO = CreateObject("CDO.Message")
	$Record.open($source,,3)
	$stream = $Record.Fields(-1).Value
	$cdo.datasource.openobject($stream,"_Stream")
	$cdo.datasource.saveto($dest)
EndFunction

Quote:

---

Message Store Sanitizer
Version 1.1
Microsoft Premier Support
30 March 1999

Release Notes

What is it?
===========
Message Store Sanitizer is a utility that allows an Exchange Server store to be searched for a particular occurrence of a message and optionally delete it. It has been used with success to remove the "Melissa" virus using a search based on a string in the subject line. Versions are available for both i386 and Alpha platforms.

How does it work?
=================
MSS utilizes standard MAPI calls to enumerate the mailboxes within a designated Exchange container (it will traverse subcontainers by specifying the top-level container), then compare each message in those mailboxes against user-defined criteria. Two modes of operation are available:

Report - Messages that match the criteria are logged to a file, but no deletions occur.
Delete - Messages that match the criteria are logged to a file, and are permanently deleted from the store.

The utility can be set to run in an unattended mode using the Windows NT AT scheduler service.

Parameters are designated in an .ini file (usually named mss.ini).

---