8.х Уведомление о прочтении

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Димыч28, 4 июл 2014.

  1. TopicStarter Overlay
    Димыч28
    Offline

    Димыч28 Опытный в 1С

    Регистрация:
    10 янв 2013
    Сообщения:
    112
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте, подскажите кто знает как настроить уведомление о прочтении письма
    вот код, мне приходит сообщение только о доставке
    Код:
    Письмо = Новый COMОбъект("CDO.Message");
            Письмо.To     = ЭлАдрес;
            Письмо.From     = СокрЛП(Объект.Отправитель.Отправитель);
            Письмо.Subject    = ТемаЗаявки;
            Письмо.TextBody    = ТекстСообщения;
            Письмо.BodyPart.CharSet = "utf-8"; //для цивильной кодировки сообщения
            Письмо.DSNOptions = 4;//для получения уведомления о доставке и прочтении
         
            Письмо.Fields("urn:schemas:mailheader:disposition-notification-to").Value = Объект.Отправитель.Отправитель;
            Письмо.Fields("urn:schemas:mailheader:return-receipt-to").Value = Объект.Отправитель.Отправитель;
         
            Для Каждого Стр Из Объект.Вложения Цикл
                Письмо.AddAttachment(Стр.ПолноеИмяФайла);//вложение  
            КонецЦикла;
            //Письмо.Fields.Update();
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value         = 2;//использовать smtp
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value        = СокрЛП(Объект.Отправитель.АдресСервераSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value= 1;
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value    = СокрЛП(Объект.Отправитель.ПользовательSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value    = СокрЛП(Объект.Отправитель.Пароль);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = Объект.Отправитель.ПортSMTP;
         
            //cdoSendUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress" ;
            //cdoDispositionNotificationTo = "urn:schemas:mailheader:disposition-notification-to";
            //iConf = Новый COMОбъект("CDO.Configuration");
            //iConf.fields(cdoSendUserReplyEmailAddress).value = Объект.Отправитель.Отправитель;
            //Письмо.mdnrequested = -1;
            //Письмо.fields(cdoDispositionNotificationTo).value = Объект.Отправитель.Отправитель;
         
            //Письмо.Disposition-Notification-To = Объект.Отправитель.Отправитель;
            //Письмо.X-Confirm-Reading-To = Объект.Отправитель.Отправитель;
         
            Попытка
               Письмо.Configuration.Fields.Update();
            Исключение
                Сообщить(ОписаниеОшибки());
                //Возврат;
            КонецПопытки;
         
            Попытка
                Письмо.Send();
                Сообщить("Сообщение отправлено: "+Строка(ТекущаяДата()));
                Объект.СтатусОтправки = "Отправлено!";
            Исключение
                Сообщить(ОписаниеОшибки());
                Объект.СтатусОтправки = "Не отправлено!";
            КонецПопытки;
  2. Савченко Антон
    Offline

    Савченко Антон

    Регистрация:
    13 июн 2014
    Сообщения:
    4
    Симпатии:
    0
    Баллы:
    1
    // уведомление о доставке
    Письмо.DeliveryReceipt = Истина;
    // уведомление о прочтении
    Письмо.ReadReceipt = Истина;
  3. Persempre
    Offline

    Persempre Опытный в 1С

    Регистрация:
    18 июл 2012
    Сообщения:
    851
    Симпатии:
    3
    Баллы:
    29
    Написал и стер )))

Поделиться этой страницей