Anzahl empfangener externer eMails ermitteln

[chris2212]

Hallo,

für folgende Aufgabenstellung benötige ich Eure Unterstützung.

Aus der pers. Maildatenbank soll regelm. eine Auswertung der externen
eMails die z.B. vom 01.06.2006 - 30.06.2006 täglich zwischen
18:00 und 08:00 Uhr zugestellt wurden.


Das was ich bis jetzt habe: (ist nicht besonders "hübsch" aber tut)


Sub Initialize
Dim session As New  NotesSession
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
   
Dim routeServer As String
Dim searchDiff As Integer
   
Dim deliveryDiff As Variant   
Dim startDate As String
Dim endDate As String
Dim totalCount As Integer   
   
Set col = session.CurrentDatabase.AllDocuments
Set doc = col.GetFirstDocument
deliveryDiff = 0
totalCount = 0
Open "C:\External eMails by Date.txt" For Output As #1
Write #1,"Posted Date","Subject","From"
startDate = "01.06.2006"
endDate = "30.06.2006"

While Not (doc Is Nothing)
If doc.HasItem("Form") Then
If doc.Form(0) = "Memo" Or doc.Form(0) = "Reply" Then
If doc.HasItem("RouteServers") Then
If Instr(Lcase(doc.From(0)),"myOrganization") = 0 Then
deliveryDiff = Datevalue(endDate) -  Datevalue(startDate)
If Datevalue(Left(doc.PostedDate(0),10)) <= Datevalue(endDate) Then
If Datevalue(Left(doc.PostedDate(0),10)) >= Datevalue(startDate) Then
totalCount = totalCount +1
Write #1, doc.PostedDate(0), doc.Subject(0),doc.From(0)
End If
End If
End If
End If
End If
End If
deliveryDiff = 0
Set doc = col.GetNextDocument(doc)
Wend
Write #1, Cstr(totalCount) & " total external eMails delivered between: " & startDate & " " & endDate
Close #1
End Sub

FRAGE:
Wie komme ich jetzt für diesen Zeitraum auf die Anzahl der externen
eMails die zwischen 01.06.2006 18:00 Uhr und 30.06.2006 08:00
zugestellt wurden?


Für jede Unterstützung dankbar!

Gruß
Chris

[LN4ever]

Mit TimeValue. Genauso wie du es jetzt mit Datevalue machst.