Mi Blog

Agregar una direccion nueva para las personas en el documento de persona

 Domino › 

Por sugerencia de mi amigo Juan Camilo de Medellín, coloco este código LotusScript

Este código agrega una entrada nueva en el campo fullName del documento de persona, tomando la dirección de correo de internet actual y agregando un dominio específico. el código se ejecuta en un agente desde el menú de acciones y opera sobre los documentos seleccionados:

Sub Initialize
    Dim s As New notesSession
    Dim db As NotesDatabase
    Dim col As notesDocumentCollection
    Dim doc As notesDocument
    Dim fullname As notesItem
    Dim nuevoDominio As String, nuevaDireccion As String
   
    Set db = s.currentDatabase
    Set col = db.unprocessedDocuments
    Set doc = col.getfirstDocument
    nuevoDominio = "@ggg.co.uk"
    Do Until doc Is Nothing
        Set fullname = doc.GetFirstItem ( "FullName" )
        nuevaDireccion = Strleft( doc.internetAddress(0), "@") & nuevoDominio
        Call fullname.AppendToTextList( nuevaDireccion )
        doc.save True, True
        Set doc = col.GetNextDocument ( doc )
    Loop
   
End Sub

Coloca tus comentarios porfa..

 Domino  2 Comments March 21st, 2007