ThisOutlookSession not starting

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
If you set security to High and don't sign your project, no code will run. Set it to Medium and restart Outlook.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
I tried this and it did not work. Maybe something to do with our Exchange
Server Network, not sure. I reran the Selfcert app, and certified
"ThisOutlookSession" to my personal certificate, rebooted Outlook and it
works great again. Thanks.

Wanda
 
Back
Top