call addlib "rexxreqtools.library", 0, -30

/*Get Message*/
if show(PORTS,MD.1) then do
    address MD.1 'ExtractSelectedMsgs T:MDMessage.html PART 1 NOREQ'
    end
else do
    call rtezrequest('MicroDot Port Not Found!')
    exit(20)
end
/*Check Voyager*/
if ~show(PORTS,VOYAGER) then do
    St_V = rtezrequest('Do you Want to Launch Voyager?','_Yes| _No ','MD2V',,'rtez_defaultresponse = 1')
    if St_V = '1' then do
        address command Path_V
        call rtezrequest('Press OK When Voyager is up.',,'MD2V','rt_reqpos = reqpos_topleftscr',)
        startV()
    end
end
if show(PORTS,VOYAGER) then
    do
       address VOYAGER 'OpenURL file:///T:MDMessage.html NEW'
       deletemessage()
       exit(20)
    end
else
    do
      call rtezrequest('ALERT There was a problem launching Voyager!',,'MD2V')
      deletemessage()
      exit(20)
end
/* Function */
startV:
 if ~show(PORTS,VOYAGER) then do
  call rtezrequest('ALERT There was a problem launching Voyager!',,'MD2V')
  deletemessage()
 end
return '0'
/**/
/* Function */
deletemessage:
 DelMes = rtezrequest('Delete Email TempFile?','_Yes| _No ','MD2V',,'rtez_defaultresponce = 1')
     if DelMes = '1' then
        address command 'delete T:MDMessage.html'
return '0'
/**/
/* $VER: 0.8, ©2002 David Crawford. Open Microdot-II mail in Voyager window. */