Matt Back Again!!

I've loaded the programe on my Work computer and everything works fine except my Move code. This works on my home laptop where I have been doing the development.

What appears to happen is it doesn't recognise the

.Item(iItem).Move vFolder

stepping through the code it moves through the above but doesn't move it. It does copy the file to the server in the previous

.Item(iItem).SaveAs StrFile, 3

Part code below.

[VBA] StrName = StripIllegalChar(StrSubject)
StrAllName = StrName & ".msg"
StrFile = StrSavePath & " " & StrName & ".msg"

Call Check_Name

StrFile = StrSavePath & StrAllName
StrFile = Left(StrFile, 256) 'THIS NEEDS CHANGING. If the File + Path has more than 256
'characters it'll start by stripping the extension then the (x)

.Item(iItem).SaveAs StrFile, 3 'This works

'Next
End With

SaveMsg:
'''' The "Move" code is below here '''''
With Outlook.ActiveExplorer.Selection 'Added for moving the file

If Len(Dir(StrFile)) <> 0 Then 'Checks that the save occured and asks if further save required.

strMsg = "The e-mail has been saved" _
& vbCr & vbCr & "Do you want to save this e-mail to another location?"
Message = MsgBox(strMsg, vbYesNo + vbQuestion + vbDefaultButton2, "E-mail saved")

If Message = vbYes Then GoTo ExitSub 'This stops it moving the e-mail if you want to save again

If Message = vbNo Then Unload Quick_Form

If MoveToArchive = False Then GoTo NoMove 'To jump the Move code below if the form checkbox isn't ticked

.Item(iItem).MoveFile vFolder ' This doesn't Move the Mail This moves the mail if the box in the Form is ticked

[/VBA]

It recognises the Archives as if I change their name I get my error message. Is it anything to do with Windows 2000 rather than XP which is all I can see is different between my system an work. (though the .Move method is still shown in the help, file not surprising as we both run Outlook 2003). I've tried replacing .Move with .MoveFile but that doesn't seem to work I think I need to add the Source which I've yet to do.

Regards

Jeff