Sende Mails fra outlook (mange fra kladder)

Jeg har en mængde mails (68) liggende i kladder i outlook (2003)
dem vil jeg gerne sende på en gang og har lavet følgende kode:

Dim a As Integer
    Dim b As Integer
   
    Dim OutNameSpace As Outlook.NameSpace
    Dim OutFolder As Outlook.MAPIFolder
    Dim OutItems As Outlook.Items
    Dim MailItem As Outlook.MailItem
   
    Set OutNameSpace = Outlook.GetNamespace("MAPI")
    Set OutFolder = OutNameSpace.GetDefaultFolder(olFolderDrafts)
    Set OutItems = OutFolder.Items
   
   
    b = OutItems.Count
   
  For a = 1 To b
        'MsgBox OutItems.Item(a).To
        If OutItems.Item(a).To <> "None" Then
            Debug.Print CStr(a) & "  " & OutItems.Item(a).To
            OutItems.Item(a).Send
           
        End If
       
    Next a
   
    a = 0
 

problemet er at jeg kun sender 30 af de 68, ...
(mails med en to adressat "none" bliver omgået)