ciao
crea una mail, nel messaggio inserisci un pulsante e aggiungi questo nel codice dello stesso:
Dim s As New NotesSession
Dim searchString As String
Dim nameServer As NotesName
Dim connDC As NotesDocumentCollection
Dim connDoc As NotesDocument
Dim localNAB As NotesDatabase
Set nameServer = New NotesName ( <YOUR SERVER NAME> )
Set localNAB = s.GetDatabase ("", "names.nsf", False)
\'locate and delete previous connections
searchString = "Type = \'Connection\' & @Contains(@Uppercase(Destination); \'" + Ucase ( nameServer.Common ) + "\')"
Set connDC = localNAB.Search( searchString, Nothing, 0)
Call connDC.RemoveAll(True)
Print "Updating you connectiondocument(s)..."
\'create new connectiondocument (no. 1)
Set connDoc = localNAB.CreateDocument()
connDoc.Form = "local"
connDoc.Comments = "Connection to " + nameServer.Common
connDoc.Destination = nameServer.Abbreviated
connDoc.ConnectionLocation = "*"
connDoc.LanPortName = "TCPIP"
connDoc.OptionalNetworkAddress = <YOUR SERVER IP>
connDoc.PortName = "TCPIP"
connDoc.ConnectionType = "0"
connDoc.Source = "*"
connDoc.ConnectionRecordFirst = "1"
Call connDoc.ComputeWithForm(False, False)
Call connDoc.Save(True, False)
Messagebox "Connection updated"
Praticamente, il pulsante ripulisce le eventuali vecchie connessioni e ne crea un nuova con il nuovo IP.
Provala magari su una copia del names.
Ciao
Andrea Ferro - Lotus Notes Developer - www.work.it
|