LISTA DE CONTATOS DO OUTLOOK

 Tópico anterior Próximo tópico Novo tópico

LISTA DE CONTATOS DO OUTLOOK

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#1694 - 19/12/2003 08:55:19

DOIDO_NNF
SAO PAULO
Cadast. em:Dezembro/2003


Pessoal,,como fao pra listar minha lista de contatos do outlook no vb?

Para que o mal prevalea, basta que os bons nao faam nada

Resposta escolhida #2334 - 24/12/2003 15:41:24

WIRTH
BLUMENAU
Cadast. em:Dezembro/2003



'Referencie o Activex Data Objects (ADO)
'de sua preferncia
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Long

    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset

    With con
        .ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
                            "Exchange 4.0;" & _
                            "MAPILEVEL=C:\...\dados de aplicativos\Microsoft\Address book\;" & _    'aponte para a pasta onde esta o ctalogo de endereos
                            "PROFILE=Outlook;" & _
                            "TABLETYPE=1;" & _
                            "DATABASE=NOMEDOCATALOGO.wab"
        .Open    
    End With

'GoTo 10
    With rs
        Set .ActiveConnection = con
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select * from [Contacts]"
        .MoveFirst
                
        Do While Not rs.EOF
            For i = 0 To rs.Fields.Count - 1
                Debug.Print rs(i).Name + vbTab + Format(rs(i).Value)
            Next i
                    
            rs.MoveNext
        Loop
        
        .Close
    End With

    Set rs = Nothing
    con.Close
    Set rs = Nothing



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45