VBWEB - Acessa o banco de dados (contatos) do outlook

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Dicas
	Visual Basic (Banco de Dados)

Título da Dica: Acessa o banco de dados (contatos) do outlook

Postada em 4/2/2004 por Rochª

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:\temp" 'Folder do diretorio do banco
.Open
End With

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 con = Nothing


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