KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Q164331: XCLN: How to Add Recipients to an EFD Project

Article: Q164331
Product(s): Microsoft Exchange
Version(s): WINDOWS:4.0,5.0,8.0; Win95:4.0,5.0; :8.0,8.01,8.02,8.03
Operating System(s): 
Keyword(s): kbprogramming
Last Modified: 06-DEC-2000

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