Bueno, esto es una de las cosas que siempre nos hemos preguntado, ¿Por qué no puedo escoger la dirección de envío de un correo cuando tengo asignada más de una dirección de Internet? El tema es, principalmente, porque el campo remitente lo cogemos de la ubicación del usuario, y el proceso de envío pone el valor de la ubicación en el último momento.
Las posibles soluciones son:
Solución 1 SCRIPT Un
script que coloque el correo directamente en el
mail.box,y ahí le pongo el campo necesario. De esta manera no hago un envío nativo, sino que creo un correo en el mail.box del servidor.
Solución 2 Gestión de Ubicaciones Otra solución, es crearle al usuario distintas ubicaciones cada una de ellas con la dirección de Internet correspondiente. Y “educar” al usuario para que cambie de gorra (ubicación) cuando quiere mandar un correo con una u otra dirección de Internet.
Solución ESLUG (3) Crearemos un campo que nos diga el UNID del documento de Ubicación que está usando el usuario, este campo lo llamaremos LOCATIONID y tendrá como valor la siguiente fórmula
@Text(@LocationGetInfo([UNID])) Crearemos un campo desplegable en el formulario MEMO (más tarde lo podemos crear en el REPLY, etc) que haga lo siguiente.
1 . Busque en el names.nsf cuántas y cuáles son las direcciones de correo del usuario y se las muestre en el desplegable.
2 . Que tenga como valor por defecto la dirección que hay en la ubicación en ese momento
3 . Que al seleccionar la dirección que quiere utilizar se actualice el valor en la ubicación y por lo tanto en el envío
El valor por defecto de este campo sería
@LocationGetInfo([InternetMailAddress]) En la lista de valores posibles del
comboboxcolocaremos la siguiente fórmula:
lista:=@Unique(@DbLookup("":"NOCACHE";@Subset(@MailDbName;1):"names.nsf";"($Users)";@UserName;"fullname"):
@DbLookup("":"NOCACHE";@Subset(@MailDbName;1):"names.nsf";"($Users)";@UserName;"internetaddress"));
temp := "";
@For(n := 1; n <= @Elements(lista); n := n + 1;
@If(@Contains(lista[n];"@");temp := temp:lista[n];temp:=temp));
@Sort(@Trim(temp)) Que básicamente lo que hace es buscar al usuario en el names.nsf del servidor, extraer la lista de valores del fullname+internetaddress, limpiarla para coger sólo los valores con @ y ordenarla.
Ahora en el Evento Onchange de ese campo pondremos el
script que modifica la ubicación del usuario
Sub Onchange(Source As Field)
Dim dbnames As NotesDatabase
Dim doclocation As NotesDocument
Dim s As New notessession
Set dbnames=s.GetDatabase("","names.nsf")
Dim unid As String
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
unid=uidoc.FieldGetText( "locationID" )
Set doclocation=dbnames.GetDocumentByUNID(unid)
doclocation.imailaddress=uidoc.FieldGetText( "remitente" )
Call doclocation.Save(True,False)
Call workspace.EditDocument(True, doclocation)
Dim uidoc2 As NotesUIDocument
Set uidoc2 = workspace.CurrentDocument
Call uidoc2.Reload
Call uidoc2.Save
Call uidoc2.Close(True)
End Sub Con todo esto cuando vayamos a mandar un correo podremos ver con qué dirección se está enviando y podré cambiarla al gusto. Podríamos mejorarlo, ocultando este campo si la lista de direcciones no es mayor que 1, etc. Pero eso será en otra ocasión.
Ni que decir tiene que esto no está soportado oficialmente, que solo funciona para NOTES y que aquel que lo implemente lo hace bajo su propio riesgo. A continuación se detalla más información sobre las
fórmulas no documentadas que utilizamos para sacar valores de la ubicación.
http://www-01.ibm.com/support/docview.wss?rs=0&uid=swg21094302
http://planetlotus.org/profiles/assonos-blog_55702 Saludos
Lotus Notes
