OUTLOOK /MSACCESS

Buona sera a tutti e davvero complimenti per il forum.
Ho un piccolo problema outlook/access.
Sto realizzando un'applicazione che ricava una lista di email ,fino a quà non c'è problema, il mio problema è dividire l'invio delle email.
Ad esempio ho 120(ma possono essere molte di piu') email (al fine di non farmi bloccare come spam) vorrei dividire l'invio ad esempio con piu' email contenenti 20 indirizzi.
Comunque è un'applicazione aziendale(ovviamente non è il mio lavoro creare applicazioni).
vi posto il codice (ovviamente recupera tutti gli indirizzi email).
Vi ringrazio anticipatamente per l'aiuto

Option Compare Database
Option Explicit
Private Sub Comando38_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strsql As String
Dim outlo As Outlook.Application
Dim oemail As Outlook.MailItem
Dim vStringa As String
Dim emm As String
Dim i As Integer


Set outlo = CreateObject("Outlook.Application")
Set oemail = outlo.CreateItem(olMailItem)
Set db = CurrentDb

With oemail
strsql = "SELECT CLIENTI.[NOME CLIENTE], CLIENTI.LINEA, CLIENTI.LINEA1, CLIENTI.[LINEA2], CLIENTI.[LINEA3], EMAIL.[email] FROM CLIENTI LEFT JOIN EMAIL ON CLIENTI.[NOME CLIENTE] = EMAIL.[NOME CLIENTE] WHERE CLIENTI.[LINEA]='" & Me.LINEA & "' OR CLIENTI.[LINEA1] ='" & Me.LINEA & "' OR CLIENTI.[LINEA2] ='" & Me.LINEA & "' OR CLIENTI.LINEA3= '" & Me.LINEA & "' OR CLIENTI.[LINEA]='TUTTE LE LINEE'"
Set rst = db.OpenRecordset(strsql)


If rst.RecordCount > 0 Then
Do Until rst.EOF
vStringa = (vStringa & "; ") & rst.Fields("email")
If IsNull(rst.Fields("email")) Then
rst.MoveNext
Else
emm = emm & rst.Fields("email") & ";"
.BCC = emm
rst.MoveNext
End If

Loop
Else
MsgBox "nessuna email trovata"
End If

.To = ""
.BCC = vStringa
.Subject = Me.OGGETTO
.Body = Me.TESTO_EMAIL
.Display

End With
End Sub