Viewlink funktioniert nur so halb

[Don Pasquale]

Ich habe folgenden Wiedervorlage Skript,
dort habe ich nun statt eines Doclinks einen
Viewlink eingesetzt.
Aber statt des Eigenen Ordners öffnet sich die
DB und der Focus setzt sich auf die Vorgabeansicht.

Mach ich irgendwas falsch ?

Ciao

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 ("Eigene Dokumente")      
      
      With reminderDoc
         .Form = "Appointment"
         .ReplaceItemValue "$Alarm", 1
         .ReplaceItemValue "$AlarmDescription", popUpStr
         .ReplaceItemValue "$AlarmMemoOptions", ""
         .ReplaceItemValue "$AlarmOffset", 0
         .ReplaceItemValue "$AlarmUnit", "M"
         .ReplaceItemValue "ViewIcon", "67"
         .ReplaceItemValue "ExcludeFromView", "D"
         .ReplaceItemValue "NoticeType", "R"
         .ReplaceItemValue "tmpDoNotProcess", "1"
         .Subject = subjectStr
         .Alarms = "1"
         .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( view, view.Name,  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   

[Rob Green]

hm..

Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ])


Probier doch zunächst mal das:

 Call rtitem.AppendDocLink( view, view.Name )

statt

 Call rtitem.AppendDocLink( view, view.Name,  db.Title )


UND

ist das Doc wirklich im "Eigene Docs" sichtbar?

Was macht denn dieses Zeile da?
reminderDoc.PutInFolder( "$Alarms" )

[Don Pasquale]

> Call rtitem.AppendDocLink( view, view.Name )

keine Veränderung.

>Ist das Doc wirklich im "Eigene Docs" sichtbar?

Hoch und heilig versprochen.

>Was macht denn dieses Zeile da?
>reminderDoc.PutInFolder( "$Alarms" )

Die Wiedervorlage soll auch als Alarm an den User geschickt werden. Wieso die Frage ?

Rückfrage: Muß diese View als Default eingestellt sein ?
statt


Ciao

Don Pasquale

[Performance]

@Don
heute schon eine Pause gemacht  

cu

[Don Pasquale]

@Performance

WIe meinen ?

Ciao

Don Pasquale

[Performance]

du hast Rob zitiert und nichts dazugeschrieben - oder werden meine Augen auch immer älter ?


cu  

[Don Pasquale]

Du irrtest,
aber es war nicht zu erkennen.
Hab´s editiert.

Pascal