Fala galera

 

Estou com uma tarefa mto dificil e urgente, preciso ler os arquivos *.dbx gerados pelo outlook pela minha aplicação e não consegui de jeito algum ...

 

Sera q alguem pode me ajudar?

 

Valeu

Thiago

olha da uma visitada neste link q eu vi algo sobre isso la

 

 

Ok

Não consigo acessar o site, esta fora, sera q alguem teria mais alguma ideia?

Dê uma olhada neste código, ele acessa os contatos do outlook, tente modificar alguma coisa.

 

Até a próxima .

 

'Referencie o Activex Data Objects (ADO)
'de sua preferência
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=Outlook Address Book;" & _
                            "PROFILE=Outlook;" & _
                            "TABLETYPE=1;" & _
                            "DATABASE=c:     emp" 'You will need to change this!
 .Open
End With

With rs
        Set .ActiveConnection = con
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select * from [Contacts]"
        .MoveMin
               
        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