Moin,
ich möchte Usern mit dem nachfolgenden Script Verbindungsdokumente übergeben.
Das klappt auch soweit. Allerdings möchte ich noch Passthru Verbindungen übergeben.
Leider werde ich nicht fündig wie in diesem Falle die Felder zu benennen sind.
Über Hilfe dazu bin ich dankbar.
Gruß
Mike
Sub Click(Source As Button)
Dim Workspace As New NotesUIWorkspace
Dim UIDdoc As NotesUIDocument
'Server#1
Set uidoc = workspace.composedocument("","names.nsf","Connection")
Call uidoc.fieldsettext("ConnectionType","Local Area Network")
Call uidoc.refreshhideformulas
Call uidoc.fieldsettext("PortName","TCPIP")
Call uidoc.fieldsettext("LanPortName","TCPIP")
Call uidoc.fieldsettext("ConnectionLocation","*")
Call uidoc.refreshhideformulas
Call uidoc.fieldsettext("Destination","Server/Organisation")
Call uidoc.fieldsettext("OptionalNetworkAddress","ip.of.server.x")
Call uidoc.fieldsettext("Source","*")
Call uidoc.refresh
Call uidoc.save
Call uidoc.close
End Sub