Anfrage = "select ""urn:schemas:mailheader:content-class"" "
    Anfrage = Anfrage & ",""DAV:href"",""DAV:displayname"" "
    Anfrage = Anfrage & " from scope ('shallow traversal of "
    Anfrage = Anfrage & Chr(34) & Domain & Chr(34) & "')"
    Anfrage = Anfrage & " WHERE [RESOURCE_DISPLAYNAME] LIKE '%- " & _
      Zählernummer & ".eml'"

Anfrage = "select ""urn:schemas:mailheader:content-class"" "
    Anfrage = Anfrage & ",""DAV:href"",""DAV:displayname"" "
    Anfrage = Anfrage & " from scope ('shallow traversal of "
    Anfrage = Anfrage & Chr(34) & Domain & Chr(34) & "')"
    Anfrage = Anfrage & " WHERE RESOURCE_DISPLAYNAME LIKE '%- " & Zählernummer _
      & ".eml'"

Dim RS  As ADODB.Recordset
    Dim Anfrage  As String
    Dim URL  As String
    Dim f  As ADODB.Field
    Dim RD As ADODB.Record
    Dim RD1  As ADODB.Record
 
 
    Set RS = CreateObject("ADODB.Recordset")
    Set RD = CreateObject("ADODB.Record")
 
 
    Anfrage = "select ""urn:schemas:mailheader:content-class"" "
    Anfrage = Anfrage & ",""DAV:href"",""DAV:displayname"" "
    Anfrage = Anfrage & " from scope ('shallow traversal of "
    Anfrage = Anfrage & Chr(34) & Domain & Chr(34) & "')"
    Anfrage = Anfrage & " WHERE [RESOURCE_DISPLAYNAME] LIKE '%- " & _
      Zählernummer & ".eml'"
 
    Const adModeReadWrite = 3
    RD.Open Domain, , adModeReadWrite 
    Set RD1 = RD
 
    RS.Open Anfrage, RD1.ActiveConnection
 
 
    If Recordset.RecordCount = -1 Then
        Kontakte_vergleichen = 0
    Else
        MsgBox "treffer"
    End If
    Exit Function