How To Extract MAPI Properties of Current User in Outlook Form (263572)

MORE INFORMATION

1. Create a new Outlook form. To do this, on the Tools menu, click Forms, and then click Design a Form. In the Type window, click Message.
2. Click the (P.2) tab. On the Form menu, click Control Toolbox to display the Control Toolbox. Add a command button to the form. By default, the name of the new button is CommandButton1.
3. On the Form menu, click View Code to open the form script window, and then insert the following code into the window:

     Sub CommandButton1_Click()
     'Get data from Session.CurrentUser.
   
     Dim cdoSession 'As MAPI.Session
     Dim cdoAddrEntry 'As AddressEntry
     Dim strData  'as string
   
     'VBScript does not recognize constants!
     ' Define them explicitly or use their value.
     dim cdoPR_Account
     dim cdoPR_Office_Location  
     dim cdoPR_EntryID
     dim cdoPR_Business_Telephone_Number
     Dim vbCRLF
   
     cdoPR_Account = &h3a00001e
     cdoPR_Office_Location = &h3a19001e
     cdoPR_EntryID = &h0fff0102
     cdoPR_Business_Telephone_Number = &h3a08001f
     vbCRLF = chr(13) & chr(10)
   
     on error resume next
   
     'Start the CDO code to find a match.
     Set cdoSession = CreateObject("Mapi.session")
     cdoSession.Logon ,,false,false,0   'Use the existing Outlook session.
     if err.number <> 0 then msgbox "ERROR in logon: " & err.number & vbCRLF & err.description
   
     'Get the AddressEntry of the recipient/current user.
     Set cdoAddrEntry = cdoSession.CurrentUser
     if err.number <> 0 then msgbox "ERROR getting AddressEntry: " & err.number & vbCRLF & err.description
   
     'Get properties.
     strData = "Account: " & cdoAddrEntry.fields(cdoPR_Account)
     strData = strData & vbCRLF & "Location: " & cdoAddrEntry.fields(cdoPR_Office_Location)
     strData = strData & vbCRLF & "Business Telephone Number: " & cdoAddrEntry.fields(cdoPR_Business_Telephone_Number)
   
     Msgbox strData, 64 , "Information about current Outlook User"
   
     'Explicitly release objects.
     cdoSession.logoff 
   
     Set cdoAddrEntry = Nothing
     Set cdoSession = Nothing
     End Sub

4. Close the form script window.
5. On the Form menu, click Run This Form to run the form.
6. Click the (P.2) tab and then click the command button. Message boxes display the current user's name, location, and business phone number.