Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as text by holytshirt ( 17 years ago )
Option Explicit
Dim MessageMover
Dim messageCount
Set MessageMover = Wscript.CreateObject("QC.MessageMover")
MessageMover.SourcePath = ".private$ est1"
MessageMover.DestPath = ".private$ est2"
messageCount = MessageMover.MoveMessages
Wscript.Echo messageCount, "messages moved from ", MessageMover.SourcePath, " to ", MessageMover.DestPath
Revise this Paste
Children: 4859