an der markierten stelle hängt er sich dann mit laufzeitfehler438 auf.
grüße
s.feher
Private Sub ListView1_DblClick()
Dim oMail As Object
Dim strVon$, strBis$
With ListView1
strVon = Format(CDate(.SelectedItem.SubItems(2)), "dd.mm.yyyy hh:mm")
strBis = Format(CDate(.SelectedItem.SubItems(2)) + TimeSerial(0, 1, 0), "dd.mm.yyyy hh:mm")
Set oMail = objFolder.Items
Set oMail = oMail.Restrict("[ReceivedTime] >= '" & strVon & "'" & _
"AND [ReceivedTime] If oMail.SenderEmailAddress = .SelectedItem.SubItems(1) And _
oMail.ReceivedTime = .SelectedItem.SubItems(2) Then
Set Item_Mail = oMail
Unload Me
Exit For
End If
Next oMail
End With
End Sub