Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: osmor ну в лоб.
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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.