Könnte mir wieder mal einer helfen?? Ich sehe in diesen Abschnitt überhaupt nicht durch. Ich kann es nicht nachvollziehen was der Programmierer sich da bei gedacht hat.
Seht ihr hier durch??? Das if ist ja klar aber was er macht wenn if war
DayNow=Now
DayOfWeekDelete = 7 'Samstag
NumberOfWeekDelete = 3 ' 3te Woche im Monat
If (Day(DayNow)\7 = NumberOfWeekDelete And Weekday(DayNow) = DayOfWeekDelete) then
'geändert 14.12.04 ??
'call Message(1,0,"AditoExchange","FullDelete Exchange","")
'ende
sSQL="select * from """&strURL_Full&""""
sSQL=sSQL & " WHERE "
sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"
'strSqlSource = strSqlSource
Else
'geändert 14.12.04 ???
'call Message(1,0,"AditoExchange","PartDelete Exchange","")
sSQL="select * from """&strURL_Full&""""
sSQL=sSQL & " WHERE "
sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"
sSQL=sSQL & " AND ( "
sSQL=sSQL & WHEREAID
sSQL=sSQL & " ) "
'strSqlSource = strSqlSource & " AND ( ( FDatumEdit between DATEADD(day, -32, getdate()) and getdate() ) OR ( ADatumEdit between DATEADD(day, -32, getdate()) and getdate() ) OR ( MDatumEdit between DATEADD(day, -32, getdate()) and getdate() ) OR ( FDatumNeu between DATEADD(day, -32, getdate()) and getdate() ) OR ( ADatumNeu between DATEADD(day, -32, getdate()) and getdate() ) )"
end If
Danke im voraus
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
