vb outlook problem

Hi all..

I am using MAPI to send mails using outlook.

every thing works fine.. My problem is with the limit..

My client needs to send mails to its customers(around 6000).

this is how i send

sign on

loop begins

VB Code:

Me.MAPIMessage.SessionID = Me.MAPISession.SessionID
    Me.MAPIMessage.Compose
    Me.MAPIMessage.MsgIndex = -1
     
        Me.MAPIMessage.MsgNoteText = Trim(strMessage)
      
    Me.MAPIMessage.MsgSubject = Trim(strSubject)
    Me.MAPIMessage.RecipAddress = Trim(strToAdd)
   
    DoEvents
    Me.MAPIMessage.Send

loop ends

sign off

the above code will be in a loop to send to 6000 recipents..

my problem is only 1490 mails are sent to the out box at one time.

no errors are reported. after sending all 6000 mails to outlook in batches
i am sending them to recepients..

now i am sending in batches of 1000. any work arounds

every thing except this 1490 limit is working fine...
Thanks..

Easwaran.K.V