DOCUMENT:Q130323  28-OCT-1999  [pcmail]
TITLE   :PC MAPI: Sample VB Code to Determine Mail Session User
PRODUCT :Microsoft Mail For PC Networks
PROD/VER:WINDOWS:3.0,3.2
OPER/SYS:
KEYWORDS:

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Mail for PC Networks, versions 3.0, 3.2 
-------------------------------------------------------------------------------

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

Additional query words:

======================================================================
Keywords          :  
Technology        : kbMailSearch kbZNotKeyword3 kbMailPCN320 kbMailPCN300
Version           : WINDOWS:3.0,3.2

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.