| |
|
|
| | Старожилы, подскажите в каком направлении искать. Есть база данных мейлов порядка 1200 штук, ограничение по майлру 30 адресов в письме, значит нужно нарезать порции по 30 штук (матрица?) и потом вручную засовывать в письмо (как автоматом пока еще не думал). Как сделать нарезки по 30 штук алгоритмом? | |
| |
| |
| |
|
|
| | ну в лоб.
dim rst as dao.recordset
dim i as byte
dim strEmail as string
set rst = currentdb.Openrecordset("select ......")
strEmail = ""
rst.movefirst
do while not rst.eof
for i =1 to 30
strEmail = strEmail & ", " & rst![ПолеСАдресом]
rst.movenext
if rst.eof then exit for
next
здесь оптавка письма
strEmail = ""
loop
|
| |
| |
| |
|
|
