Outbox sent items issue

[Joostdegrote]

Hellow all, I have a little question on outlook 2007.



See, I have multiple accounts in my outlook, let's say Helpdesk and Support, on what Support is the default sender

When I sent a message AS:Helpdesk, The sent item will still be in the sent items folder of Support.

Anyone knows how to put the sent item, to the folder of the right person when using the "sent as" funtion?

[Joostdegrote]

Please, does someone knows this? It's pretty urgent by now, and i still don't know anything :/ posted it on several website's too, but no-one seems to know this one..

[Joostdegrote]

OK.. So it kinda seems to be fixed..

(SOURCE: http://www.outlookcode.com/d/code/setsavefolder.htm )

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

When putting this to Extra>>Makro's>> Visual Basic Editor (there go to Project1> Microsoft office outlook>ThisOutlookSession)
I get a pop-up window saying where to save the sent item. If i don't specify the folder, it won't be saved at all!

Somehow, i still have a problem.. now that i rebooted Outlook, I don't get no pop-up no more... While the script still is in there! So somehow..... It's screwed up anyway .... anyone here has an idea how/why?

[Joostdegrote]

OK.. so It seems to work now I get a pop-up now everytime i sent a e-mail.. Now i just need a way to inprove it, and automaticly sent it to the right folder , depending on who the sender is... Just too bad i am not so good in scripting D=

Btw.. It didn't work before, because off the fact that it isn't trusted by Microsoft.

So I went to EXTRA's>> Trust Centrum.
There i clicked on MakroSecurity.

There i clicked on "No Makro Security (not recommended)"
This because I won't add any makro's i didn't read yet.. I am not that stupid >.<

Hope this helps! (even if it doesn't.. please tell me why not)