Call agentlog.logaction("Warnung: Die aktuellen Umgebungseinstellungen konnten nicht
berpr
ft werden. Das Umgebungsdokument wurde nicht gefunden.")
Exit Function
End If
Else
Call agentlog.logaction( "Warnung: Die aktuellen Arbeitsumgebungseinstellungen konnten nicht
berpr
ft werden. Die Arbeitsumgebungszeichenfolge ist leer." )
Exit Function
End If
End Function
Lotus Product
P @ @
J0 J@
J0 J@
J0 J@
J0 J@
J0 J@
J0 J@
^ #1
J0 J@
J0 J@
J0 J@
^ #1
J0 J@
J0 J@
O=Lotus
O=Lotus
PURSAFO
O=Lotus
OU=DUB/O=Lotus
PURSAFO
}NFib
OU=DUB/O=Lotus
CN=Shaun McGale/OU=DUB/O=Lotus
PURSAFO
v3ayD
$Language
$LastBuildTime
$BabelInfo
$TITLE
$ScriptLib
$ScriptLib_O
BabelI
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub RefreshPage
Declare Sub InstantiateObjects
Declare Sub OpenHomeURL
Declare Sub OpenSearchSite (docLocal As NotesDocument)
Declare Sub CreateNotesLink (docLocal As NotesDocument)
Declare Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String)
Declare Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
Declare Sub ReduceToLink (docLocal As NotesDocument)
Declare Sub GetProfileDocument
Declare Function LocationOK As Integer
Declare Sub ImportFavorites
Declare Sub FavoriteExtractAddress(posBegin As Integer)
Declare Sub CreateFavoriteDocument
Declare Sub FavoriteProcessOneLine
Declare Sub ImportBookmarks
Declare Sub NavigatorExtractAddress(posBegin As Integer)
Declare Sub ShrinkFolderName
Declare Sub NavigatorProcessOneLine
Declare Sub GetFolderName(posStart As Integer)
Declare Sub CreateNavigatorDocument
Declare Sub PrintWebDocument
Declare Sub WebNavHelp
Declare Sub IENextdoc(browserobject As Variant)
Declare Sub IEPreviousDoc(browserobject As Variant)
Declare Sub IEStop(browserobject As Variant)
Declare Function GetCurrentLocation As String
Declare Sub IEForwardNote (doc As notesdocument, browserobject As Variant)
Declare Sub IERefreshPage(browserobject As Variant)
Declare Sub IEOpenHome(browserobject As Variant)
Declare Sub IESearch(browserobject As Variant)
Declare Sub CreateIELink(url As String, title As String)
Declare Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
Declare Function GetLocalNAB() As NotesDatabase
Declare Function GetRegValue (szKey$, szValueName$) As String
Declare Sub SetRegValue(szKey$, szValueName$, szKeyValue)
Declare Function GetLocationItem (itemname As String) As Variant
Declare Sub SetLocationItem(itemname As String, itemvalue As String)
Declare Sub CreateIEBookmark(browserobject As Variant, folder As String)
Declare Sub RemoveObjects(doc As notesdocument)
Declare Sub GetCurrentFolders
Declare Sub ViewDelete
Declare Sub Browse
Declare Sub ViewForward(docLocal As notesdocument)
Declare Function DuplicateBookmark(szURL) As Integer
Declare Sub CheckRegistrySettings
Declare Function CompareValues(IEValue As String, NotesValue As Variant) As String
Declare Function ParseFilename(szPath As String) As String
Declare Sub NotesForwardNote(doc As notesdocument)
Declare Function ParseURL(url As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
'this script library is used by the views and forms for sharing various scripts -> Home, Search, Share, Import Bookmarks, and Reduce
Dim w As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim dbShared As NotesDatabase
Dim docProfile As NotesDocument
Dim note As NotesDocument
Dim bookmark As NotesDocument
Dim bookmarkfolder As NotesView
Dim firstnavigatedone As Integer
Dim view As NotesView
Dim hFile As Integer
Dim numDirectories As Integer
Dim szPath As String
Dim szEntry As String
Dim szURL As String
Dim szTitle As String
Dim szFolder As String
Dim filenamepath As String
Dim filename As String
Dim fileflag As Integer
Dim Directories() As String
%INCLUDE "lsconst.lss"
' This declares the routines used for retrieving key values
' from the registry on a Windows 32 client.
' NOTE: if you are running this app on a platform other than
' Windows 32 Intel, then it will not work.
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (Byval hKey&, Byval szSubKey$, Byval dwOptions&, Byval SAM&, hKey&) As Long
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (Byval hKey&) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, dwType&, Byval szValue$, lpdwBuf&) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, Byval dwType&, Byval lpData$, Byval cbData&) As Long
Const HKEY_CURRENT_USER = &H80000001
Const KEY_READ = &H00020019
Const KEY_SET_VALUE = &H0002
Dim RetCode As Long
Dim dwType As Long
Dim hKey As Long
Dim dwSize As Long
Dim lpData As String
Dim cbData As Long
'++LotusScript Development Environment:2:2:RefreshPage:1:8
Sub RefreshPage
Dim currenturl As String
Dim currentdoc As notesuidocument
Dim urldoc As notesdocument
Dim docCollection As NotesDocumentCollection
Set docCollection = db.UnprocessedDocuments
If (docCollection.Count = 0) Then
Msgbox "Sie m
ssen ein Dokument w
hlen.",16,"Fehler"
Exit Sub
End If
Set currentdoc = w.currentdocument
currenturl=currentdoc.fieldgettext("URL")
Set urldoc = db.GetDocumentByURL(currenturl, 1)
w.EditDocument False, urldoc
w.viewrefresh
End Sub
'++LotusScript Development Environment:2:2:InstantiateObjects:1:8
Sub InstantiateObjects
Set w = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("(Internet Profile)")
Set docProfile = view.GetFirstDocument
End Sub
'++LotusScript Development Environment:2:2:OpenHomeURL:1:8
Sub OpenHomeURL
On Error 4005 Goto LoadHomeURL
Dim urldoc As NotesDocument
If (docProfile Is Nothing) Then GetProfileDocument
'++LotusScript Development Environment:2:2:CreateNotesLink:1:8
Sub CreateNotesLink (docLocal As NotesDocument)
Dim docMail As NotesDocument
Dim rtitem As NotesRichTextItem
Set docMail = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(docMail,"Body")
docMail.Form = "Memo"
Call rtitem.AppendText(docLocal.url(0))
docMail.Subject = docLocal.Title(0)
docMail.Send False,docLocal.ForwardTo(0)
End Sub
'++LotusScript Development Environment:2:2:CopyDocumentToSharedDatabase:1:8
Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String)
Dim webdoc As notesdocument
If (docProfile Is Nothing) Then GetProfileDocument
If (docProfile Is Nothing) Then
Msgbox "Sie m
ssen einen Web-Server und eine Web-Datenbank angeben, um Seiten gemeinsam zu nutzen. W
hlen Sie im Hauptmen
'Aktionen - Internet-Optionen'."
Exit Sub
End If
If (docProfile.WebDatabase(0) = "") Then
Msgbox "Sie m
ssen den Server und die gemeinsam genutzte Datenbank angeben. W
hlen Sie 'Aktionen - Internet-Optionen' aus dem Men
Exit Sub
End If
Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))
If Not (dbShared.IsOpen) Then
Msgbox "Die gemeinsam genutze Datenbank konnte nicht ge
ffnet werden"
Exit Sub
End If
If docLocal.form(0) = "WebBrowserForm" Or docLocal.form(0) = "WebBrowser4Form" Then
Set webdoc = dbshared.getdocumentbyurl(url)
dbShared.Close
Else
Set webdoc = dbshared.getdocumentbyurl(url)
dbShared.Close
End If
End Sub
'++LotusScript Development Environment:2:2:CreateRatingDocument:1:8
Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
Dim docRating As NotesDocument
If (docProfile Is Nothing) Then GetProfileDocument
If (docProfile Is Nothing) Then
Msgbox "Sie m
ssen einen Web-Server und eine Web-Datenbank angeben, um Seiten gemeinsam zu nutzen. W
hlen Sie im Hauptmen
'Aktionen - Internet-Optionen'."
Exit Sub
End If
If (docProfile.WebDatabase(0) = "") Then
Msgbox "Sie m
ssen den Server und die gemeinsam genutzte Datenbank angeben. W
hlen Sie 'Aktionen - Internet-Optionen' aus dem Men
Exit Sub
End If
Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))
If Not (dbShared.IsOpen) Then
Msgbox "Die gemeinsam genutze Datenbank konnte nicht ge
ffnet werden"
Exit Sub
End If
'create the remote document and add some fields to it
Set docRating = New NotesDocument(dbShared)
docRating.Form = "Person Rating Form"
docRating.Rating = docLocal.Rating
docRating.Content = docLocal.Content
docRating.Comments = docLocal.Comments
docRating.Author = session.UserName
docRating.URL = URL
docRating.Title = Title
docRating.Save True, True
dbShared.Close
End Sub
'++LotusScript Development Environment:2:2:ReduceToLink:1:8
Sub ReduceToLink (docLocal As NotesDocument)
If docLocal.hasitem("Body") Then
docLocal.RemoveItem "Body"
docLocal.RemoveItem "HTMLSource"
docLocal.RemoveItem "HTMLBody"
docLocal.RemoveItem "$Background"
docLocal.RemoveItem "$FILE"
docLocal.RemoveItem "$OLEOBJINFO"
docLocal.RemoveItem "URLLinks1"
docLocal.RemoveItem "WebAheadStatus"
docLocal.RemoveItem "WebAgentError"
docLocal.RemoveItem "PageMinderStatus"
docLocal.bookmark = "1"
docLocal.Save True,True
Else
docLocal.RemoveItem "$Body"
docLocal.RemoveItem "HTMLSource"
docLocal.RemoveItem "$Background"
docLocal.RemoveItem "$FILE"
docLocal.RemoveItem "$OLEOBJINFO"
docLocal.RemoveItem "URLLinks1"
docLocal.RemoveItem "WebAheadStatus"
docLocal.RemoveItem "WebAgentError"
docLocal.RemoveItem "PageMinderStatus"
docLocal.Bookmark = "1"
docLocal.Save True,True
End If
End Sub
'++LotusScript Development Environment:2:2:GetProfileDocument:1:8
Sub GetProfileDocument
Dim view As NotesView
Set view = db.GetView("Internet Profiles")
Set docProfile = view.GetFirstDocument
End Sub
'++LotusScript Development Environment:2:1:LocationOK:1:8
Function LocationOK As Integer
'*
'* This function verifies that the current location settings are correct for local web retrievals.
'*
LocationOK = True
Dim currentbrowser As String
Dim MailServer As String
currentbrowser = GetLocationItem("WebRetriever")
If CurrentBrowser <> "3" Or CurrentBrowser <> "1" Then
Msgbox "Ihr Browser ist nicht so eingestellt, da
Sie Web-Seiten nicht direkt in Notes abrufen k
nnen. Bearbeiten Sie Ihr aktuelles Arbeitsumgebungsdokument, und
ndern Sie die Browser-Einstellungen in 'Notes'.", 16, "Fehler"
LocationOK = False
Exit Function
End If
MailServer = GetLocationItem("MailServer")
If MailServer = "" Then
Msgbox "Sie haben keine Mail-Datei und/oder keinen Mail-Server angegeben. Verwenden Sie 'Datei - Mobil - Aktuelle Arbeitsumgebung bearbeiten...', um dies nachzuholen.", 16, "Fehler"
LocationOK = False
Exit Function
End If
End Function
'++LotusScript Development Environment:2:2:ImportFavorites:1:8
Sub ImportFavorites
InstantiateObjects
Set note = New NotesDocument(db)
szFolder = "Favoriten"
numDirectories = 0
Redim Directories(20)
fileflag = False
If(w.DialogBox("(ImportFavorite)",True,True,False,,,,"Favoriten importieren",note)) Then
'get the file to open
szPath = note.BookMarkFile(0)
If (szPath = "") Then
Exit Sub
Elseif (Right$(szPath,3) = "url" ) Then
'file is specified not path parse out filename and go directly to process file
filenamepath = szPath
fileflag = True
Goto ProcessFile
Elseif (Right$(szPath,1) <> "\") Then
szPath = szPath & "\"
End If
filename = Dir$(szPath ,ATTR_DIRECTORY)
While (filename <>"")
If (filename <> ".") And (filename <> "..") Then
filenamepath = szPath & filename
retType = Getfileattr(filenamepath)
If Not(retType = ATTR_DIRECTORY) Then
ProcessFile:
hFile = Freefile
'open the file
Open filenamepath For Input As hFile
'read in a line from the file
Do Until Eof(hFile)
Line Input #hFile,szEntry
Call FavoriteProcessOneLine
Loop
Else
'this is a directory
Directories(counter) = filename
counter = counter + 1
End If
End If
If fileflag Then Exit Sub
filename = Dir()
Wend
End If
'scan subdirectories if need be
If (counter > 0) Then
For x = 0 To (counter-1)
szFolder = "Lesezeichen\" & Directories(x)
szSubPath = szPath & Directories(x) & "\"
filename = Dir$(szSubPath,ATTR_DIRECTORY)
While (filename <>"")
If (filename <> ".") And (filename <> "..") Then
retType = Getfileattr(szSubPath & filename)
If Not(retType = ATTR_DIRECTORY) Then
hFile = Freefile
'open the file
Open szSubPath & filename For Input As hFile
'read in a line from the file
Do Until Eof(hFile)
Line Input #hFile,szEntry
Call FavoriteProcessOneLine
Loop
End If
End If
filename = Dir()
Wend
Next
End If
End Sub
'++LotusScript Development Environment:2:2:FavoriteExtractAddress:1:8
Sub FavoriteExtractAddress(posBegin As Integer)
'get the position of the closing quote
szURL = Right$(szEntry,Len(szEntry) - posBegin+1)
End Sub
'++LotusScript Development Environment:2:2:CreateFavoriteDocument:1:8
Sub CreateFavoriteDocument
'Before we create the bookmark document we need to make sure that one does not already exist
If Not DuplicateBookmark(szURL) Then
Dim nulldoc As notesdocument
Dim title As String
Set bookmark = New NotesDocument(db)
If fileflag Then
title = Parsefilename(szPath)
bookmark.title = Left$(title, Len(title)-4)
Else
bookmark.title = Left$(filename, Len(filename)-4)
End If
bookmark.URL = szURL
bookmark.bookmark = "1"
bookmark.form = "HTMLForm"
Call bookmark.Save(True,False)
Call bookmark.PutInFolder(szFolder)
If docprofile.keeppage(0) = "0" Then
If GetLocationItem("WebLocation")(0) = "1" Then
Set nulldoc = db.getdocumentbyurl(szURL, 0,0,"","","","","",True)
End If
End If
End If
End Sub
'++LotusScript Development Environment:2:2:FavoriteProcessOneLine:1:8
Sub FavoriteProcessOneLine
'we have just read one line from the bookmark file
'see if this line has one of two entries in it
Dim pos As Integer
'look for an http reference
pos = Instr(1,szEntry,"=",5)
If (pos > 0) Then
FavoriteExtractAddress(pos+1)
If (szURL <> "") Then Call CreateFavoriteDocument
Exit Sub
End If
End Sub
'++LotusScript Development Environment:2:2:ImportBookmarks:1:8
Sub ImportBookmarks
InstantiateObjects
Set note = New NotesDocument(db)
szFolder = "Favoriten und Lesezeichen"
If(w.DialogBox("(ImportBookmark)",True,True,False,,,,"Lesezeichen importieren",note)) Then
'get the file to open
szPath = note.BookMarkFile(0)
If (szPath = "") Then Exit Sub
hFile = Freefile
'open the file
Open szPath For Input As hFile
'read in a line from the file
Do Until Eof(hFile)
Line Input #hFile,szEntry
Call NavigatorProcessOneLine
Loop
End If
'we need to close the file
Close hFile
End Sub
'++LotusScript Development Environment:2:2:NavigatorExtractAddress:1:8
umen|House Cleani$SCRIPTOBJ_19(Globals) (WebBrowserView)|WebBrowserVi$SCRIPTOBJ_13(Globals) Favoriten und Lesezeichen|Boo$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistAction_Ex$AssistRunInfo$AssistVersion$AssistAction$AssistQuery$Type$Operation$Scan$LeftToDoURLDoclink$TemplateModTime$TemplateServerName$TemplateFileName$FlagsNoRefreshIconBitmap$DefaultNavigator$DBScript_O$DBScriptFORMIEVersion$Revisionsbookmark$FolderObject$FolderIDTable$FormatNote$Comment
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Navigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
Declare Sub Downloadbegin(Source As Webbrowser)
Declare Sub Downloadcomplete(Source As Webbrowser)
Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Declare Sub Titlechange(Source As Webbrowser, Text As String)
Declare Sub Statustextchange(Source As Webbrowser, Text As String)
Declare Sub Initialize
Declare Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
Declare Sub Commandstatechange(Source As Webbrowser, Comman_ As Long, Enable As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim WebDatabase As notesdatabase
Dim datadoc As notesdocument
Dim Session As notessession
Dim DocNoteID As notesdocument
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As WEBBROWSER
Set Source = Bind(Objectname_)
On Event Beforenavigate From Source Call Beforenavigate
On Event Navigatecomplete From Source Call Navigatecomplete
On Event Framebeforenavigate From Source Call Framebeforenavigate
On Event Framenavigatecomplete From Source Call Framenavigatecomplete
On Event Framenewwindow From Source Call Framenewwindow
On Event Downloadbegin From Source Call Downloadbegin
On Event Downloadcomplete From Source Call Downloadcomplete
On Event Progresschange From Source Call Progresschange
On Event Titlechange From Source Call Titlechange
On Event Statustextchange From Source Call Statustextchange
On Event Newwindow From Source Call Newwindow
On Event Commandstatechange From Source Call Commandstatechange
End Sub
'++LotusScript Development Environment:2:2:Beforenavigate:1:12
Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
Print "Error: Accessing web browser control ErrOLEException("& Err & ")"
Resume Next
End Sub
'++LotusScript Development Environment:2:2:Framebeforenavigate:1:12
Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
End Sub
'++LotusScript Development Environment:2:2:Framenavigatecomplete:1:12
Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
End Sub
'++LotusScript Development Environment:2:2:Framenewwindow:1:12
Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
'++LotusScript Development Environment:2:2:Downloadbegin:1:12
Sub Downloadbegin(Source As Webbrowser)
' Start Animation...
uidoc.Navbarspinnerstart
End Sub
'++LotusScript Development Environment:2:2:Downloadcomplete:1:12
Sub Downloadcomplete(Source As Webbrowser)
' Stop Animation...
uidoc.Navbarspinnerstop
End Sub
'++LotusScript Development Environment:2:2:Progresschange:1:12
Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Dim percent As Long
If progress = -1 Then
Print " Done"
Else
If ProgressMax > 0 Then
percent = (Progress * 100) / Progressmax
If percent > 0 Then
Print " " & percent & " % complete"
End If
Else
If progress >0 Then
Print " " & progress & " bytes read"
End If
End If
End If
End Sub
'++LotusScript Development Environment:2:2:Titlechange:1:12
Sub Titlechange(Source As Webbrowser, Text As String)
Dim NavBarURL As String
' Ask the browser object for the current URL
NavBarURL = browserobject.LocationURL
' Set the Text in the Nav bar and the window title
uidoc.NavBarSetText NavBarURL, Text
End Sub
'++LotusScript Development Environment:2:2:Statustextchange:1:12
Sub Statustextchange(Source As Webbrowser, Text As String)
Print " " & Text
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'*
'* Initialize Variables and declare local variables
'*
Dim InterNetProfile As Notesdocument
Dim ProfileView As notesview
Dim URL As Variant
Set Session = New NotesSession
Set WebDatabase = Session.CurrentDatabase
End Sub
'++LotusScript Development Environment:2:2:Newwindow:1:12
Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
'
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
' Make sure there is a URL field and it's not empty before we try to
' navigate there
If doc.hasitem("URL") And doc.URL(0) <> "" Then
' Print "Postopen Navigating to " + doc.URL(0)
browserobject.navigate2 (doc.url(0))
If source.inpreviewpane Then
firstnavigatedone = True
End If
End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
FirstNavigateDone = False
End Sub
EXT11761Shell.Explorer.2
$OLEPreviewActivateX
SaveOptionsX
Lotus Product
Lotus Product
Lotus Product
Lotus Product
Lotus Product
Lotus Product
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
R}O{!5
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$OLEOBJINFO
$INFO
$$ScriptName
$FILE
STG47955
$FILE
EXT11761
$FILE
EXT11761.lss
$FILE
EXT11761.lso
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$BODY
$$Script_O
$$$FormScript_O
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_4
$Language
$LastBuildTime
$BabelInfo
STG47955
$FILE
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
$Language
$LastBuildTime
$BabelInfo
RSAFO
(Unbenannt)X
Zu Lesezeichen reduzierenXp
title
Favorites
0S0E
(RemoveObjects)
(Unbenannt)X
Zu Lesezeichen reduzierenXp
title
Favorites
0S0E
(RemoveObjects)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$ACTIONS
$V5ACTIONS
$BODY
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
Declare Sub Statustextchange(Source As Webbrowser, Text As String)
Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Declare Sub Downloadbegin(Source As Webbrowser)
Declare Sub Downloadcomplete(Source As Webbrowser)
Declare Sub Titlechange(Source As Webbrowser, Text As String)
Declare Sub Navigatecomplete2(Source As Webbrowser, Pdisp As Variant, Url As Variant)
Declare Sub Newwindow2(Source As Webbrowser, Ppdisp As Variant, Cancel As Integer)
Declare Sub Commandstatechange(Source As Webbrowser, Comman_ As Long, Enable As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim WebDatabase As notesdatabase
Dim datadoc As notesdocument
Dim Session As notessession
Dim DocNoteID As notesdocument
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As WEBBROWSER
Set Source = Bind(Objectname_)
On Event Beforenavigate2 From Source Call Beforenavigate2
On Event Statustextchange From Source Call Statustextchange
On Event Progresschange From Source Call Progresschange
On Event Downloadbegin From Source Call Downloadbegin
On Event Downloadcomplete From Source Call Downloadcomplete
On Event Titlechange From Source Call Titlechange
On Event Navigatecomplete2 From Source Call Navigatecomplete2
On Event Newwindow2 From Source Call Newwindow2
On Event Commandstatechange From Source Call Commandstatechange
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'*
'* Initialize Variables and declare local variables
'*
Dim InterNetProfile As Notesdocument
Dim ProfileView As notesview
Dim URL As Variant
Set Session = New NotesSession
Set WebDatabase = Session.CurrentDatabase
End Sub
'++LotusScript Development Environment:2:2:Beforenavigate2:1:12
Sub Beforenavigate2(Source As Webbrowser, Pdisp As Variant, Url As Variant, Flags As Variant, Targetframename As Variant, Postdata As Variant, Headers As Variant, Cancel As Integer)
' A navigation has requested a new window be opened
' we'll take care of everything and tell the caller we opened a new window
' otherwise the IE application starts up in a new window
pfungen auf Web-Seiten automatisch verfolgen (Pers
nlicher Web Navigator)
Web-Seiten enthalten gew
hnlich URLs, die auf andere Web-Seiten verweisen. Sie k
nnen einen Hintergrund-Agenten ausf
hren, der alle durch die URLs auf einer bestimmten Seite verwiesenen Web-Seiten abruft und in Ihrer Datenbank zum sp
teren Lesen speichert. Sie k
nnen den Agenten so einrichten, da
er auch URLs
ber mehreren Ebenen hinweg abruft.
HinweisX
Der Agent 'Web Ahead' l
uft nur dann, wenn Ihre Notes Workstation l
So aktivieren Sie den Agenten 'Web Ahead'X
So aktivieren Sie den Agenten 'Web Ahead' (nur einmal erforderlich):
1. W
hlen Sie 'Datei - Vorgaben - Notes', und aktivieren Sie 'Lokale periodische Agenten aktivieren'.X
2.
ffnen Sie die Datenbank 'Pers
nlicher Web Navigator', und w
hlen Sie 'Aktionen - Internet-Optionen'.
3. Klicken Sie im Register 'Web Ahead' auf die Schaltfl
che 'Web Ahead aktivieren'.X
So f
hren Sie den Agenten 'Web Ahead' ausX
So f
hren Sie den Agenten 'Web Ahead' auf einer Web-Seite ausX
1. W
hlen Sie 'Aktionen - Internet-Optionen'.X
2. Im Abschnitt 'Vorgaben f
r den Agenten Web Ahead' geben Sie an, bis zu welcher Ebene der Agent Seiten abrufen soll.
3. Speichern Sie Ihre
nderungen, und schlie
en Sie das Dokument.X
4. W
hlen Sie eine beliebige Web-Seite, und ziehen Sie sie mit der Maus in den Ordner 'Web Ahead'.
Der Agent 'Web Ahead' wird alle 30 Minuten ausgef
HinweisX
Sie k
nnen den Agenten 'Web Ahead' auf Seiten ausf
hren, die sich auf authentifizierten Servern befinden, wo der Zugriff nur durch Angabe eines Benutzernamens und Kennworts erfolgt Ebenso k
nnen Sie den Agenten
ber einen authentifizierten Proxy-Server ausf
hren, wo der Zugriff auf das Internet durch Angabe eines Benutzernamens und Kennworts erfolgt. Sofern Sie w
hrend der aktuellen Notes Sitzung die Seite erfolgreich abgerufen haben, werden Ihr Benutzername und Ihr Kennwort in einem Feld auf der Web-Seite gespeichert und von dort abgerufen, wenn der Agent ausgef
hrt wird. Wenn Sie diesen Agenten auf authentifizierten Servern oder
ber authentifizierte Proxy-Server ausf
hren, sollten Sie aus Sicherheitsgr
nden Ihre Datenbank verschl
sseln, damit das Feld f
r andere Benutzer verborgen bleibt.X
Page Minder verwenden:
nderungen an Web-Seiten im Auge behalten (Pers
nlicher Web Navigator)X
Sie k
nnen einen Hintergrund-Agenten namens 'Page Minder' ausf
hren, der eine bestimmte Web-Seite
berwacht und Sie
ber inhaltliche
nderungen informiert.X
HinweisX
Der Agent 'Page Minder' l
uft nur dann, wenn Ihre Notes Workstation l
So aktivieren Sie den Agenten 'Page Minder'X
So aktivieren Sie den Agenten 'Page Minder' (nur einmal erforderlich):
1. W
hlen Sie 'Datei - Vorgaben - Notes', und aktivieren Sie 'Lokale periodische Agenten aktivieren'.X
2.
ffnen Sie die Datenbank 'Pers
nlicher Web Navigator', und w
hlen Sie 'Aktionen - Internet-Optionen'.
3. Klicken Sie im Register 'Page Minder' auf die Schaltfl
che 'Page Minder aktivieren'.
So f
hren Sie den Agenten 'Page Minder' ausX
So f
hren Sie den Agenten 'Page Minder' auf einer Web-Seite aus:
1. W
hlen Sie 'Aktionen - Internet-Optionen'.X
2. Im Abschnitt 'Vorgaben f
r den Agenten Page Minder' f
llen Sie folgende Felder aus:
Suche nach Aktualisierungen -- W
hlen Sie, wie oft der Agent die Web-Seite auf inhaltliche
nderungen
berpr
fen soll. Zur Auswahl stehen: 'St
ndlich', 'Alle 4 Stunden', 'T
glich' und 'W
chentlich'.X
Wenn Aktualisierungen gefunden wurden -- Legen Sie fest, wie Sie von einer
nderung des Seiteninhalts benachrichtigt werden m
chten. W
hlen Sie 'Zusammenfassung senden', wenn Sie lediglich
ber eine inhaltliche
nderung der Seite informiert werden m
chten. W
hlen Sie 'Eigentliche Seite versenden', wenn die aktualisierte Web-Seite gesendet werden soll.X
Senden an -- Geben Sie den Namen der Person an, die
ber die
nderung des Seiteninhalts informiert werden soll.X
3. Speichern Sie Ihre
nderungen, und schlie
en Sie das Dokument.X
4. W
hlen Sie eine beliebige Web-Seite, und ziehen Sie sie mit der Maus in den Ordner 'Page Minder'.
Der Agent 'Page Minder' wird gem
Ihren Einstellungen im Dokument 'Internet-Optionen' ausgef
HinweisX
Sie k
nnen den Agenten 'Page Minder' auf Seiten ausf
hren, die sich auf authentifizierten Servern befinden, wo der Zugriff nur durch Angabe eines Benutzernamens und Kennworts erfolgt Ebenso k
nnen Sie den Agenten
ber einen authentifizierten Proxy-Server ausf
hren, wo der Zugriff auf das Internet durch Angabe eines Benutzernamens und Kennworts erfolgt. Sofern Sie w
hrend der aktuellen Notes Sitzung die Seite erfolgreich abgerufen haben, werden Ihr Benutzername und Ihr Kennwort in einem Feld auf der Web-Seite gespeichert und von dort abgerufen, wenn der Agent ausgef
hrt wird. Wenn Sie diesen Agenten auf authentifizierten Servern oder
ber authentifizierte Proxy-Server ausf
hren, sollten Sie aus Sicherheitsgr
nden Ihre Datenbank verschl
sseln, damit das Feld f
r andere Benutzer verborgen bleibt.X
Lotus Product
_Kategorisieren
Dokument _bearbeiten
Dokument _senden
_Weiterleiten
In Ordner _verschieben...r
Aus Ordner _entfernen... [
schen'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
ViewDelete
End Sub
Zu Lesezeichen reduzieren
title
Favorites
0S0E
(RemoveObjects)
Drucken...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
PrintWebDocument
End Sub
Weiterleiten...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim docLocal As NotesDocument
Dim docCollection As NotesDocumentCollection
Set docCollection = db.UnprocessedDocuments
If (docCollection.Count = 0) Then
Msgbox "Sie m
ssen ein Dokument w
hlen.",16,"Fehler"
Exit Sub
Else
For j = 1 To docCollection.Count
Set docLocal = docCollection.getnthdocument(j)
If (w.dialogbox ("Forward", True, True, False, False, False, False, " Weiterleitungsoptionen", docLocal)) Then
nnen Sie von Ihrer Notes Workstation aus direkt auf das Internet zugreifen. Die Datenbank dient als Speicher f
r heruntergelade Web-Seiten und -Dateien. Somit k
nnen Sie Ihre Seiten auch unabh
ngig vom Netzwerk organisieren und durchsuchen. Dar
ber hinaus k
nnen Sie
ber die Datenbank leicht ins Internet gelangen. Mit dieser Version der Datenbank 'Pers
nlicher Web Navigator' verf
gen Sie
ber die Option, Web-Seiten mit dem Internet Explorer anzuzeigen. Sie arbeiten mit dem Internet Explorer und verf
gen gleichzeitig
ber alle leistungsstarken Notes Funktionen.
hlen Sie 'Benutzen dieser Datenbank' im Hilfemen
, um Informationen
ber den Einsatz der Datenbank zu erhalten.
-------------------
(Schlie
en Sie dieses Fenster, um zur Datenbank zur
ckzukehren.)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$INFO
$BODY
RSAFO
Times New Roman
&Arial
Verwenden der Datenbanking
nlicher Web Navigator 5.0
IsRichText
1S2S
Mit Hilfe dieser Datenbank k
nnen Sie direkt auf das Internet von Ihrer Notes Workstation aus zugreifen und Web-Seiten in Ihrer eigenen Datenbank 'Pers
nlicher Web Navigator' speichern.
Schneller Einstieg beim Anzeigen und Suchen von Seiten
Wenn Sie in den gespeicherten Seiten der Datenbank 'Pers
nlicher Web Navigator' nach Informationen suchen m
chten, k
nnen Sie die Volltextsuche einsetzen -
hnlich wie bei anderen Notes Datenbanken auch. Informationen
ber das Verwenden der Volltextsuche finden Sie in der Online-Hilfe.
IsRichText
IsObject
1S2S3S4S
Ansichten der Datenbank 'Pers
nlicher Web Navigator' verwenden
Die Datenbank 'Pers
nlicher Web Navigator' verf
ber folgende Ansichten:
Web Bots
Web Ahead
Notes startet einen von Ihnen aktivierten Hintergrund-Agenten namens 'Web Ahead', der auf jeder in diesem Ordner gespeicherten Seite ausgef
hrt wird. Der Agent ruft alle Web-Seiten ab, deren URLs auf der Web-Seite angegeben sind, und speichert diese Web-Seiten in Ihrer Datenbank, damit Sie sie sp
ter lesen k
nnen. Sie k
nnen festlegen, da
der Agent auch Web-Seiten abruft, deren URLs
ber mehrere Verschachtelungsebenen gefunden werden.
Page Minder
Notes startet den von Ihnen aktivierten Hintergrund-Agenten 'Page Minder', der alle in diesem Ordner gespeicherten Web-Seiten
berpr
ft und Sie informiert, wenn der Seiteninhalt ge
ndert wurde.
Alle Seiten
Zeigt alle in der Datenbank 'Pers
nlicher Web Navigator' gespeicherten Seiten an. Sie k
nnen diese Seiten auch dann lesen, wenn Sie nicht mit dem Netzwerk verbunden sind.
Andere
Dateiarchiv
Zeigt eine Liste von Dateien an, die von Web-Seiten heruntergeladenen wurden. Diese sind alphabetisch und nach Dateigr
e sortiert.
Aufr
Zeigt eine Liste der Dokumente an, in aufsteigender Reihenfolge und nach Dokumentgr
e sortiert.
Verwenden Sie diese Ansichten, um die Anzahl der Dokumente anhand der Dokument- oder Dateigr
e zu verringern.
Cookies.
Zeigt eine Liste aller angenommenen Cookies an.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$INFO
$BODY
RSAFO
,D }
^t K,
Nt PD
Lotus Product
_Weiterleiten
Categori_ze
Dokument _bearbeiten
Dokument _senden
In Ordner _verschieben...
Aus Ordner _entfernen...
_Weiterleiten
Categori_ze
Dokument _bearbeiten
Dokument _senden
In Ordner _verschieben...
Aus Ordner _entfernen...
>|'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIVIEW
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
' Create a Browser form
End Sub
Lotus Product
O=Lotus
O=Lotus
PURSAFO
O=Lotus
OU=DUB/O=Lotus
PURSAFO
}NFib
OU=DUB/O=Lotus
CN=Shaun McGale/OU=DUB/O=Lotus
PURSAFO
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_7
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_18
(Globals) (WebBrowserView)|WebBrowserVi
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$V5ACTIONS
$ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
schen
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
ViewDelete
End Sub
Drucken...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
PrintWebDocument
End Sub
_Weiterleiten
Ge_meinsam nutzen...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim docLocal As NotesDocument
Dim webdoc As notesdocument
Dim docCollection As NotesDocumentCollection
Set docCollection = db.UnprocessedDocuments
If (docCollection.Count = 0) Then
Msgbox "Sie m
ssen ein Dokument w
hlen.",16,"Fehler"
Exit Sub
End If
Set docLocal = docCollection.GetFirstDocument
If docLocal.hasitem("URL") Then
docLocal.tmpWebServer = docProfile.WebServer
docLocal.tmpWebDb = docProfile.WebDatabase
docLocal.Save True, True
If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Optionen f
r gemeinsame Nutzung", doclocal)) Then
docLocal.Save True, True
Select Case docLocal.SharedOptions(0)
'case 1 was previously forward bookmark. That's now done off of the forward option
Case "2" : 'user wants to copy this to the shared web database
(.txt)
