XCLN: How to Add Recipients to an EFD Project (164331)


The information in this article applies to:

  • Microsoft Exchange Client 4.0
  • Microsoft Exchange Client 5.0
  • Microsoft Exchange Windows NT client 4.0
  • Microsoft Exchange Windows NT client 5.0
  • Microsoft Outlook, Exchange Server Edition
  • Microsoft Outlook 97 8.0
  • Microsoft Outlook 97 8.01
  • Microsoft Outlook 97 8.02
  • Microsoft Outlook 97 8.03
This article was previously published under Q164331

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
Modification Type:MinorLast Reviewed:8/18/2005
Keywords:kbhowto kbprogramming KB164331
©2004 Microsoft Corporation. All rights reserved.