Make a list of Readreceipts' username

  • Thread starter Thread starter papou
  • Start date Start date
P

papou

Hi all
Outlook 2000 SR1
I would like to write a text file with each name from a list of readreceipts
received in a folder.
I know how to do the 1st part (ie writing to a text file with VBA) but as
for the 2nd part, I have tried this below but obviously can't get any
further.

'**** START ****
Dim myFolders As Folders
Set myFolders = _
Application.ActiveExplorer.CurrentFolder.Folders
With myFolders.Item("Reçus comDS").Items
For i = 1 To .Count
MsgBox .Item(i).UserProperty
Next i
End With
'**** END ****

Can somebody help?
TIA

Cordially
Pascal
 
What information from the read receipts are you trying to output to the file?
If you want to output the message subject, for example, this is how you
would do it:

Dim objItem As Object, strSubject As String

With myFolders.Item("Reçus comDS").Items
For i = 1 To .Count
Set objItem = myFolders.Item("Reçus comDS").Items(i)
strSubject = objItem.Subject
'Output strSubject to your file
Next i
End With
 
Back
Top