PC MAPI: Sample VB Code to Determine Mail Session UserLast reviewed: May 18, 1995Article ID: Q130323 |
The information in this article applies to:
SUMMARYThe simple Message Application Program Interface (MAPI) for Microsoft Mail for PC Networks does not include a function that allows developers to directly determine the current user who is logged into a mail session. However, that information can be obtained by using a workaround which basically involves saving a dummy message, finding that message, reading the message, and finally deleting it. MORE INFORMATION One possible example is outlined in the Microsoft Visual Basic version 3.0 code below: IMPORTANT NOTE: Make sure the MAPI declaration module (MAPILIB.BAS) is included in the project.
' ****************** WHOAMI ************************ ' ************************************************** ' Simple MAPI Declarations ' **************************************************Dim M As MAPIMessage Dim Mo As MapiRecip
' *************************************************** ' Set up the dummy message ' ***************************************************M.RecipCount = 0& M.FileCount = 0& MsgId$ = "" MsgType$ = "IPC.SIMPLEMAPI.WHOAMI" ' "Hidden" message M.Reserved = 0& M.Subject = "MAPIWhoAmI message" M.NoteText = "" M.MessageType = MsgType$ M.DateReceived = "" M.Flags = 0& msg1$ = "Current logged in user: " msg2$ = "At address: " NL = Chr(10)
' ************************************************** ' Login and start the MAPI Session ' **************************************************rc& = MAPILogon(Form1.hWnd, "", "", MAPI_LOGON_UI, 0&, lhSession&) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error logging in" EndEnd If ' *************************************************** ' Place the dummy message in the inbox ' *************************************************** '*********************************ReDim Mr(0 To 0) As MapiRecip ReDim Mf(0 To 0) As MapiFile '*********************************rc& = MAPISaveMail(lhSession&, Form1.hWnd, M, Mr(0), Mf(0), 0&, 0&, MsgId$) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error saving message" rc& = MAPILogoff(lhSession&, 0&, 0&, 0&) End End If ' *************************************************** ' Find then read the dummy message '****************************************************rc& = MAPIFindNext(lhSession&, 0&, MsgType$, "", 0&, 0&, MsgId$) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error during message find or no messages in Inbox." rc& = MAPILogoff(lhSession&, 0&, 0&, 0&) End End IfDo While (rc& = SUCCESS_SUCCESS) rc& = MAPIReadMail(lhSession&, 0&, MsgId$, 0&, 0&, M, Mo, Mr(), Mf()) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error during MAPIReadMail" Exit Do End If If M.MessageType = MsgType$ Then ' Return our user MsgBox msg1$ + Mo.Name + NL + NL + msg2$ + Mo.Address ' ************************************************** ' Delete the dummy message when found ' ************************************************** ' Delete dummy message rc& = MAPIDeleteMail(lhSession&, 0&, MsgId$, 0&, 0&) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error deleting message" Exit Do End If rc& = MAPIFindNext(lhSession&, 0&, MsgType$, MsgId$, 0&, 0&, MsgId$) Loop ' ************************************************** ' Logoff ' ************************************************** rc& = MAPILogoff(lhSession&, 0&, 0&, 0&) If rc& <> SUCCESS_SUCCESS Then MsgBox "Error logging off """End Additional reference words 1.00 |
KBCategory: kbprg kbcode
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |