Notes cached variablen

Vip0r · 30. März 2009

Hallo zusammen,

ich habe mir innerhalb einer Datenbank eine Aktion mit LotusScript programmiert, welche dem Benutzer einen Namen (Picklist_names) eingeben lässt. Dieser Name wird dann innerhalb der names.nsf gesucht um mir das Feld "MailServer" auszulesen.

Daraus bastel ich mir dann eine URL, welche im Browser geöffnet wird. Funktionieren tut das ganze bereits ganz gut, ich habe allerdings das Problem, das er mir irgendwie die Variablen oder Objekte cached. Das heisst, wenn ich ein zweites mal diese Aktion ausführe nimmt er mir wieder den alten Namen und greift somit auf die alte URL zu...

Was mach ich da falsch?

Danke schonmal,
Andy

taurec · 30. März 2009

Da frage ich doch mal meine Kristallkugel....

Wie bitte sollen wir dir bei solch mageren Informationen helfen ?

Dazu wird mindestens mal dein Code benötigt.

Vip0r · 30. März 2009

Okay sorry,
Ich werde den code morgen mal posten.

Hatte damit gerechnet, dass irgendwer gleich sagt man muesse alle objekte danach löschen oder so etwas

Danke trotzdem schonmal,

Andy

Vip0r · 1. April 2009

Hallo zusammen,

hat jetzt doch etwas länger gedauert. Anbei der Code bei dem das oben beschrieben Problem auftritt:

Code

Sub Click(Source As Button)
	Set workspace = New NotesUIWorkspace
	Set session = New NotesSession
	Set db = New NotesDatabase( "*servername*", "names.nsf" )
	Set view = db.GetView("PeopleCat")
	Set doc=view.GetFirstDocument
	delim = "/"
	delim2 = " "

	picklist = workspace.PickListStrings( _
	PICKLIST_NAMES, False)

	Forall plist In picklist
		messagelist = messagelist & plist & Chr(10)
	End Forall

	substring = Mid(messagelist,4)
	erg = Split(substring,delim)
	komplett = erg(0)
	splitted = Split(komplett,delim2)
	vorname = splitted(0)
	nachname = splitted(1)

	Do Until doc Is Nothing
		docvorname = doc.GetItemValue("FirstName")
		docnachname = doc.GetItemValue("LastName")
		If vorname = docvorname(0) Then 
			If nachname = docnachname(0) Then
				mailfield = doc.getitemvalue("MailFile")
				mailpfad = mailfield(0)		
				docmailserver = doc.GetItemValue("MailServer")
				mailserver = docmailserver(0)
			End If
		Else	
		End If

		Set doc=view.GetNextDocument	(doc)
	Loop



	pfad = mailpfad+".nsf"
	subserver = Mid(mailserver,4)
	subserver = Split(subserver,delim)
	Msgbox(subserver(0))
	Msgbox(pfad)
	url = "http://"+subserver(0)+"/"+pfad+"\calendar"

	workspace.URLOpen(url)

	url = ""
	pfad = ""
	subserver = Null
	Set doc = Nothing
	Set picklist = Nothing
	Set session = Nothing
	Set workspace = Nothing
	docvorname = ""
	docnachname = ""
	mailfield = ""
End Sub

Alles anzeigen

ps: Sorry, mir ist durchaus bewusst das es sich hier um äußerst unsaubere Programmierung handelt *g* aber es musste schnell geschehen und ich war froh als "lotus-einsteiger" das script zum laufen zu bekommen *g* .. zumindest einigermaßen

taurec · 1. April 2009

Hast du denn schon mal den Debugger mitlaufen lassen und geschaut was in den Variablen drinsteht ?

Vip0r · 1. April 2009

Ahh, er scheint mir die neuen Namen in das Array (messagelist) mit dran zu hängen.

Mir geht allerdings immernoch nicht in den Kopf wie dieses Array noch existieren kann wenn das Script abgeschlossen ist.

taurec · 1. April 2009

Je nachdem wo die Variablen deklariert werden überstehen die auch das Beendigung eines Scriptes.

Du solltest dir grundsätzlich angewöhnen die Variablen dort zu deklarieren wo du sie auch brauchst.
Damit gehst du genau solchen Effekten aus dem Weg

Teilen