Domino 9 und frühere Versionen > ND6: Entwicklung

neuen Account per Script

<< < (2/3) > >>

umi:
Oder Du öffnest das Dokument kurz im UI, refresh und speichern....

gruss umi

tttonic:

--- Zitat von: umi am 14.03.05 - 15:00:31 ---Oder Du öffnest das Dokument kurz im UI, refresh und speichern....

gruss umi


--- Ende Zitat ---

Yo stimmt,

und genau das öffnen bereitet mir gerade Kopfschmerzen.

umi:

set uidocument = uiworkspace.editDocument(true,connect,false,,true)
call uidocument.refresh(true)
call uidocument.save()
call uidocument.close()

tttonic:

--- Zitat von: tttonic am 14.03.05 - 15:12:29 ---
--- Zitat von: umi am 14.03.05 - 15:00:31 ---Oder Du öffnest das Dokument kurz im UI, refresh und speichern....

gruss umi


--- Ende Zitat ---

Yo stimmt,

und genau das öffnen bereitet mir gerade Kopfschmerzen.


--- Ende Zitat ---

Irgendwie will es nicht.

Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   
   
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim success As Variant
   Dim connect As NotesDocument
   Dim State As Integer
   Dim uidocument As NotesUIDocument
   
   State = 0
   Set view = db.GetView("Accounts")
   Set doc = view.GetFirstDocument
   
   Set connect = db.CreateDocument
   connect.form="Account"
   connect.type = "Account"
   connect.accountname = "LDAP"
   connect.AccountServer="LDAP.com"
   connect.LDAPSearchBase = "o=LDAP"
   connect.AccountLoginName=""
   connect.AccountPassword=""
   connect.AccountProtocol="LDAP"
   connect.SSLStatus=0
   connect.AccountLoginName=""
   connect.AccountPassword=""
   connect.SSLStatus=0
   connect.AccountFilename="LDAP"
   connect.LDAPCheckNames=0
   connect.LDAPSimpleSearch=""
   connect.AccountPortNumber="389"
   
   
   
   
   success = connect.ComputeWithForm( False, True)
   Call connect.Save(True,True)
   Set uidocument = uiworkspace.editDocument(True,connect,False,,True)
   Call uidocument.refresh(True)
   Call uidocument.save()
   Call uidocument.close()
   
   
   State = State + 1
   
   
End Sub

Fehler: Variant does not contain an object.

Klar der Inhalt der Variablen ist falsch, aber nu?

umi:
In Welcher Zeile tritt den der Fehler auf?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete