XCLN: How to Add Recipients to an EFD Project

The information in this article applies to:

• Microsoft Exchange Windows 3.x client, versions 4.0 and 5.0
• Microsoft Exchange Windows NT client, versions 4.0 and 5.0
• Microsoft Exchange Windows 95 client, versions 4.0 and 5.0
• Microsoft Outlook for Windows 3.1x, Exchange Server Edition, version 8.0
• Microsoft Outlook Windows 95 client, versions 8.0, 8.01, 8.02, and 8.03
• Microsoft Outlook Windows NT client, versions 8.0, 8.01, 8.02, and 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

Keywords          : XCLN kbprg
Version           : WINDOWS:4.0,5.0;winnt:4.0,5.0;Win95:4.0,5.0
Platform          : WINDOWS
Issue type        : kbhowto