Función para crear, actualizar conexiones
Domino ›
Esta función crea o actualiza documentos de conexión en la estación del cliente hacia un servidor Domino.La sintaxis de llamada de la función es:
Conx "domino/acme", "CN=domino/O=acme", "domino.acme.com"
Se puede utilizar en un botón en un mensaje de correo electrónico para actualizar o crear los documentos de conexión cuando cambia el nombre de red de un servidor o cuándo las estaciones no resuelven correctamente la dirección de un servidor Domino.
Function Conx( nomServNotes As String, fullName As String, nomDNS As String) As Boolean
Dim s As New NotesSession
Dim db As NotesDatabase
Dim names As NotesDatabase
Dim docConexion As NotesDocument
Dim vista As notesView
Dim nombreServer As String
Set db = s.CurrentDatabase
Set names = New NotesDatabase("", "names.nsf")
Set vista = names.getview("Connections")
nombreServer = nomServNotes
Set docConexion = vista.GetDocumentByKey( nombreServer, True )
If docConexion Is Nothing Then
Set docConexion = names.CreateDocument
End If
With docConexion
.Form = "local"
.ConnectionLocation = "*"
.ConnectionRecordFirst = "1"
.ConnectionType = "0"
.Cost = 1
.Destination = fullName
.DestinationDomain = "*"
.DialAreaCode = "0"
.DocumentAccess = "[NetModifier]"
.Enabled = "0"
.Interval = 360
.LanPortName = "TCPIP"
.MailThreshold = 5
.OptionalNetworkAddress =nomDNS
.PhoneNumber = nomDNS
.PortName = "TCPIP"
.RepPriority = "0"
.Source = "*"
.Type = "Connection"
.save True, True
End With
End Function
Coloca tus comentarios porfa..
0 