DOCUMENT:Q164331  06-DEC-2000  [exchange]
TITLE   :XCLN: How to Add Recipients to an EFD Project
PRODUCT :Microsoft Exchange
PROD/VER:WINDOWS:4.0,5.0,8.0; Win95:4.0,5.0; :8.0,8.01,8.02,8.03
OPER/SYS:
KEYWORDS:kbprogramming

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

 - Microsoft Exchange Windows 3.x client, versions 4.0, 5.0 
 - Microsoft Exchange Windows NT client, versions 4.0, 5.0 
 - Microsoft Exchange Client for Windows 95, versions 4.0, 5.0 
 - Microsoft Outlook, Exchange Server Edition, version 8.0, used with:
    - the operating system: Microsoft Windows versions 3.1, 3.11 
 - Microsoft Outlook 97, versions 8.0, 8.01, 8.02, 8.03 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows you two methods to programmatically add a recipient to a
Microsoft Electronic Forms Designer Form using Microsoft Visual Basic version
4.0 for 16 bit applications. One method uses OLE messaging and the other uses
Msriched.vbx.

MORE INFORMATION
================

Method 1
--------

This method uses OLE messaging.

NOTE: For the following code to function properly, at least one recipient must be
placed on the To line (by using the Form user interface)

      Private Sub Command1_Click()
      'Call this sub routine from the Window_Store() function.
      'Towards the end of the function, just above the
      '"Window_Store = True" line of code

      Dim szRecip As String
      Dim objOneMsg As Object
      Dim objOneRecip As Object

      szRecip = "John Doe"
      Set objOneMsg = mfobj.message
      Set objOneRecip = objOneMsg.Recipients.Add
      objOneRecip.Name = szRecip
      objOneRecip.Type = 1    'MapiTo
      objOneRecip.Resolve

      objOneMsg.Update

      End Sub

Method 2
--------

This method uses Msriched.vbx.

      Private Sub Command1_Click()
      Dim szRecip As String

      szRecip = "John Doe"
      ctlTo.Text(0) = szRecip
      ctlTo.TextBlocks = Len(szRecip)

      End Sub

Additional query words:

======================================================================
Keywords          : kbprogramming 
Technology        : kbOutlookSearch kbExchangeSearch kbExchangeClientSearch kbZNotKeyword2 kbZNotKeyword3
Version           : WINDOWS:4.0,5.0,8.0; Win95:4.0,5.0; :8.0,8.01,8.02,8.03
Issue type        : kbhowto

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

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 2000.