Domino 9 und frühere Versionen > Administration & Userprobleme
Benötige Hilfe bei Script
bificypdog:
--- Zitat von: koehlerbv am 03.11.03 - 14:42:41 ---In Deinem Array ergibt LBound 0 und UBound 2.
Bernhard
--- Ende Zitat ---
Also weg mit dem "-1" beim UBound in meinem Script? Gelle?
Glombi:
Ubound(sDb())-1
ist natürlich Schrott, also
iArray = Ubound(sDb())
Andreas
Glombi:
Hier was ohne counter:
On Error Goto ErrorHandling
' Und hier beginnen die Array-assignments für die Datenbanken
Redim sDb(2) ' Hier wird die Größe des Array fest definiert (Anzahl der DB - 1)
sDb(0) = "db1.nsf"
sDb(1) = "db2.nsf"
sDb(2) = "db3.nsf"
Forall d in sDb
Set oDb = oSession.getDatabase(sMailServer,cstr(d))
If Not oDb Is Nothing Then
Call oUiWs.addDatabase(sMailServer,cstr(d))
Print (oDb.title+" wurde Ihrer Arbeitsoberfläche hinzugefügt.")
End If
NextDB:
end forall
exit sub
ErrorHandling:
Print ("Eine Datenbank konnte nicht Ihrer Arbeitsoberfläche hinzugefügt werden.")
Resume NextDB
End Sub
bificypdog:
ICH BIN AM ZIEL
ICH LIEBE EUCH ALLE
bificypdog:
SNÜFF. Ich hab noch was. Aber zur Abwechslung mal etwas ganz anderes.
Schaut doch bitte mal in den Anhang.
Beim "Call oReg.getUserInfo" stürzt Notes mit einem RedScreenOfDeath ab.
Bisher habe ich das Script unter OS/2 Notes 4.6.7 getestet.
Ich habe es jetzt unter Windows XP und 2000 in Notes 5 Private Ed. und Notes 5.0.10 (deutsch) getestet und sehe nur den RedScreen.
So langsam verzweifel ich.
- Der Fehler taucht auch im "Nicht-Debugging-Modus" auf.
- Die Schaltfläche (in einem Mail-Dok) wurde auf verschiedenen Rechnern getestet.
- Unterschiedliche Mail-DBs
- Fix-Up gemacht
- Script auch schon in anderen Button hinterlegt (Copy&Paste)
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln