We are using Outlook 2003 on a Windows 2000 network. When we were using
Outlook 2000 we went to TOOLS, MACRO, VB EDITOR and on "ThisOutlookSession"
for Application, ItemSend we created this code:
**********
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objNS As NameSpace
Dim objFolder As MAPIFolder

If Not Autoforward Then

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder

'If TypeName(objFolder) "Nothing" And IsInDefaultStore(objFolder) Then
If TypeName(objFolder) "Nothing" Then
Set Item.SaveSentMessageFolder = objFolder
End If

Set objFolder = Nothing
Set objNS = Nothing
End If
Autoforward = False

End Sub
****************

The code would bring up all our folders, so we could select the folder we
want to put our sent message into. Saved us doing it later. Now that we
have moved to Outlook 2003, this is not working. Tried setting the Security
lower then "high", but that does not work either. Is there something new we
need to do with Outlook 2003 to make this macro work automatically?

Thanks very much.

Wanda