asignarCorreo ( Nombre ; Apellido )

Generador de correo electrónico corporativo

Be the first to rate this function Log in to vote

Tomas ortega - Show more from this author
Augurio Solutions
http://augurio.cl

Sample input:

asignarCorreo ( Tomas ; Ortega )

Sample output:

t.ortega@augurio.cl

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
 * ==============================
 * asignarCorreo ( Nombre ; Apellido )
 * ==============================
 * ==============================
 * Creado: 13-08-2021
 * By: Tomas ortega • https://augurio.cl
 * Version: 1.0
 * ==============================
*/

Let ( [ _nom = LeftWords ( Lower (nombre) ; 1 ) ;
          _nomLetra = Left ( _nom ; 1 );
           _ap = LeftWords ( Lower ( apellido ); 1);
           _corporacion = "@augurio.cl" ];
If ( not IsEmpty ( _nom) and not IsEmpty (_ap) ;
While ( [ 
        _i = 0 ; 
        _resultado = "" ; 
       _texto = "" ; 
       _numero = "" ;
       _correo = "" ;
        _sql = ""  ] ;

         1  ≠   _sql  ; // termina cuando los valores sean iguales 
           [
        _texto = _nomLetra &"."& _ap ;
        _i = _i + 1 ; 
        _numero =  Case ( _i = 0 ; ""; _i <10 ;   0 & (_i ) ; _i ) ;
        _correo = _texto & _numero &_corporacion  ;
        _sql =  If ( IsEmpty ( ExecuteSQL ( "SELECT EMAIL FROM D0_PERSONAS WHERE EMAIL = ?";"";"" ; _correo ) ) ;1 ; 2) ;
         _resultado = _correo ] ; 
      _resultado
) ;"") )

Esta es una función para poder asignar un correo electrónico corporativo a un usuario automáticamente, evitando crear correos suplicados.

Para poder utilizar esta función es necesario modificar la secuencia SQL que se encuentra almacenada en la variable _sql

El formato de correo electrónico que genera es t.ortega@augurio.cl, si ese ya existe en el sistema le suma un 01 quedando t.ortega01@augurio.cl

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

asignarCorreo ( Nombre ; Apellido )

Comments

Support this website.

Support this website.