Article ID: 193451
Article Last Modified on 3/4/2004
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<%
CONST strServer = <Valid ServerName>
CONST strMailbox = <Valid MailboxName>
Dim objSession
Dim strProfileInfo
strProfileInfo = strServer & vbLf & strMailbox
Set objSession = Server.CreateObject("MAPI.Session")
Response.Write(objSession.CurrentUser)
objSession.Logon "", "", False, True, 0, True, strProfileInfo
Response.Write("Logged into Mailbox as: " & objSession.CurrentUser _
& "<br>")
objSession.Logoff
Set objSession = Nothing
%>
</BODY>
</HTML>
Keywords: kbmsg kbprb kbfaq KB193451