Ausnahme eines Serienelements per vba ändern?

15/11/2008 - 15:41 von Martin Bichler | Report spam
Hallo,

ich möchte per vba die Ausnahmen einer Serie àndern.
Mein Code sieht so aus:


Dim myolApp As Outlook.Application
Set myolApp = CreateObject("Outlook.Application")
Set mynamespace = myolApp.GetNamespace("MAPI")
Set myFolder = mynamespace.GetDefaultFolder(olFolderCalendar)
Set myitems = myFolder.Items

For Each termin In myitems
If termin.IsRecurring = True Then
If termin.GetRecurrencePattern.Exceptions.Count > 0 Then
For Each ausnahme In termin.GetRecurrencePattern.Exceptions
ausnahme.AppointmentItem.Subject = "mein neuer Betreff"
Next
End If
End If
termin.Save
Next


Es kommt zwar keine Fehlermeldung, aber es wird auch nichts geàndert.
Versuche ich testweise, die Ausnahmen nicht zu àndern sondern zu löschen,
indem ich diese Zeile
"ausnahme.AppointmentItem.Subject = "mein neuer Betreff""
durch diese ersetze
"ausnahme.deleted = true"
dann kommt die Meldung "Die Eigenschaft ist schreibgeschützt.

Was kann ich machen?


Danke
Martin
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
15/11/2008 - 16:24 | Warnen spam
Am Sat, 15 Nov 2008 15:41:14 +0100 schrieb Martin Bichler:



Hallo,

ich möchte per vba die Ausnahmen einer Serie àndern.
Mein Code sieht so aus:


Dim myolApp As Outlook.Application
Set myolApp = CreateObject("Outlook.Application")
Set mynamespace = myolApp.GetNamespace("MAPI")
Set myFolder = mynamespace.GetDefaultFolder(olFolderCalendar)
Set myitems = myFolder.Items

For Each termin In myitems
If termin.IsRecurring = True Then
If termin.GetRecurrencePattern.Exceptions.Count > 0 Then
For Each ausnahme In termin.GetRecurrencePattern.Exceptions
ausnahme.AppointmentItem.Subject = "mein neuer Betreff"
Next
End If
End If
termin.Save
Next


Es kommt zwar keine Fehlermeldung, aber es wird auch nichts geàndert.
Versuche ich testweise, die Ausnahmen nicht zu àndern sondern zu löschen,
indem ich diese Zeile
"ausnahme.AppointmentItem.Subject = "mein neuer Betreff""
durch diese ersetze
"ausnahme.deleted = true"
dann kommt die Meldung "Die Eigenschaft ist schreibgeschützt.

Was kann ich machen?


Danke
Martin



Hallo Martin,

Du mußt Ausnahme.AppointmentItem.Save aufrufen.

Viele Gruesse
Michael Bauer - MVP Outlook

: Outlook-Kategorien? Category Manager ist die Lösung
: VBOffice Reporter für Datenanalyse & Berichte
: <http://www.vboffice.net/product.html?pub=6>

Ähnliche fragen