Domino 9 und frühere Versionen > Entwicklung

probleme mit einer db

<< < (3/4) > >>

ata:
... eine Mail mit einem Button, auf den der User zu drücken hat - mit Rückmeldung, ob er es auch gemacht hat...

ata

eknori:
verbindungsdokumente anlegen ?? manuell ?? muahahahaha !!!!

geht doch viel einfacher mit einem kleinen Script in DatabaseScript der Maildatenbank

z.B.

   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
   State = 0
   
   Set view = db.GetView("Connections")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If Trim(Ucase(doc.Destination(0))) = "CN=COMM1/O=WITTE/C=DE" Then
         Goto NextServer
      Else
         Set doc = view.GetNextDocument(doc)
      End If
   Wend
   
   Set connect = db.CreateDocument
   connect.form = "local"
   connect.type = "Connection"
   connect.destination = "CN=COMM1/O=WITTE/C=DE"
   connect.lanportname = "TCPIP"
   connect.connectiontype = "0"
   connect.optionalnetworkaddress = "10.14.1.112"
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   State = State + 1
   
   
   
NextServer:
   Set view = db.GetView("Connections")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If Trim(Ucase(doc.Destination(0))) = "CN=DEWVM02/O=WITTE/C=DE" Then
         Goto Alert
      Else
         Set doc = view.GetNextDocument(doc)
      End If
   Wend
   
   Set connect = db.CreateDocument
   connect.form = "local"
   connect.type = "Connection"
   connect.destination = "CN=DEWVM02/O=WITTE/C=DE"
   connect.lanportname = "TCPIP"
   connect.connectiontype = "0"
   connect.optionalnetworkaddress = "10.14.1.151"
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   State = State + 1
   
   
Alert:
   Select Case State
   Case 0
   '   Messagebox "Your Personal Address Book already has both Server Connection Documents; no new connection documents were created." , 0 + 64 , "Finished!"
   Case 1
   '   Messagebox "Your Personal Address Book already had one of the Server Connection documents; one new connection document was created." , 0 + 64, "Finished!"
   Case 2
   '   Messagebox "Two new server connection documents were created in your Personal Address Book." , 0 + 64, "Finished!"
   End Select

klaussal:
 DANKE !  :D  :D  :D

jetzt soll mein vorturner mal entscheiden, was er möchte.

harkpabst_meliantrop:
Er soll gefälligst dafür sorgen, dass auch die Notes-Server-Namen im DNS stehen (hörte ich da was von HOSTS-Dateien??), dann geht's auch so.

redbarony:

--- Zitat von: ata am 17.06.03 - 15:29:45 ---... eine Mail mit einem Button, auf den der User zu drücken hat - mit Rückmeldung, ob er es auch gemacht hat...

ata

--- Ende Zitat ---

Kannst Du evtl. eine genaue Anleitung zum Erstellen dieser Mail geben?

Gruß redbarony

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete