Nope. It doesn't exist yet so you get to write it.

As a matter of efficiency, do not use the GetNthDocument function (or use it sparingly). It is a dastardly slow call as it is just a loop from the beginning out $N number of times. Here's a sample of how it really works. Yuck!

sub DumpDoc
{
    my $doc = shift;
    return
        map +( $_->Name, [ @{ $_->Values } ] ),
        @{ sort { $a cmp $b } $doc->Items };
}

Function GetFirstDocument( DC as NotesDocumentCollection, N As Long ) 
+As NotesDocument
    Dim Doc As NotesDocument
    Dim Count As Long

    If N < 1 Then Exit Function

    Set Doc = DC.GetFirstDocument
    Select Case N
    Case 1
        Set GetFirstDocument = Doc
    Case Else
        While Not Doc Is Nothing And Count < N
            Set Doc = DC.GetNextDocument( Doc )
            Count = Count + 1
        Wend
    End Select

    Set GetFirstDocument = Doc
End Function
[download]