VBA Excel "for mange mails sendt for hurtigt"

Jeg sender ca. 400 mails via OUTLOOK fra en mailliste i Excel

min VBA-kode ser nogenlunde sådan ud (xxx erstatter aktuel tekst):

Sub SendViaOutlook()
    On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim vedhaeft As String
    Dim Varenavn As String
   
   
    Set olApp = GetObject("Outlook.Application")

    For i = 3 To 387
        Recep = Range("e" & i).Value
        'vedhaeft = Range("J" & i).Value
        MsgTxt = Range("g" & i).Value
        MsgTxt = MsgTxt & " " & vbCr & vbCr
        MsgTxt = MsgTxt & "Du modtager denne mail for at informere dig om at xxxxx er opdateret på følgende områder:" & vbCr & vbCr
        MsgTxt = MsgTxt & "1. Forsiden: Aktuelt" & vbCr
        MsgTxt = MsgTxt & "2. Kun formmedlemmer: Medlemsliste" & vbCr
        MsgTxt = MsgTxt & "3. Markedspladsen" & vbCr & vbCr & vbCr & vbCr
        MsgTxt = MsgTxt & "Hvis du ikke ønsker en mail om opdateringer eller har kommentarer i øvrigt, skal du blot svare på denne mail." & vbCr & vbCr
      MsgTxt = MsgTxt & "Med venlig hilsen" & vbCr & vbCr
      MsgTxt = MsgTxt & "xxx" & vbCr
      MsgTxt = MsgTxt & "xxx" & vbCr
      MsgTxt = MsgTxt & "Webmaster" & vbCr
      MsgTxt = MsgTxt & "tlf. xxxxx" & vbCr
        Varenavn = "xxxx er opdateret "

        Set olNewMail = CreateItem(olMailItem)

        With olNewMail
            .Recipients.Add Recep
            .Body = MsgTxt
            .Subject = Varenavn
            .Attachments.Add vedhaeft
            .ReadReceiptRequested = False
            .OriginatorDeliveryReportRequested = False
            .Save
            .Send
        End With
    Next i
End Sub

Det virker rigtig fint, men desværre får jeg en svarmail i outlook på nogle af de afsendte mails:

End-of-data rejected: You are sending to many mails to fast!

Kan jeg sætte noget ind i VBA-koden for at undgå dette?