hent møde gentagelser fra exchange

Du får ikke opdateret datoen i DateAdd. Prøv fx:

Dim datoslut, i
datoslut = DateValue("06-05-2012")
i = DateValue("06-05-2011")
Do While i < datoslut
i = DateAdd("ww", 1, i) 'lægger én uge til
fl.Write(i)
fl.WriteBlankLines(1)
Loop

tak, det ser ud til at virke, så kommer der lige en ændring.

hvordan vil du lave så datoslut, automatisk tager dags dato, og lægger et år til. således den kun genere tidspunkter for et år?

Følgende gi'r datoerne fra 06-05-2011 til 04-05-2012:

Dim datoslut, i

i = DateValue("06-05-2011")
datoslut = DateAdd("yyyy", 1, i) 'lægger ét år til

Do While i < datoslut
fl.Write (i)
fl.WriteBlankLines (1)
i = DateAdd("ww", 1, i)          'lægger én uge til
Loop

Bemærk at jeg har byttet om på skrivning til fil og tilskrivning af en uge i loop'et for at få startdato med, samt at gøre slutdato eksklusiv.

Det er jeg godt klar over, men bruger jeg de parametere jeg får fra exchange, er der events frem til år 4500, det er lidt overkill at udregne så mange møde tidspunkter, så hvis man kunne lave så den kun regende ud fra dags dato og et år frem?

det ser sådan her ud:

Dim datoslut, i
datoslut = DateValue(objPattern.PatternEndDate)
i = DateValue(objPattern.PatternStartDate)
Do While i < datoslut
i = DateAdd("ww", 1, i) 'lægger én uge til
fl.Write(i)
fl.WriteBlankLines(1)
Loop

objPattern.PatternEndDate = dato for endelse af events, ser sådan her ud: "31-12-4500 23:59:00"

objPattern.PatternStartDate = start dato, ser sådan her ud: "13-05-2011"

der ud over, hvis man har brug for at have 2 loops i sin kode, hvordan gør man så det? hvis jeg genbruger din kode, og ændre parameterne, så får man fejl på "i" da det er brugt, og ændre man det til "i2" så giver det også en fejl.?

nå har vist fået det til at virke, hvordan får jeg den til at tage dags dato, og lægge et år der til?

Skifter:
i = DateValue(objPattern.PatternStartDate)
ud med:
i = Date    'Sætter 'i' lig dagsdato (systemdato forstås)

har fået det til at virke, tak for hjælpen. Kom med et svar :)

Det lyder fint. :-)
Og svar...