Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 24.02.03 - 12:18:44

Titel: Viewlink funktioniert nur so halb
Beitrag von: Don Pasquale am 24.02.03 - 12:18:44

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   

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Rob Green am 24.02.03 - 14:03:02

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" )

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Don Pasquale am 24.02.03 - 14:38:59

> 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

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Performance am 24.02.03 - 14:41:52

@Don
heute schon eine Pause gemacht  ??? 8) ;D ;D

cu

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Don Pasquale am 24.02.03 - 14:46:42

@Performance

WIe meinen ?

Ciao

Don Pasquale

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Performance am 24.02.03 - 14:48:05

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


cu  ;D

Titel: Re:Viewlink funktioniert nur so halb
Beitrag von: Don Pasquale am 24.02.03 - 14:53:28

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

Pascal