BUG: Anonymous Logon Causes Spooler to Hang During Logoff

Steps to Reproduce Behavior

1. Copy and paste the following code into an Access form.
   
   NOTE: The underscore is used as a line-continuation character:

         Sub Session_Logon_Anon()
           Dim cServerDName, enterprise, site, server As String
           Dim objSession As Object
           Set objSession = CreateObject("MAPI.Session")
   
           If Not objSession Is Nothing Then
              MsgBox "CreateObject('MAPI.Session') Failed"
           Else
            'Modify the next 3 lines to properly define the enterprise,
            'site, and server for your system.
            enterprise = ""
            site = ""
            server = ""
            cServerDName = "/o=" & enterprise & "/ou=" & site & _
                   "/cn=Configuration/cn=Servers/cn=" & server
          objSession.Logon _
            Profileinfo:=cServerDName & vbLf & vbLf & "anon", _
            showDialog:=False
          End If
         End Sub
   					

2. Place a breakpoint on the "End If" line.
3. When you stop at the breakpoint, click Exit on the File menu.

Back to the top