Archive for May, 2010
My Sheldon T-Shirt
淘宝上买的，Sheldon的T-shirt之一
[ad]
Email Lost In Outlook 2010 and Recovery Method
Several weeks ago, I upgraded my Outlook to Outlook 2010 Beta, and previously I wrote a macro to move all emails with my name in the recipient list to a local PST folder(folder: OnlyToMe) automatically. So there’s no backup in enterprise vault.
This morning, when I try to check email in my Outlook, there’s no email in this folder(OnlyToMe), but there’s a number indicating 4 new emails:
OnlyToMe(4)
This is the most important folder for me, the folder size is around 500M(for Y2010 only), below is how I recover it:
Sub Recover()
Set OutApp = CreateObject("Outlook.Application")
Set NmSpace = OutApp.GetNamespace("MAPI")
Set F = NmSpace.Folders("Default").Folders("OnlyToMe")
Set T = NmSpace.Folders("HR").Folders("Temp")
For intX = F.Items.Count To 1 Step -1
Set objMessage = F.Items.Item(intX)
objMessage.Move T
Next
Set OutApp = Nothing
Set NmSpace = Nothing
Set F = Nothing
Set T = Nothing
End Sub
Above VBA will move all mail items from the weird folder to a newly created folder. I believe I’m not the only one who got this problem, if you’re the lucky guy, try this method. Don’t forget to re-create a new PST, it’s likely something wrong with the PST.
Outlook 2010 is still a beta release, using it in a production environment is not a good practice. if you like the new features of 2010, you’d better backup your PST regularly.
[ad]