RWSN#55808 M2M
svn path=/Customer/trunk/; revision=45020
This commit is contained in:
@@ -27587,7 +27587,7 @@ BEGIN
|
|||||||
v_errormsg := 'Fout bepalen E-mail';
|
v_errormsg := 'Fout bepalen E-mail';
|
||||||
v_email := '';
|
v_email := '';
|
||||||
v_bodypart := SUBSTR (pbody, 1, 4000);
|
v_bodypart := SUBSTR (pbody, 1, 4000);
|
||||||
WHILE v_email = '' AND INSTR (v_bodypart, '<') > 0
|
WHILE v_email IS NULL AND INSTR (v_bodypart, '<') > 0
|
||||||
LOOP
|
LOOP
|
||||||
v_bodypart := SUBSTR (v_bodypart, INSTR (v_bodypart, '<'));
|
v_bodypart := SUBSTR (v_bodypart, INSTR (v_bodypart, '<'));
|
||||||
IF INSTR (v_bodypart, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- Staan < en > op dezelfde regel?
|
IF INSTR (v_bodypart, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- Staan < en > op dezelfde regel?
|
||||||
|
|||||||
Reference in New Issue
Block a user