Article ID: 177630
Article Last Modified on 2/12/2007
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
Keywords: kbbug kbmsg kbnofix KB177630