| |
|
|
| | Блин, всё начисто уже забыл. Ребятки, кинте функцию поиска в рекордсете записей и добавления их в модуль...
Суть вопроса такова: есть запрос с двумя полями, в первом поле список эмейлов, во втором список валдельцев этих эмейлов.
Олег (Osmor) дал функцию по отправке месседжей http://hiprog.com/index.php?option=com_content&task=view&id=458&Itemid=99999999&limit=1&limitstart=1, за что ему огромное спасибо.
Но я "завис", не помню, как блин, в эту функцию воткнуть цикл по обработке списка из рекордсета, что бы на каждый эмейл уходили письма, туплю страшно просто. Но надо делать, и желательно побыстрее! | |
| |
| |
| |
|
|
| | по памяти
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "select .... тут нужный запрос", con, adOpenForwardOnly, adLockReadOnly
Do While Not rst.EOF
'здесь формирование нужных данных и вызов функции отправки передавая в нее адрес, заголовок и все что нужно
' обращение к полю текущей записи
' rst![имяПоля]
rst.movenext
loop
|
| |
| |
| |
| |
|
|
| | Ещё раз огромное спасибо!!! | |
| |
| |
