/* Trim Getmail Aweb v.1 */ /*trace results*/ options results /*MODIFY THESE TO YOUR E_MAIL HEADER BEGINNING & ENDING WORDS*/ headerwordbegin = 'Received:' headerwordend = 'X-UIDL:' /*Do change anything beyond here.*/ open(1,'t:GetMail.tempfile',r) open(3,'t:Getmail1.temp',w) /*seek(1,0,END) writeln(1,"") seek(1,0,BEGIN)*/ a=0 Do until EOF(1) do until word(line,1) = headerwordend line = readln(1) /* current line of text */ dppos = index(line, ':') if (dppos ~= 0) then do if dppos > 13 | dppos == 0 then iterate keyword = left(line, dppos-1) /* Avoid syntax problems with '-' in 'Message-ID' */ keyword = translate(keyword, 'x_', 'X-') interpret header.keyword "=line" end end a=a+1 open(message.a,'t:message.'a,w) call writeln(message.a,"E-Mail Messages

Message "a"

") call writeln(message.a,'') call writeln(message.a,'') b=0 if header.from ~= 'HEADER.FROM' then Do until pos('@',word(header.from,b)) ~= 0 | b>8 b=b+1 if pos('@',word(header.from,b)) ~= 0 then call writeln(message.a,"
  • From:')">"compress(word(header.from,b),'",<,>')"
    ") end if b > 8 then do call writeln(message.a,header.from) end if header.to ~= 'HEADER.TO' then call writeln(message.a,"
  • "header.to)"
    " if header.subject ~= 'HEADER.SUBJECT' then call writeln(message.a,"
  • "header.subject) if header.date ~= 'HEADER.DATE' then call writeln(message.a,"
  • "header.date) /*if header.message_id ~= 'HEADER.MESSAGE_ID' then call writeln(message.a,header.message_id)*/ call writeln(3,header.from) call writeln(message.a,"
    ")
call writeln(message.a,'
    Message:
    ')

drop b
Do until word(line,1) = headerwordbegin
       line = readln(1)
       if word(line,1) ~= headerwordbegin then do
       if word(line,2) = 'tomeeee@soho.ios.com'| word(line,1) ='Status:' then iterate
        call writeln(message.a,line)
       if eof(1) then exit
  end
 end
end