Alright! i can keep my title of computer guru here at the company!

here is the move email code! Things are comming toghther

Code:

$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


bryce