Using Redemption and assuming that the Folder variable points to an
Outlook.MAPIFolder object that contains the NDRs:

set Items = Folder.Items
set SafeReport = CreateObject("Redemption.SafeReportItem")
for each msg in Items do
if msg.Class =46 Then 'make sure it tis really a report
SafeReport.Item = msg
for i=1 to SafeReport.Recipients.Count
set Recip = SafeReport.Recipients.Item(i)
MsgBox Recip.Address
next
end If
next

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Gordon Filby" wrote in message
...
Hallo,

Thanks for the prompt reply.

Is there really no other way, I have no clue about Extended MAPI/CDO
1.21/Redemption.

A typical message looks like this:

Conferma del messaggio inviato a
alle 24/06/2006 13.19

Il messaggio è stato visualizzato nel computer del destinatario alle
26/06/2006 9.59



and the from line also includes the Email address I need. Is there no way
I can dig it out.? What kind of objects are these messages?



Thanks,



Gordon Filby







"Dmitry Streblechenko" schrieb im Newsbeitrag
...
You will need to use Extended MAPI/CDO 1.21/Redemption to read the
message recipients collection.
Note that the ReportItem object in the Outlook Object Model does not
expose the Recipients collection.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Gordon Filby" wrote in message
...
Hi,

does anyone have an idea how to do the subject using VBA? I have copied
all read/delivered messages into a single folder and would like to
respond with a standard message.

Many thanks,

Gordon Filby