Hi,

Actually I had assumed you had already set up a datasource, but now I look
at your code again, I see that you have not.

I agree with Doug that there is a simple manual process that allows you to
merge from Outlook.

If you have to automate, there are at least two major problems:
a. you cannot actually automate Outlook's Mail Merge feature because there
is no equivalent method in the Outlook Object model
b. you cannot (easily) automate a connection from Word to Outlook using
Word's OpenDataSource method because when you try to connect in the same way
that Word connects, you will always see a dialog box asking you to choose a
Contacts folder.

In your case, you appear to be having to do something special with your
Contact data. Unfortunately, I cannot tell what it is from your code
because, for example, I do not know what List1 is. As far as I can tell, you
are trying to produce multiple envelopes for each contact in an Outlook
Contacts folder. If so, it is probably easier to do one of the following
things:
a. Divide your processing into two steps:
1. create an output file and output one record to it for each envelope
2. start Word and either
 - open a pre-existing mail merge main document that already knows where
the output file in (1) is, and execute the merge or
 - create an envelope merge, use OpenDataSource to connect it to the file
you created in (1), insert the necessary MERGEFIELD fields, and perform the
merge
b. Do not use Merge.
1. Create a Word document with an envelope layout, perhaps with {
DOCPROPERTY } fields where you want to put your data
2. start Word and open that document
3. for each envelope, use Word automation to insert the data for the
envelope directly into the envelope, or set the values of the document
variables you created in (1), setting any zero-length strings to a space "
". Then print the envelope or save it to an output file.

If you use approach (b) you may find some useful sample code at
http://www.slipstick.com

If I have misuunderstood what you are trying to do, can you please go
through it step by step?

Peter Jamieson

  Set myOlApp = CreateObject("Outlook.Application")
   Set objWordApp = CreateObject("Word.Application")
   Set objWordDoc = objWordApp.Documents.Add
   objWordDoc.MailMerge.MainDocumentType = wdEnvelopes

  For i = 1 To fldFolder.Items.Count

       Set Contact = Outlook.Session.GetDefaultFolder(10).Items(i)
       a = Contact.Email1Address
       If bb = True Then
           For k = 0 To List1.ListCount - 1
               If a = List1.List(k) Then
                   r = Contact.FullName
                   v = Contact.BusinessAddress

'addr has the size of envelope
addr = Combo1.Text
ice = Left(addr, Len(addr) - InStr(addr, "("))
sp = Trim(ice)
objWordDoc.Envelope.DefaultSize = sp
objWordDoc.MailMerge.DataSource.FindRecord (a)
objWordDoc.Envelope.Insert Address:=r & Chr(10) & v, ReturnAddress:
=txtAddress.Text
With objWordDoc.MailMerge
       .Destination = wdSendToNewDocument
       .SuppressBlankLines = True

End With
objWordDoc.ActiveWindow.View.Type = wdPrintView
objWordApp.WindowState = wdWindowStateMaximize

       End If
       Next k
       End If
   Next i