Hallo liebe Notisten,
ich habe folgendes Script (
http://www.eknori.de/tips/reminder.htm)
das einen Eintrag in den Kalender des Users macht.
Dieser Eintrag dient als Erinnerung für eine Wiedervorlage.
Ich habe damit aber 2 Probleme:
Wie kann ich diesen Eintrag löschen bzw. ändern ?
(Ich vermute ich benötige die Universal ID dieses Eintrags,
aber woher/ wie bekomme ich die ?)
Ich würde gerne das Symbol des Eintrags selbst setzen,
aber folgende Zeile bleibt ohne Auswirkungen :
.ReplaceItemValue "ViewIcon", "01"
Hat dazu jemand irgendeine Idee ?
Viele Grüße
Don Pasquale
Sub createReminder( dateTime As notesDateTime, JNAlarm As String, popUpStr As String, subjectStr As String, infoStr As String ,DocID As String)
Dim sess As New NotesSession
Dim userMailDb As New NotesDatabase( "", "" )
Dim reminderDoc As NotesDocument
Dim DTItem As NotesItem
Call userMailDb.OpenMail
If userMailDb.IsOpen Then
Set reminderDoc = New NotesDocument( userMailDb )
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem
Set db = s.CurrentDatabase
Set view = db.GetView ("($AllDocID)")
Set doc = view.GetDocumentByKey(DocID)
With reminderDoc
.Form = "Appointment"
.ReplaceItemValue "$Alarm", 1
.ReplaceItemValue "$AlarmDescription", poUpStr
.ReplaceItemValue "$AlarmMemoOptions", ""
.ReplaceItemValue "$AlarmOffset", 0
.ReplaceItemValue "$AlarmUnit", "M"
' .ReplaceItemValue "ViewIcon", "67"
.ReplaceItemValue "ViewIcon", "01"
.ReplaceItemValue "Location", ""
' .ReplaceItemValue "ExcludeFromView", "D"
.ReplaceItemValue "ExcludeFromView", "E"
.ReplaceItemValue "NoticeType", "R"
.ReplaceItemValue "tmpDoNotProcess", "1"
.Subject = subjectStr
.Alarms = JNAlarm
.CalendarDateTime = dateTime.lsLocalTime
.StartDate = dateTime.lsLocaltime
.StartTime = dateTime.lsLocaltime
.StartDateTime = dateTime.lsLocaltime
.EndDate = dateTime.lsLocaltime
.EndTime = dateTime.lsLocaltime
.EndDateTime = dateTime.lsLocaltime
.AppointmentType = "4"
End With
Set rtitem = New NotesRichTextItem( reminderDoc, "Body" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( infoStr )
Call rtitem.AddNewLine( 3 )
Call rtitem.AppendText( "Bitte klicken sie hier, um das Dokument zu öffnen --> " )
Call rtitem.AddTab( 1 )
Call rtitem.AppendDocLink( doc, db.Title )
reminderDoc.ComputeWithForm True,True
reminderDoc.save True,False
reminderDoc.PutInFolder( "$Alarms" )
Print "Wiedervorlage erstellt"
Else
Print "Fehler: Kann die Maildatei nicht öffnen"
End If
End Sub
