Problem mit Script

[Errormaker]

Hallo,
das folgende Script habe ich bekommen, aber leider läuft es bei mir nicht (erscheint ab den Dimensionierungen alles in rot). Beim Entwickler in einer anderen Firma läuft es aber. Gibt es bei Notes irgendwelche Einstellungen, ohne die Script nicht arbeiten kann? In VBA muss man ja z.B. erst die DAO-Libary aktivieren, damit es funzt.

Sub Click(Source As Button)   
     Dim s As New notessession
     Dim db As NotesDatabase
     Dim acl As NotesACL
     Dim person As NotesAclEntry
       
     Set db=s.currentdatabase  
     Set Person=acl.GetEntry("User  
     Qualitätssicherung/Quality/XXX")
         If ( Person Is Nothing ) Then
           Set person=acl.createaclentry("User
           Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)
         Else
           person.level= ACLLEVEL_MANAGER
         End If
       
     person.candeletedocuments=True          
     person.usertype=ACLTYPE_Person            
     Call acl.save
   
End Sub

Gruß
Markus

[klaussal]

... das kommt davon, wenn man abkupfert  

der zeilenumbruch in den set-anweisungen muss weg, also alles in eine zeile schreiben, oder den _ nehmen als fortführungszeichen  

[Errormaker]

Da gibt es in Wirklichkeit keinen Zeilenumbruch. Hat nur für den Eintrag nicht ganz von der Zeilenlänge gereicht.
Ich habe aber noch ein wenig rumgespielt und nun läuft die Sache.
Einfach alle Leerzeichen hinter jeder Eingabezeile entfernen und schon klappts mit dem Script.
Trotzdem danke.  

[klaussal]

... doch

  Set person=acl.createaclentry("User
          Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)

muss so aussehen:

......aclentry("User_
          Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)


man achte auf den unterstrich  

[Errormaker]

Wie schon gesagt. Das hat im Forum halt nicht in eine Zeile gepasst. Daher der Umbruch.
In meinem Script ist es eine Zeile.
Der Fehler lag woanders.

[klaussal]

... klär mich auf: WO  

hier lief das ding auf anhieb ......

[Errormaker]

Ich hab keine Ahnung, warum es lief.
Ich habe einfach nach jeder Befehlszeile sämtliche Leerzeichen gelöscht und dann hat er aus den roten Zeilen schwarze gemacht. Das Script habe ich einfach nur aus einem Mail kopiert. Notes hat sich anscheinend an den Leerzeichen gestört. Anders kann ichs mir nicht erklären. Den inhalt des Scripts habe ich nicht verändert.

[doliman]

Hi,

nimm das ganze Script, kopiere es in die Zwischenablage,
öffne notepad, füge es dort ein, markiere es dort wieder, kopiere es, gehe zurück nach Notes und füge es aus der Zwischenablage wieder hinein.