Windows 7 Forums

Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.

Windows 7: Setting Storage folder

31 Jan 2011   #1

Windows 7 64 bit
Setting Storage folder

Hey folks,
So i have recently upgraded a machine to win 7/office 2010, within the old build when you would send an email in outlook it would prompt you with a folder list where to save the message...

with the windows 7/2010 build i used the outlook vba to set it up as i did in this office 03 build:

Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If TypeName(objFolder) <> "Nothing" And _
IsInDefaultStore(objFolder) Then
Set Item.SaveSentMessageFolder = objFolder
End If
Set objFolder = Nothing
Set objNS = Nothing
End Sub
Public Function IsInDefaultStore(objOL As Object) As Boolean
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objInbox As Outlook.MAPIFolder
On Error Resume Next
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Select Case objOL.Class
Case olFolder
If objOL.StoreID = objInbox.StoreID Then
IsInDefaultStore = True
End If
Case olAppointment, olContact, olDistributionList, _
olJournal, olMail, olNote, olPost, olTask
If objOL.Parent.StoreID = objInbox.StoreID Then
IsInDefaultStore = True
End If
Case Else
MsgBox "This function isn't designed to work " & _
"with " & TypeName(objOL) & _
" items and will return False.", _
, "IsInDefaultStore"
End Select
Set objApp = Nothing
Set objNS = Nothing
Set objInbox = Nothing
End Function

In the office 2010 build it works the first time but then does not work after that. Any idea on how to get this to prompty everytime? thanks! any/all help is greatly appreciated!

My System SpecsSystem Spec
07 Feb 2011   #2

Windows 7 64 bit

My System SpecsSystem Spec
08 Feb 2011   #3

Windows 7 Home Premium 64bit

I would think that "Quick Steps" in Outlook 2010 would serve the purpose without vba:
Automate common or repetitive tasks with Quick Steps - Outlook - Microsoft Office

Hopefully I have understood what you are trying to recreate.
My System SpecsSystem Spec


 Setting Storage folder

Thread Tools Search this Thread
Search this Thread:

Advanced Search

Similar help and support threads
Thread Forum
WLM Storage Folder emails won't open
just installed a new os on one of the computers. Windows 7 pro. and did an entire fresh install. Never had luck with email export and import - never ever worked - so i just copy over the email file to a second drive and copy it back and go into WLM maintenance and change the storage folder...
Browsers & Mail
Change Folder View Setting from Global to Individual Folder
When I'm in a folder and changes the folder view from, say, List to Extra Large Icons, the folder view changes for all the folders on my computer, which is a royal PITA. Is there any way to change the folder view only in the folder I'm in at the time and leave the setting for the other folders as...
General Discussion
Windows Live Mail storage folder disappeared
Hello This has happened once before and I can't remember how I stumbled on the solution but I did. I have many named folders where I store emails I want to keep one of them being "business". I was going to drag an email into it when i noticed that it was missing but other folders are still...
Browsers & Mail
WLM 2011 Storage Folder problems
I am running Windows 7 Home Premium and using Windows Live Mail 2011 and recently have started having problems with e-mails in my WLM Storage Folders. Some folders have become corrupted such that the e-mail headers, subject, date, etc appear correctly but all the e-mails in one folder have the...
Browsers & Mail
Rationalising Mail's Storage Folder
I'm now using Windows Live Mail in Win7 after using Outlook Express for over a decade - which I found quite satisfactory. To the extent that it is possible I want to continue email the way I had it in Outlook Express. I now have multiple copies of folders like Inbox, Sent Items, etc (at least two...
Browsers & Mail
Setting up a RAID storage array
I currently have win7 x64 installed, i have a 320GB partitioned for a dual boot, XP and win7, then i have a 1.5TB storage drive which is filling up, im thinking of getting 2 or 3 1TB drives to create a raid array(0 or 5, not sure whether to have fault tollerance or not). if i were to start with...
General Discussion

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 02:48.

Twitter Facebook Google+

Windows 7 Forums

Seven Forums Android App Seven Forums IOS App