PC MAPI: Sample VB Code to Determine Mail Session User (130323)
The information in this article applies to:
- Microsoft Mail for PC Networks 3.0
- Microsoft Mail for PC Networks 3.2
This article was previously published under Q130323 SUMMARY
The 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"
End
End 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 If
Do 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
| Modification Type: | Major | Last Reviewed: | 10/28/1999 |
|---|
| Keywords: | KB130323 |
|---|
|