Function Item_Close()

If MoveQuoted = 1 Then
Set oApp = CreateObject("Outlook.Application")
Set oName = oApp.GetNamespace("MAPI")
Set oFolder = Item.Parent

If oFolder.EntryID =
"000000001A447390AA6611CD9BC800AA002FC45A0300D27A6 408BFB611469494C39DB2EE" &
_
"75A7000000096E430000" Then
Set oFolder = oName.Folders.Item("Public Folders").Folders.Item("All
Public
Folders").Folders.Item("Procurement").Folders.Item ("Calgary")
Set oFolder2 = oName.Folders.Item("Public Folders").Folders.Item("All
Public
Folders").Folders.Item("Procurement").Folders.Item ("Calgary").Folders.
Item("Quoted")
Set oTask = oName.GetItemFromID(Item.EntryID)
oTask.Close(0)
oTask.Move oFolder2
End If

Set oFolder = Nothing
Set oFolder2 = Nothing
Set oName = Nothing
Set oApp = Nothing

End If
End Function

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...forms/200709/1