Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / 1С + OutLook / 2 сообщений из 2, страница 1 из 1
30.04.2010, 12:04
    #36607071
Vlados1986
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С + OutLook
Задача такая: пакетно формировать письма в 1с с помощью обработки(тема одна, содержание одно) на разные почтовые адреса(писем может быть очень много). Подключаюсь к OutLook, формирую письма - все отлично работает.
Открываю OutLook, выделяю все сформированные письма, нажимаю "Отправить все" и ничего не отправляется.НО, когда нажимаешь "Отправить" у каждого письма отдельно - все в порядке.
Насколько я понял у письма есть свойство что-то типа "Готово к отправлению" или как-то так (когда оно выделяется курсивом).
Вообщем задача такая: либо OutLook настроить так, чтобы можно было отправлять письма все сразу или программно устанавливать это свойство.
Описание объектной модели смотрел, но не нашел ответа на вопрос. Может быть кто поможет?
...
Рейтинг: 0 / 0
04.05.2010, 14:17
    #36611007
AHDP
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1С + OutLook
Примера под 1С под рукой нету. Держи кусок макроса на Excel'e - создаёт и отправляет письма. Бесплатных утилит для отключения защиты outlook'а от внешних обращений не видел.

Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
.To = EmailAdr 'адрес получателя
'.CC = "" 'копия
.BodyFormat = olFormatHTML 'формат письма
.Subject = "1С, по Вашй просьбе!" ' заголовок письма
' текст письма. Для красоты - HTMLBody
.Body = " Уважаемые коллеги!"
.Attachments.Add "c:\Файл.zip" 'вложение. Если файл не существует, то будет ошибка
.OriginatorDeliveryReportRequested = True 'Уведомление о доставке
.ReadReceiptRequested = True 'Уведомление о прочтении
.Save ' сохраним письмо
.Send ' отправим письмо
End With
End Function
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / 1С + OutLook / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]