Olá amigo,

 

veja se isto resolve:

 

    ' Faça uma reference ao Lotus Domino Object Library
    '===================================================================
    ' Declares das variáveis do Notes COM    '===================================================================
    Dim n_Session As New Domino.NotesSession
    Dim n_Database As New Domino.NotesDatabase
    Dim n_Document As NotesDocument
    Dim n_ViewEntry As NotesViewEntry
    Dim n_View As NotesView
    Dim n_ViewNav As NotesViewNavigator
    Dim l_TestVariable As String

 

 

    '===================================================================
    ' iniciarliza e seta a database
 '==================================================================
    n_Session.Initialize
    '===================================================================
    ' Set database
    '===================================================================
    Set n_Database = n_Session.GetDatabase("Your Server Name", _
                                           "YourFileLocationYourFile.nsf")
    ' Set to view
    Set n_View = n_Database.GetView("NameOfYourView")
    ' Set view navigator
    Set n_ViewNav = n_View.CreateViewNav
    ' primeiro
    Set n_ViewEntry = n_ViewNav.GetMinDocument()
   
    '===================================================================
    ' Loop pelos registros
    '===================================================================
    Do While Not (n_ViewEntry Is Nothing)
    
        Set n_Document = n_ViewEntry.Document
        
        l_TestVariable = n_Document.GetItemValue("TestFieldName")(0)
       
        '---------------------------------------------------------------
        ' proximo
        '---------------------------------------------------------------
        Set n_ViewEntry = n_ViewNav.GetNextDocument(n_ViewEntry)
       
    Loop
   
    '===================================================================
    ' resetando vars
    '===================================================================
    Set n_ViewEntry = Nothing
    Set n_ViewNav = Nothing
    Set n_View = Nothing
    Set n_Document = Nothing
    Set n_Database = Nothing
    Set n_Session = Nothing

boa

Valeu cara, vou testar !!!

neste link tem alguns topicos sobre e=mail da uma olhada la pra ve se te ajuda

 

ok