code:

---

 
break on
;$=setconsole("minimize")

$autoIt=CreateObject("AutoItX.Control")

do 
	if $AutoIt.IfWinExist("Messenger Service", "")
		$=$AutoIt.WinActivate("Messenger Service", "")
		$=$AutoIt.Send("^c")
		$=$AutoIt.WinClose("Messenger Service", "")
		$Paste=$AutoIt.ClipGet()
		$text=split($paste,@crlf)
		$header	= split($text[3])
		$body	= ''
		for $l  = 5 to ubound($text) - 4
			$body = $body + @crlf + $text[$l]
			next
		$from	= $header[2]
		$to	= $header[4]
		$date	= $header[6]
		$time	= $header[7] + ' ' + $header[8]
		$body	= substr($body,3)
? $from
? $body
? '----'
		endif
	sleep 1
	until @error
 

---