Ich habe mit Hilfe --- thanks to Peter Groh ---- einen Agenten der den Geburtstag aus dem ADressbuich in den Kalender übernimmt.
Leider weird dabei der Eintrag nur im aktuellen Jahr vorgenommen. Wie kann ich einen Eintrag gleich für die nächsten 5 Jahre machen.
mfg
harald
Sub Initialize
'-------- Programmed by Peter Groh @ note-it.de
'-------- 31.07.2002
' ACHTUNG: Nur angewählte Dokumente werden bearbeitet
'Weiterhin wird bei mehrmaligem Betätigen des Agenten immer wieder neue Dokumente erstellt
' Das Anzeigen des Datum-Icons müßte noch implementiert werden Feld _ViewIcon
Dim s As New NotesSession
Dim address As NotesDocument
Dim dc As NotesDocumentcollection
Dim vw As NotesView
Dim thisdb As NotesDatabase
Dim maildb As New NotesDatabase( "", "" )
Call maildb.OpenMail
Set thisdb = s.CurrentDatabase
Set dc= thisdb.Unprocesseddocuments
Set address=dc.GetFirstDocument
While Not address Is Nothing
txt="Geburtstag von " & address.FirstName(0) & " " & address.LastName(0)
If address.Birthday(0)="" Then
Print "Es wurde kein " & txt & " gefunden !"
Goto weiter
End If
Set calentry = New NotesDocument(maildb)
calentry.Form="Appointment"
calentry.AppointmentType="Jahrestag | 1"
calentry.Subject=txt
calentry.StartDate=address.Birthday
calentry.CalendarDateTime=address.Birthday
calentry.Repeats="1" '
calentry.RepeatFor="5"
calentry.Categories="Geburtstag"
calentry.WebCategories="Geburtstag"
Stop
calentry.Chair=s.Username
calentry.tmpOwner=s.Username
calentry.Principal=s.Username
calentry.Alarms="1"
' calentry.OrgRepeat="5"
' calentry.OrgTable="A0"
success = calentry.ComputeWithForm( False, False )
If success Then
Call calentry.Save( True, True )
Print "Kalendereintrag für " & txt & " abgespeichert"
Else
Print "Kalendereintrag für " & txt & " nicht abgespeichert"
End If
weiter:
Set address=dc.GetNextDocument(address)
Wend
End Sub