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
