Notes Error mit Feiertage importieren

[nyen]

Hallo zusammen,

hat jemand eine Idee, wie ich das Problem mit Feiertage importieren aus der Welt schaffe. Beim Importieren von Feier- oder Geurtstage kommt die Fehlermeldung: "Notes error: Notesdokument wurde gelöscht"  

Es muss eine Möglichkeit geben, ohne die Mail-DB neu anzulegen dieses Problem zu beheebn.

Vielen Dank im Voraus.

Nyen

[Tode]

man muss das "Feiertagsprofil" löschen... allerdings sollte man dann auch dafür sorgen, dass alle "alten" feiertage gelöscht wurden, sonst hat man sie nachher doppelt..

Hier der Code um das Profil aus der betroffenen Mail- DB zu löschen:

Dim ses as New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument

Set db = ses.currentdatabase
Set doc = db.getprofiledocument("HolidayProfile")

doc.remove(True)

HTH
Tode

[nyen]

Es passiert nichts, gleiche Fehlermeldung.

[Tode]

dann musst Du halt die Vorgehensweise in KB- Artikel 1089143 befolgen (zu finden unter www.ibm.com/support)

[nyen]

Hi Tode,

vielen Dank für deinen Tipp. Es hat wunderschön geklappt.

Ich habe zuerst eine neue Ansicht erstellt, die mit dem Feld "Type" alle Feiertage anzeigt. Dann habe ich alle Feiertage von der Ansicht gelöscht und
den Code HolidayProfile durchgeführt.

Anschlißend konnte ich alle Feiertage wieder importieren.

Gruß

Nyen

[Shadow]

Is vielleicht ja schon n bissl her, aber kann man das auch einem erklären, der von Notes nicht so das Verständniss hat, das er das dann auch hinkriegt ?

Hab hier nämlich das gleiche Problem.

[nyen]

Hi,

Ich hatte das Problem folgenderweise gelöst:


1. Eine persönliche  Ansicht für Kalendereinträge erstellen und alle Geburts-und Feietage löschen:

Im Menüpunkt Erstellen-Ansicht, eine neue Ansicht erstellen:

Auf Schaltfläche Bedingung hinzufügen klicken , im  Feldberich das Feld "Type" auswählen und Dokumente nach Holiday enthalten, suchen.

Unter Ansicht werden alle vorhandene Feiertage angezeigt - alle löschen.

2.  Nach dem Löschen der Dokumente kannst du folgenden Code  einfach in einem Mail-Dokumen unter dem Menüpunkt "Erstellen-Hotspot in einer Schaltfläche einfügenden und mit Klick ausführen:

Sub Click(Source As Button)
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set session = New NotesSession
   Set db = session.currentdatabase
   Set doc = db.getprofiledocument("HolidayProfile")
   If doc Is Nothing Then
      Msgbox "Keine Kalenderprofil vorhanden, biite den Agent beenden!"
   Else
      doc.remove(True)
      Msgbox "Holiday-Profile sind entfernt !"
   End If
End Sub


3.  Anschlißend kann der Kalender wieder importiert werden.


Gruß
Nyen

[Daniel]

in R6 klappt das nicht!

[nyen]

In R6 habe ich nicht getestet. Hat R6 auch Probleme mit Kalender?

[Daniel]

jo, bei uns mal schon 

[Matze69]

ich habe das Problem bei R7 - kann ich die vorgehensweise so übernehmen?

Was mache ich mit Geburtstagen, die der Mitarbeiter selber für sich eingetragen hat?

Danke
Matze