ObtenerListaCorreos

 ALTER PROCEDURE [dbo].[ObtenerListaCorreos]  @OpcionId AS varchar(50)   

AS    

    BEGIN    

        DECLARE @strCorreos AS VARCHAR(MAX);    

        DECLARE @dtCorreos TABLE(correo VARCHAR(100));    

        DECLARE @intIndiceInicio AS INT;    

        DECLARE @intIndiceFin AS INT;    

        DECLARE @strCorreo AS VARCHAR(100);    

        DECLARE @ultimo AS INT;    

        SET @intIndiceInicio = 1;    

        SET @intIndiceFin = 0;    

        SET @ultimo = 0;    

        SELECT @strCorreos =  [correo] from (

        SELECT  correo

        FROM CORREOS   

WHERE OPCIONID = @OpcionId

) as x

;

        WHILE @intIndiceFin <> LEN(@strCorreos)    

            BEGIN    

                SET @intIndiceFin = CHARINDEX(',', @strCorreos, @intIndiceInicio);    

                IF @intIndiceFin = 0    

                    BEGIN    

                        SET @IntIndiceFin = LEN(@strCorreos);    

                        SET @ultimo = 1    

                END;    

                IF @ultimo = 0    

                    SET @strCorreo = SUBSTRING(@strCorreos, @intIndiceInicio, (@intIndiceFin - @intIndiceInicio));    

                    ELSE    

                    SET @strCorreo = SUBSTRING(@strCorreos, @intIndiceInicio, ((@intIndiceFin - @intIndiceInicio) + 1));    

                INSERT INTO @dtCorreos    

                VALUES(@strCorreo);    

                SET @intIndiceInicio = (@intIndiceFin + 1);    

            END;    

        SELECT *    

        FROM @dtcorreos    

        ORDER BY correo;    

        END;