I have 2500 undeliverable messages. Is there a quick way to grab the Sendto field for all these messages?thanks
Milton
Subject: Something like this…
Perhaps something like this (untested, but should work)?
Set db = New NotesDatabase(“server/Domain”,“mail.box”)
Set view = db.GetView(“Mail”)
Set col = view.AllEntries
Open “c:\Deadmail.txt” For Output As #1
Set entry = col.GetFirstEntry
Do Until entry Is Nothing
If entry.ColumnValue(7)<>“” Then
Print #1, Join(entry.ColumnValue(4),Chr$(13))
End If
Set entry = col.GetNextEntry(entry)
Loop
Close #1
That should get you the recipients for all mail with a failure.