PRINT (LP) (SUBJECT = MESS$);(TR) Print (LP) (Text = '') CLOSE (TEMPLATE) IF ZZ1DIV$ EQ 'CA' THEN OPEN (TEMPLATE) 'EMLTEMCA.HTM' ELSE OPEN (TEMPLATE) 'EMLTEMUS.HTM' ENDIF 5994 ! READ (TEMPLATE,0004),EXCP=5998 IF SUB(TXTLN$,1,3) EQ BYTEORDER$ GOTO 5994 IF SUB(TXTLN$,1,5) EQ SKIPHTML5$ GOTO 5994 IF STRIP(TXTLN$) EQ '' GOTO 5994 IF POS('Body Message Placeholder',txtln$) NE 0 THEN FOR J = 1 TO 10 ! ALL TESTS GO HERE TO DETERMINE IF ANYTHING ! NEEDS TO BE DETECTED FOR REPLACING DATES, SHIP WEEKS, ! DOLLAR AMOUNT, DATES, ETC. TXTLN$ = MSGARY$(J) IF POS('XXXXXXXXXXXX',TXTLN$) NE 0 THEN FOR K = 1 TO 6 IF STRIP(TRACKNOS$(K)) NE '' THEN TXTLN$ = 'Tracking #: ' TXTLN$ = TXTLN$ + '' + STRIP(TRACKNOS$(K)) + '
' PRINT (LP) (Text = TXTLN$) ENDIF NEXT K ELSE PRINT (LP) (Text = TXTLN$) ENDIF NEXT J ELSE PRINT (LP) (Text = TXTLN$) ENDIF GOTO 5994