Read all mails one by one

How can i read all the mails in my outlook 2000 inbox using xp_readmail. I am able to read only one mail.
but when i am looping with xp_findnextmsg to read all the messages, the loop is not terminating and system is hanging
my sample code is given below

DECLARE @status2 int
declare @status int
declare @message_id varchar(200)
DECLARE @message varchar(8000), @dateRecive varchar(255),@subject varchar(255)
DECLARE @subjectMessage varchar(255), @unread varchar(5) ,@unreadFl varchar(5)
DECLARE @originator_address varchar(255), @sendBy varchar(255)DECLARE @i int
DECLARE @attachments varchar(255), @attachmentsMessage varchar(255)
EXEC @status2 = xp_findnextmsg @msg_id = @message_id OUTPUT

while @message_id is not null
begin
EXEC @status = xp_readmail @msg_id =@message_id ,@originator_address = @sendBy OUTPUT , @unread = @unreadFl OUTPUT , @message =@message OUTPUT , @date_received = @dateRecive OUTPUT , @subject = @subjectMessage OUTPUT , @attachments = @attachmentsMessage OUTPUT
print @message print @dateRecive print @subjectMessage print @unreadFl print
@sendBy print @attachmentsMessage

EXEC @status2 = xp_findnextmsg @msg_id = @message_id OUTPUT

end