XCLN: How to Add Recipients to an EFD Project

MORE INFORMATION

Method 1

   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

   Private Sub Command1_Click()
   Dim szRecip As String

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

   End Sub