Пересылка Писем

@k85 · Регистрация: 07.02.2009

Author24 — интернет-сервис помощи студентам

Скажите, как сделать, чтобы при нажатии кнопки Переслать в стандартной почтовой базе, письма пересылались не в одном письме, а каждое в отдельном и сразу в получателя проставлялся один и тот же адрес?

@k85 · 06.05.2012, 12:38

извеняюсь, за вопрос
все решение найдено, лично мне подошел такой вариант. Агент:

Код

Set doc=dc.getfirstdocument()
Do While Not doc Is Nothyng
Set item=doc.ReplaceItemValue("SendTo","Имя")
Call doc.ComputeWithForm(True,False)
Call doc.Save(True,True)
Call doc.Send(True,True)
Set doc=dc.Getnextdocument(doc)

@k85 0 / 0 / 0 Регистрация: 07.02.2009 Сообщений: 183
		1
	Пересылка Писем 06.05.2012, 11:44. Показов 5879. Ответов 1 Метки нет (Все метки) Скажите, как сделать, чтобы при нажатии кнопки Переслать в стандартной почтовой базе, письма пересылались не в одном письме, а каждое в отдельном и сразу в получателя проставлялся один и тот же адрес? 0

@k85 0 / 0 / 0 Регистрация: 07.02.2009 Сообщений: 183
	06.05.2012, 12:38	2
	извеняюсь, за вопрос все решение найдено, лично мне подошел такой вариант. Агент: Код Set doc=dc.getfirstdocument() Do While Not doc Is Nothyng Set item=doc.ReplaceItemValue("SendTo","Имя") Call doc.ComputeWithForm(True,False) Call doc.Save(True,True) Call doc.Send(True,True) Set doc=dc.Getnextdocument(doc) 0