Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-13-2010, 01:30 AM
Joostdegrote Joostdegrote is offline Outbox sent items issue Windows 7 Outbox sent items issue Office 2007
Advanced Beginner
Outbox sent items issue
 
Join Date: Sep 2010
Location: The Netherlands
Posts: 45
Joostdegrote is on a distinguished road
Question Outbox sent items issue

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?
Reply With Quote
  #2  
Old 09-14-2010, 05:55 AM
Joostdegrote Joostdegrote is offline Outbox sent items issue Windows 7 Outbox sent items issue Office 2007
Advanced Beginner
Outbox sent items issue
 
Join Date: Sep 2010
Location: The Netherlands
Posts: 45
Joostdegrote is on a distinguished road
Default

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..
Reply With Quote
  #3  
Old 09-16-2010, 12:40 AM
Joostdegrote Joostdegrote is offline Outbox sent items issue Windows 7 Outbox sent items issue Office 2007
Advanced Beginner
Outbox sent items issue
 
Join Date: Sep 2010
Location: The Netherlands
Posts: 45
Joostdegrote is on a distinguished road
Default

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

(SOURCE: http://www.outlookcode.com/d/code/setsavefolder.htm )
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 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?
Reply With Quote
  #4  
Old 09-17-2010, 01:29 AM
Joostdegrote Joostdegrote is offline Outbox sent items issue Windows 7 Outbox sent items issue Office 2007
Advanced Beginner
Outbox sent items issue
 
Join Date: Sep 2010
Location: The Netherlands
Posts: 45
Joostdegrote is on a distinguished road
Default

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)
Reply With Quote
Reply

Tags
sent as, sent items

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
manually sending a message from outbox Mr.McRude Outlook 0 06-17-2010 11:46 AM
Outlook 2007 Saved sent items list only holds the last ten items david.peake Outlook 0 06-01-2010 07:27 PM
Outbox not creating email saiyedhashmi Outlook 0 11-30-2009 09:25 PM
Outbox sent items issue 2007 Outlook Outbox issues MrPerkins Outlook 1 04-25-2009 03:14 PM
Outbox sent items issue outgoing messages going to outbox and not sending markmerid Outlook 1 01-17-2007 02:43 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:17 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft