title image


Smiley Re: Outlook kalender serienelement auslesen die 2te
Hi Phill,



nachdem ich das mit der Terminserie mal getestet habe hab' ich auch endlich kapiert, was Du damit neulich gemeint hattest. Hier kann man nicht so ohne weiteres mit .End arbeiten, sondern muss den Umweg über GetRecurrencePattern gehen.



Ich poste Dir den Code, den ich neulich schon hier reingestellt habe, in einer modifizierten Fassung; hoffe, Du wirst daraus schlau:





Sub OutlookUrlaub()



Dim olAppl As Outlook.Application

Dim olNS As NameSpace

Dim olMAPIFolder As MAPIFolder

Dim olTermin As AppointmentItem

Dim olRecurrPatt As RecurrencePattern



Dim myStart As Date

Dim myEnd As Date





Set olAppl = New Outlook.Application

Set olNS = olAppl.GetNamespace("MAPI")

Set olMAPIFolder = olNS.GetDefaultFolder(olFolderCalendar)



For Each olTermin In olMAPIFolder.Items

With olTermin

If Year(.start) = Year(Now) Or Year(.End) = Year(Now) Then

If InStr(.Subject, "Urlaub") > 0 Then

If .start > .End Then

Debug.Print ">>>>>>>>>FEHLER<<<<<<<<<"

Else

myStart = CDate(.start)

If .IsRecurring = True Then

Set olRecurrPatt = .GetRecurrencePattern

myStart = CDate(olRecurrPatt.PatternStartDate)

myEnd = CDate(olRecurrPatt.PatternEndDate + 1)

Set olRecurrPatt = Nothing

Else

myStart = CDate(.start)

myEnd = CDate(.End)

End If

Do

Select Case Weekday(myStart)

Case vbSaturday, vbSunday

' machnix

Case Else

Debug.Print Format(myStart, "dd.mm.yyyy")

End Select

myStart = myStart + 1

Loop Until myStart >= myEnd

Debug.Print "------------------------"

End If

End If

End If

End With

Next



Set olTermin = Nothing

Set olMAPIFolder = Nothing

Set olNS = Nothing

Set olAppl = Nothing



MsgBox "Fertig!"



End Sub





Greetinx,

Eric



P.S.: Formatierten Code kannst Du posten, indem Du das Coding in HTML-pre-Tags einschließt; für ein Beispiel kuck mal hier unter "Präformatierter Text".

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: