I moved a bunch of mail from a folder to the root of the pst file. If I look
at the PST file in the folder list view and click on the root of the PST file
I can not see any of the mail items I moved. Anyone know how I can get these
back?
- Show quoted text -
I just wrote a script that I think will do it for you. Do you know
how to get to your VBA environment? If so, try this script which
should move the emails back to your inbox:
Sub GetItems()
Dim MBF As MAPIFolder
Dim NS as NameSpace
Dim myMsg as MailItem
Set NS = Application.Session
Set MBF = NS.Folders("Mailbox - Misty Khan")
For Each Item In MBF.Items
Select Case TypeName(Item)
Case "MailItem"
Set myMsg = Item
MsgBox ("Subject is " & myMsg.Subject)
myMsg.Move NS.GetDefaultFolder(olFolderInbox)
Case Else
End Select
Next
End Sub
Misty Khan
Arrow-Tips.com (blog)
HuntressPro.com (web site)