[AP] SourceDB.UnprocessedDocuments

Set pcol = SourceDB.UnprocessedDocuments
If pcol.Count = 0 Then Exit Sub
Set pdoc = pcol.GetFirstDocument