FILE: Showform.exe Displays Message in its Own Form with VB

• Extended Messaging Application Programming Interface (MAPI), version 1.0
• Collaboration Data Objects (CDO), version 1.1

SUMMARY

Showform.exe provides a dynamic-link library (DLL) containing a function that can be called from Visual Basic allowing you to display a message from an Active Messaging session in its own form.

MORE INFORMATION

The following file is available for download from the Microsoft Download Center. Click the file name below to download the file:

Showform.exe

http://www.microsoft.com/downloads/search.asp

*******************************************************************
SHOWFORM Sample
*******************************************************************

Purpose
-------

 - Provide a DLL function that may be called from a Visual Basic
   application that is using Active Messaging.

 - Provide a sample of Extended MAPI code illustrating how to display
   a message in its own form.

Files
-----

The Showform.exe contains the following files:

 - Readme.txt    - contains general information about this sample
 - Showform.dll  - release version of the sample DLL
 - Showformd.dll - debug version of the sample DLL
 - Main.cpp      - source file for the DLL
 - Main.h        - header file for the DLL
 - Showform.def  - definition file for DLL Exports
 - Showform.dsp  - project file for the sample
 - Showform.dsw  - workspace file for the sample

Note that the project and workspace files were created in Microsoft
Visual C++ version 5.0.

How to Use
----------

The following is sample Visual Basic code that you can use to call the
ShowForm function in the sample DLL. Be sure to check "Microsoft Active
Messaging 1.1 Object Library" in the References dialog box from the Project
menu.

    ' Place this code in the General declarations of the main module
    ' of your project.

     Public Declare Function ShowForm _
        Lib "c:\mapitest\showform\debug\showform.dll" _
        Alias "showform" (ByVal ProfileName As String, _
                          ByVal MsgID As String, _
                          ByVal FolderID As String, _
                          ByVal StoreID As String, _
                          ByVal hWnd As Long) _
        As Integer

    ' Place this code in the Click event of a CommandButton on a
    ' form in your project.

    Dim bRet As Integer
    Dim oSession As Object
    Dim oMsg As Object

    ' Create a MAPI Session.

    Set oSession = CreateObject("MAPI.Session")
    If oSession Is Nothing Then
        MsgBox "Could not create Mapi Session", vbOKOnly, "VBSendRTF"
        End
    End If

    ' Logon to the Session.
    oSession.Logon

    ' Locate the first message in the Inbox.
    ' NOTE: You could insert code here to locate the specific message
    ' that you want to view.
    Set oMsg = oSession.Inbox.Messages.GetFirst

    ' You must call the Update method of the message object in order
    ' to obtain the actual Entry IDs associated with the message.
    oMsg.Update

    'Show the Message Form.
    bRet = ShowForm(oSession.Name, oMsg.ID, oMsg.FolderID, _
                    oMsg.StoreID, hWnd)

    If Not bRet = 0 Then
        MsgBox "Show Form Failed with error: " & Hex$(bRet), _
               vbOKOnly, "VBShowForm Warning"
    End If 

REFERENCES

For additional sample Extended MAPI code, please see the following article in the Microsoft Knowledge Base:

Q170601 HOWTO: Displaying the Compose IPM.Note Form

Q176916 INFO: Active Messaging and Collaboration Data Objects (CDO)

Additional query words: PrepareForm

Keywords : kbcode kbfile kbCDO kbCDO110 kbMAPI kbMsg kbMAPI100
Version : WINDOWS:1.0,1.1
Platform : WINDOWS
Issue type :