Создание письма в Outlook

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v7.7

1. eshtrey 14.11.16 12:23 Сейчас в теме

Как добавить в новом письме из 1с получателя копии письма (поле "Копия" в outlook)?
C добавлением получателя проблем нет
НовоеПисьмо.Recipients.Add(СокрЛП(Кому))
а вот получатель копии почему то не добавляется
НовоеПисьмо.ReplyRecipients.Add(СокрЛП(Кому))
может не тот метод использую?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

7. daMaster 252 24.12.19 19:40 Сейчас в теме

(1)
Recipient = Письмо.Recipients.Add(Адресат);
Recipient.Type = 2;

8. TheOldGuard 11 06.07.22 10:01 Сейчас в теме

(1)

ReplyRecipients

https://docs.microsoft.com/ru-ru/office/vba/api/outlook.recipient.type

&НаКлиенте
Процедура ОтправитьПисьмо()
Попытка
	Outlook = Новый COMОбъект("Outlook.Application");
Исключение
	Сообщить("Не удалось получить доступ к приложению Outlook");
	Возврат;
КонецПопытки;

мПолучатели = Новый Массив;
мПолучатели.Добавить("Peresada.MY@mycompany.ru");

мПолучателиКопии = Новый Массив;
мПолучателиКопии.Добавить("Ivanov.YA@mycompany.ru");
мПолучателиКопии.Добавить("Sidorov.VL@mycompany.ru");

ТекстПисьма = "Мой текст письма";

Попытка
	Письмо = Outlook.CreateItem(0);
	Письмо.Subject = "Моя тема письма";	
		
	Для каждого ПолучательПисьма из мПолучатели Цикл
		Письмо.Recipients.Add(ПолучательПисьма); //Получатели
	КонецЦикла;
		
	Для каждого ПолучательКопииПисьма из мПолучателиКопииЦикл
		ПолучательКопии = Письмо.Recipients.Add(ПолучательКопииПисьма); //Получатели копии
			
		//Установка типа получателя
		//https://docs.microsoft.com/ru-ru/office/vba/api/outlook.olmailrecipienttype
		ПолучательКопии.Type = 2;
	КонецЦикла;
	
	//Необходимо, чтобы сохранилась подпись из письма
	Письмо.Display();
	
	Письмо.HTMLBody = ТекстПисьма + Письмо.HTMLBody;
		
	Исключение
КонецПопытки;
КонецПроцедуры

Показать

2. DenisCh 14.11.16 12:26 Сейчас в теме

рсп = НовоеПисьмо.ReplyRecipients.Add(СокрЛП(Кому))
рсп.ReciepType = 2

что-то вроде такого. Почитай про протоколы и объектные модели MAPI

3. annapam1983 14.11.16 12:47 Сейчас в теме

// формируем адрес получателя
Для Каждого ПочтовыйАдресПолучателя Из Кому Цикл
Получатель = Письмо.Получатели.Добавить(ПочтовыйАдресПолучателя.Адрес);
Получатель.ОтображаемоеИмя = ПочтовыйАдресПолучателя.Представление;
КонецЦикла;

Если ПараметрыПисьма.Свойство("Копии", Копии) Тогда
// формируем адрес получателя поля Копии
Для Каждого ПочтовыйАдресПолучателяКопии Из Копии Цикл
Получатель = Письмо.Копии.Добавить(ПочтовыйАдресПолучателяКопии.Адрес);
Получатель.ОтображаемоеИмя = ПочтовыйАдресПолучателяКопии.Представление;
КонецЦикла;
КонецЕсли;

4. корум 288 14.11.16 13:47 Сейчас в теме

(3) 7.7 не просто так указано.

5. eshtrey 14.11.16 14:21 Сейчас в теме

(3) то что написано на 8ке - проблем нет, а код это точно для работы с outlook?

6. annapam1983 16.11.16 17:28 Сейчас в теме

(5) точно

Оставьте свое сообщение

E-mail: