-
It is possible to use flash animations into lotus notes (not into Domino - for the WEB using)interface as menu items ? Or as backgrounds ? Thanx a lot !
-
totally
i have integrated notes with flash and
I mean notes, not just domino.
give us a call if you are interested in more.
Mark Hopgood
mark@bluebee.info
-
very intressted
Hi!
Im intressted in everything regarding the relation between Flash and Domino/Notes...
Can you tell me how I post a mailform from a flashfile on a dominoserver...
And how do I store (for example) highscores from a flashgame in Notes...
Or do you want me to mail you..?
Please help!!!
Is it ok to mail you if I have other questions... ?
Feel free to mail me if you want!
-
Re: very intressted
Originally posted by Dieter Koepke
THIS SHOULD HELP
Flash
All is done with LoadVaribales
Url called in Flash after Return or OK
../DBID/Agentname?OpenAgent&&id=12345&anrede=Herr&firstnam e=Franz&lastname=Beckenbauer&email=web%40web%2Ede
Notes Agent:
Sub Initialize
'Agent creates new Documents
'or writes data in excisting documents. all data needed is provided by the Query witch is loaded with start of the Agent.
Dim oSession As NotesSession
Dim oDoc As NotesDocument
Dim oInfoDoc As NotesDocument
Dim oDB As NotesDatabase
Dim oView As NotesView
Dim sURL As String
Dim sForm As String
Dim sAnrede As String
Dim sFirstName As String
Dim sLastName As String
Dim sEmail As String
Dim sID As String
Set oSession = New NotesSession
Set oDoc = oSession.DocumentContext
If oDoc Is Nothing Then Print "ERROR: Parameter fehlt"
'Query wird ermittelt und am Ende mit einem auswertbaren Zeichen versehen (in dem Fall '&')
sURL = oDoc.Query_String(0)+"&"
'sURL sieht dann so aus:
'sURL="OpenAgent&&id=12345&anrede=Herr&firstname=F ranz&lastname=Beckenbauer&email=web%40web%2Ede&"
'----------------------------------------------------------------------------------------
'Fuction wird zum ersetzen der Sonderzeichen in der Query genutzt
Function strReplace(s As String, mita As String, milla As String) As String
Dim sTemp As String
sTemp=s
If sTemp<>""Then
While Instr(sTemp,mita) > 0
sTemp=Left$(sTemp,Instr(sTemp,mita)-1)+milla+Right$(sTemp,Len(sTemp)-Instr(sTemp,mita)-Len(mita)+1)
Wend
End If
strReplace=sTemp
End Function
'----------------------------------------------------------------------------------------
'ersetzen von Sonderzeichen / change to german letters
sURL=strReplace(sURL, "+", " ")
sURL=strReplace(sURL, "%20", " ")
sURL=strReplace(sURL, "%2D", "-")
sURL=strReplace(sURL, "%2E", ".")
sURL=strReplace(sURL, "%2F", "/")
sURL=strReplace(sURL, "%40", "@")
sURL=strReplace(sURL, "%C4", "Ä")
sURL=strReplace(sURL, "%D6", "Ö")
sURL=strReplace(sURL, "%DC", "Ü")
sURL=strReplace(sURL, "%E4", "ä")
sURL=strReplace(sURL, "%F6", "ö")
sURL=strReplace(sURL, "%FC", "ü")
'----------------------------------------------------------------------------------------
'Function wird zum ermitteln der einzelnen Informationen aus der Query genutzt
Function wert(sURL As String, sWert As String) As String
If Instr (1,sURL,"&"+sWert)>0 Then
wert=Mid(sURL,Instr(1,sURL,"&"+sWert+"=")+Len("&"+ sWert+"="),_
Instr(1,Right(sURL,Len(sURL)-(Instr(1,sURL,"&"+sWert+"=")+Len("&"+sWert+"="))), "&"))
Else
wert=""
End If
End Function
'----------------------------------------------------------------------------------------
'Information aus der Query(sURL) ermitteln
On Error Resume Next
sAnrede=wert(sURL,"anrede")
sFirstName=wert(sURL,"firstname")
sLastName=wert(sURL,"lastname")
sEmail=wert(sURL,"email")
sId=wert(sURL,"id")
'Check, ob Dokument mit Id bereits existiert
Set oDB = oSession.CurrentDatabase
Set oView = oDB.GetView("vwInfo")
Set oInfoDoc = oView.GetDocumentByKey( sId, True )
If Not oInfoDoc Is Nothing Then
' wenn Ja -> Update der Informationen
oInfoDoc.Anrede = sAnrede
oInfoDoc.FirstName = sFirstName
oInfoDoc.LastName = sLastName
oInfoDoc.EMail = sEmail
Call oInfoDoc.Save( True, True )
Else
' wenn Nein -> Neues Dokument anlegen und Infos eintragen
Set oInfoDoc = oDB.CreateDocument
oInfoDoc.Form = "INFO"
oInfoDoc.Id = sId
oInfoDoc.Anrede = sAnrede
oInfoDoc.FirstName = sFirstName
oInfoDoc.LastName = sLastName
oInfoDoc.EMail = sEmail
Call oInfoDoc.Save( True, True )
End If
ende:
End Sub
[/QUOTE]
[Edited by dieterkoepke on 06-21-2002 at 08:54 AM]
-
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|