URL zum erstellen eines neuen Memos in der MailDB

[rar]

Hallo Ihr!

Die Url zum erstellen eines neuen Memos in der MailDB lautet so:

path :=@ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName; -1); "\\"; "/");" ";"+") ;
view:=@ReplaceSubstring(@Subset(@ViewTitle;-1);" ";"+");
@URLOpen("/"+path+"/mName?OpenForm&From="+view)

Kann mir jemand erklären, wofür am Ende der URL &From="+view steht, bzw was man damit machen kann?

lg
-rar

[zaphod]

Ciao

der parameter sollte steuern, wohin der browser nach dem submit der maske geht.
Im 'webQuerySave' event der maske 'memo' wird der agent 'wMemo' angestossen. Dieser printet am ende abhängig des parameters 'from' die url der aufzurufenden seite. Vielleicht kannst du mit dem agent-code was anfangen:

.
.
.
.

   
   If pathinfo$="" Then
      Print "[" & tmp1$ &"/MailFS?OpenFrameSet]"
      Goto continue
   End If
   InfoPathPos% = Instr (1,pathinfo$,tmp1$,1)
   
   Dim view As notesview
   targetview$ = ""
   targetviewargs$ = ""
   
   
   fromstr$ = "&From="
   pos%  = Instr (pathinfo$, fromstr$)
   
   If pos% <> 0 Then
          'locate the view to return to, which was passed in as a URL argument
      targetview$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(fromstr$) + 1)
      pos%  = Instr (targetview$, "&")
      If (pos% <> 0) Then
               'locate any arguments to pass to that view
         targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
         targetview$ = Left$ (targetview$, pos% - 1)
      End If
      
   Else
      '''Look for docurl if from an opendocument
      docurl$ = "&docurl="
      pos% = Instr(pathinfo$, docurl$)
      If pos% <> 0 Then
         targeturl$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(docurl$) + 1)
      Else
         
          'the view name was not passed as an argument, so pull it out of the URL if possible
         
         workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.Filepath)))
         
         pos%  = Instr (workstr$, "/")
         
         If (pos% <> 0 ) Then
            targetview$ = Left$ (workstr$, pos% - 1)
            
         Else
            '''Don't treat "Memo" as a view as in Memo?OpenForm
            pos%  = Instr (workstr$, "?OpenView")     '''@mek
            If (pos% <> 0 ) Then
               targetview$ = Left$ (workstr$, pos% - 1)     '''@mek
            Else
               targetview$ = ""   '''@mek
            End If
            
               'is it a view name?
            On Error Resume Next
            Set view  = db.GetView( targetview$)
            
            If (view Is Nothing) Then
                    'or is it a unid?
               
               Dim viewnote As notesdocument
               Set viewnote = db.getdocumentbyunid(targetview$)
               
               If viewnote Is Nothing Or Not (viewnote.hasitem("$VIEWFORMAT") )Then targetview$ = ""     'no
               
            End If
         End If
      End If
   End If
   On Error Goto ErrorRoutine
   
   If InfoPathPos% <> 0 Then
      
      If note.tmpBackToTask(0) = "1" Then
         Print "[" & tmp1$ & "/ToDoFS?OpenFrameset]"
      Else
         If targetview$ <> "" Then
            Print "[" & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
         Else
            If targeturl$ <> "" Then
               
               Print "[" & targeturl$ & "]"
            Else
               
               Print "[" & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ & "%2F($Inbox)%3FOpenView]"    
            End If
         End If
      End If
   Else
      Print "The document has been processed."
   End If

.
.
.




bye bye z

[rar]

Ups. Dort hab ich nicht geschaut.  
Jetzt ist einiges klarer.
Vielen Dank