<div>
JOrzech, 
 
I was originaly only planning to use the &quot;built-in&quot; email merge but I'll look up the VB one and try this, if it works I'll come back and &quot;accept&quot;
</div>

<div>
if anyone has an example, or knows where I could find a quick example of the vb one it would help
</div>

<div>
What if you ensure that the computer you run the mail merge on has settings in outlook so that all messages sent have a read/delivery receipt selected as default.. Do the messages that are created via the mail merge then honour this settings and have it set, or do they ignore the settings specified in outlook? 
&nbsp; 

</div>

<div>
za_mkh, 
 
Sadly it appears that no the mail merge does not do this, I'll continue to test and will continue to look for a vb script.
</div>

<div>
I've found the following code... but I just copied it as is - I apologize, but I currently do not have time to tweak it....possibly later today I can re-look at this but wanted to get you the code I found online : 
 
&nbsp; 
 

<pre><code class="code-100 nolinks" id="code-121747">Private Sub Send_Email_Click()
 
Dim sFile As String
Dim i As Integer
Dim itm As Object
Dim ID As String
Dim wd As Word.Application
Dim Doc As Word.Document
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Dim oReceipt As Outlook.Recipient
 
' check buletin selected for sending
 
If Nz(Me!sendEBS, &quot;&quot;) = &quot;&quot; Then
 MsgBox &quot;Please select a bulletin to send&quot;
 Exit Sub
End If
 
 
'get email addresses record set
 
 Select Case Me!sTo
 
 Case Is = &quot;Members&quot;
 Set rs = CurrentDb.OpenRecordset(&quot;SELECT [EmailName] FROM [Contacts] WHERE [Contact_Type] = 'Member'&quot;, dbOpenSnapshot, dbSeeChanges)
 Case Is = &quot;Prospects&quot;
 Set rs = CurrentDb.OpenRecordset(&quot;SELECT [EmailName] FROM [Contacts] WHERE [Contact_Type] = 'Prospect'&quot;, dbOpenSnapshot, dbSeeChanges)
 Case Else
 MsgBox &quot;Please select a recipient&quot;
 Exit Sub
 End Select
 
'Are You Sure
If vbNo = MsgBox(&quot;Send [ &quot; &amp; Me!sendEBS &amp; &quot; ] To [ &quot; &amp; Me!sTo &amp; &quot; ], Are you sure?&quot;, vbYesNo) Then
 Exit Sub
End If
 
Msg = &quot;Enter the subject to be used for each email message.&quot; ' Set prompt.
 
tit = &quot; Email Subject Input&quot; ' Set title.
 
' Display message, title
 
sSubject = InputBox(Msg, tit)
 
If Nz(sSubject, &quot;&quot;) = &quot;&quot; Then
 MsgBox &quot;You must supply an email subject&quot;
 Set rs = Nothing
 Exit Sub
End If
 
sFile = EBS_DIR &amp; Me!sendEBS
 
Set wd = CreateObject(&quot;Word.Application&quot;)
 
Set Doc = wd.Documents.Open(FileName:=sFile, ReadOnly:=True)
 Set itm = Doc.MailEnvelope.Item
 With itm
 .To = DEFAULT_EMAIL
 .Subject = sSubject
 .Save
 ID = .EntryID
 End With
 
'clear references
Doc.Close wdDoNotSaveChanges
wd.Quit False
 
Set itm = Nothing
Set Doc = Nothing
Set wd = Nothing
 
' start email and get saved item
 Set objApp = CreateObject(&quot;Outlook.Application&quot;)
 
 Set l_Msg = objApp.GetNamespace(&quot;MAPI&quot;).GetItemFromID(ID)
 
 With l_Msg
 
 'Loop over recipients
 Do While Not rs.EOF
 Set oReceipt = .Recipients.Add(rs.Fields(&quot;EmailName&quot;))
 oReceipt.Type = olBCC
 rs.MoveNext
 Loop
 
 rs.Close
 Set rs = Nothing
 
 ' add any attachments
 If (Me.editEBS.ListCount &gt; 0) Then
 i = 0
 
 Do While i &lt; Me.attEBS.ListCount
 .Attachments.Add (Me.attEBS.ItemData(i))
 i = i + 1
 Loop
 
 End If
 
 .Display
 End With
 
 
 'clear references
 
 Set oReceipt = Nothing
 Set l_Msg = Nothing
 Set objApp = Nothing
 
End Sub
</code></pre>
</div>

<div>
I'll take a look at this right away, thanks JOrzech
</div>

<div>
That code seems to be part of a bigger application, 
 
I'm going to award your first respoince with full points as it is the two flags one can set in VBA to make this happen.
</div>

<div>
Thanks very much PhilippeT.
</div>

<div>
<div class="content wysiwyg-content">
I need to send out a large number of e-mails and wll be merging information into a document, but I would like to be able to track who opens the email, when they received it by using the 'read receipt' option and the 'delivery receipt' options, Is this possible in office 2002? 
 
Thanks
</div>
</div>

I need to send out a large number of e-mails and wll be merging information into a document, but I would like to be able to track who opens the email, when they received it by using the 'read receipt' option and the 'delivery receipt' options, Is this possible in office 2002?

Thanks

Office Email Merge with email options (Read receipt, delivery receipt, etc)

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.

Outlook

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.