Code:
Break On
$SO = SetOption('NoMacrosInStrings','On')
$array = ReadFile('e:\kixtest\xchport.txt')

for each $element in $array
  if left($element,5) = "SMTP:"
    $EMailAddy = Split(Split($element,'%')[0],':')[1]
    $RC=RedirectOutput("e:\kixtest\emailady.txt")
    IF RedirectOutput("e:\kixtest\emailady.txt") = 0
      $EMailAddy ? 
    endif
  else
    if left($element,7) = "CCMAIL:"
      $EMailAddy = Split(Split($element,'%')[2],':')[1]
      $EMailAddy ?
    endif
  EndIf
Next