Filing 'Sent' Messages in Outlook 2003

  • Thread starter QnJpZGdldA
  • Start date Views 2,645
Q

QnJpZGdldA

Is there a way to prompt where I want a message saved before I hit send? I

always have to go back into 'sent items' then 'move to folder' and that is

cumbersome. Please help. Thx!
 
Q

QnJpZGdldA

VBA is a bit beyond me but I can certainly try. The only info. I found on it

is only available in German though. Thanks!!!

"" wrote:


> Bridget, you wrote on Thu, 2 Apr 2009 09:59:03 -0700:
>
> > Is there a way to prompt where I want a message saved before I hit send? I
> > always have to go back into 'sent items' then 'move to folder' and that is
> > cumbersome. Please help. Thx!


> Following VBA code does it:

> http://www.outlook-stuff.com/lang-en/tips-and-tricks/programming/287-ordnerauswahl-beim-senden.html

> >

>

>

> >
 
D

DL

http://www.outlookcode.com/d/code/setsavefolder.htm

"Bridget" <Bridget> wrote in message

news:C29961AF-8869-4699-A302-FCB4C67D60D3@microsoft.com...
> VBA is a bit beyond me but I can certainly try. The only info. I found on
> it
> is only available in German though. Thanks!!!

> "" wrote:
>
> > Bridget, you wrote on Thu, 2 Apr 2009 09:59:03 -0700:
> >
> > > Is there a way to prompt where I want a message saved before I hit
> > > send? I
> > > always have to go back into 'sent items' then 'move to folder' and that
> > > is
> > > cumbersome. Please help. Thx!

>

>> Following VBA code does it:
>

>> http://www.outlook-stuff.com/lang-en/tips-and-tricks/programming/287-ordnerauswahl-beim-senden.html
>

>> > >

> >

>

>>

> > >>
 

Brian Tillman

Senior Member
"Bridget" <Bridget> wrote in message

news:EE46273A-023D-4F2B-9787-B6BEEAA202C0@microsoft.com...


> Is there a way to prompt where I want a message saved before I hit send? I
> always have to go back into 'sent items' then 'move to folder' and that is
> cumbersome. Please help. Thx!


After composing but before sending the message you can click View>Options and

change the save folder. Not quite as cumbersome as moving it from Sent Items

later.

--
 

ACurtis802

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hi everyone,




I successfully used the VBA code described at the following URL to select the destination folder of sent items while using Outlook 2003:




http://www.outlookcode.com/d/code/setsavefolder.htm




I was able to file outgoing messages both within my personal mailbox folder hierarchy as well as within the folder hierarchy of a mailbox I share with my coworkers (another Exchange mailbox).




After we upgraded to Outlook 2007, outgoing messages are correctly saved when I select a destination folder in my personal mailbox hierarchy, but they are no longer saved correctly when a destination folder in the shared mailbox is selected. Those messages are saved in my Sent Items folder. I have been unable to find a VBA code tweak that solves this problem (and am unsure what changed between Outlook 2003 and Outlook 2007 that would have caused it).




How can I restore the functionality I lost in the upgrade via a tweak to this VBA code?




Code:
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 Not objFolder Is Nothing 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





Hoping someone can help!




Thanks and best regards,


ACurtis802
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I'll check on the code but it could be something with outlook... i would double check the permissions on the folder. Oh, and did you open the folders as secondary mailbox in your profile or as shared folders? Are you caching the shared folders?
 

ACurtis802

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hi Diane,

I double-checked permissions, and nothing has changed. I am an owner. I added the other mailbox (and its folders) as a secondary mailbox, not shared folders; apologies for not understanding the difference between those two. And I do not believe I am caching the shared folders, but how would I check that?

Thanks,

Anthony
 

Forum Admin

Senior Member
To check caching settings, go to tools, account settings, double click on email accounts, then More settings. Look on the second tab for cache settings.
 

ACurtis802

Member
Outlook version
Outlook 2007
Email Account
IMAP
Update: my settings previously had cached mode disabled, so I enabled it. The change made no difference in the behavior of the filing for the secondary mailbox. Problem remains unresolved...
 

ACurtis802

Member
Outlook version
Outlook 2007
Email Account
IMAP
Hi Diane,

Thank you so much. I followed the process outlined on the MS site, and this seems to solve the problem. Whew!

Kind regards,

Anthony
 
Top