Задержка на отсылку писем в Outlook через Access

[ShowMeYourStyle]

Всем привет!

Есть макрос аксессе который отсылает письма 195 людям с вложениями по мегабайту.

Такое ощущение что аутлук с таким кол-вом одновременных отправок не справляется поэтому некоторые люди не получают вложений а стандартный текст.

Что нужно вставить в код чтобы была задержка на отсылку сообщений, скажем по 10 штук за раз и тд?

Do Until rst.EOF
n = n + 1
'For f = 1 To RST.Fields.Count
a = rst!Cod
b = rst!Email
'c = rst!Email1
d = "HC" & a & "_" & Format(Now, "yyyymm")
e = "Добрый день," + Chr(10) + "Во вложении вы сможете найти мануальные списки на текущий месяц." + Chr(10) + "В конце месяца Вам необходимо выслать заполненные файлы."

Call SendEmailAtt(b, "списки заемщиков", e, "D:\ManualLists\WorkFolder\XLS_FILE S_201108\" & d & ".rar ")
'Call SendEmailAtt("ManualLists@homecredi t.kz", "списки заемщиков", e, "C:\Tolkyn\SAKEN\WorkFolder\XLS_FIL ES_201104\" & d & ".rar ")



rst.MoveNext
If rst.EOF Then Exit Do
Loop
Msg = "Отправлено" + Str(n) + "файлов!"
MsgBox Msg, , "Отправка файлов"
rst.Close
End Sub

[gluk_fm]

Я когда то делал на CDO у меня работало нормально и аутлук не надо, делается на уровень ниже но работает быстрее:

Sub Message_CDO(txt As String)


Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.FROM = "ОТ КОГО"
objMsg.to = "кому отправить можно вставить с вашего перебора"
objMsg.Subject = "ВЛОЖЕНИЕ МОЖНО ТОЖЕ С ПЕРЕБОРА"
objMsg.Textbody = "This is a body of E-mail."
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "адрес вашего сервера"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "АДРЕС ВАШЕЙ ПАПКИ"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ПАРОЛЬ ДЛЯ КОМПЬЮТЕРА"
Config.Fields.Update
objMsg.Send
End Sub


Или просто в Ваш код добавить ещё один перебор For a=1 to 10, что позволит выбирать только по 10 получателей....

[gluk_fm]

Ой извини пропустил, надо ещё добавить для прикрепления вложения:
objMsg.AddAttachment "путь"