USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ler dados do e-mail (Notes) pelo VB
José Reinaldo
SP
SP - BRASIL
ENUNCIADA !
Postada em 15/07/2004 23:44 hs         
Ola,
 
tenho uma aplicação em VB que envia e-mails atraves do notes, agora preciso que essa aplicação tbm leia a caixa de entrada e pegue os dados do e-mail e grave em variaveis para q eu possa fazer um insert em uma tabela...
alguem pode me ajudar ?
Agradeço desde ja
Reinaldo
 
   
PC²
Pontos: 2843 Pontos: 2843
JUCUTUQUARA, VITÓRIA
ES - BRASIL
ENUNCIADA !
Postada em 16/07/2004 07:37 hs            
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

____________________________

PC²   T+

 

   
José Reinaldo
SP
SP - BRASIL
ENUNCIADA !
Postada em 16/07/2004 08:00 hs         
Valeu cara, vou testar !!!
   
|-tom-|
Pontos: 2843
CATANDUVA
SP - BRASIL
ENUNCIADA !
Postada em 16/07/2004 08:54 hs            
neste link tem alguns topicos sobre e=mail da uma olhada la pra ve se te ajuda
 
ok

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

                                                                                              Isaías 26:4  Emoções 

 

   
Alonso
não registrado
Postada em 18/02/2009 11:57 hs   
Em project/references não aparece Lotus Domino Objects, alguém pode me ajudar ?
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página