Имя: Пароль:
1C
1C 7.7
v7: Отправка почты из 7.7
0 knopik777
 
04.12.17
09:20
Друзья, попалась база 7.7 из которой рассылаем счета клиентам.
Организовано все через DialMail.dll
Все работает и отправляет, но хочется видеть отправленные письма в почтовой программе. Не могу найти параметр как их сохранить в почте.
Надеюсь ясно выразился.
Кто пользуется этой длл помогите.
        ОтправкаПочты.РабочийКаталог=КаталогПользователя();
        ОтправкаПочты.ИспользоватьПрокси=0;
        ОтправкаПочты.ИспользоватьSSL=1;
        ОтправкаПочты.ВестиЛогФайл = 1;
        ОтправкаПочты.ИмяЛогФайла = КаталогПользователя()+"dialmail.smtp.log";
        МойАдрес=СокрЛП(тз.Адрес);
        СМТП="smtp.yandex.ru";
        Логин = "____";
        Пароль = "____";
        ОтправкаПочты.ПочтоваяПрограмма="Client on DialMail";
        ОтправкаПочты.MakeContentDescriptionTag = 0;
        ОтправкаПочты.ТипТелаПисьма=1;  
        ЗаголовокСообщения = "Счёт за ";
        текст  = "Высылаем в Ваш адрес счёт за";
    текписьмо=ОтправкаПочты.СоздатьПисьмо(Логин,МойАдрес,,ЗаголовокСообщения,,текст,ВыбФайл);
        текписьмо=ОтправкаПочты.СоздатьПисьмо(Логин,МойАдрес,,ЗаголовокСообщения,,текст,ВыбФайл);

        Если ОтправкаПочты.Подключиться(СМТП,465,Логин,Пароль,1)=0 тогда
Сообщить("Не смогли подключиться к SMTP-серверу");
ОтправкаПочты.Отключиться();
        КонецЕсли;
        рез=ОтправкаПочты.ОтправитьПисьмо(,1,0);
1 Масянька
 
04.12.17
09:49
(0) Я, лично, не нашла. Найдешь - маякни, пожалуйста.
Обошла: в спец. папку сохраняются файлы с док-ми (т. е. то, что цепляется к письму).
2 Builder
 
04.12.17
09:51
Настраивал как то давно так - скрытая копия на свой адрес, там все и сохранялось.
3 mishaPH
 
модератор
04.12.17
09:54
Процедура ИнициализацияПочтовойСистемы() Экспорт
    Если ЕстьКомпонентаПочты = 0 Тогда
        СоздатьСлужебныеКаталоги();
        ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"DialMail.dll");
        ОтправкаПочты= СоздатьОбъект("AddIn.SMTP");
        ПолучениеПочты= СоздатьОбъект("AddIn.POP3");
        SystComm = СоздатьОбъект("AddIn.SystComm");
        ОтправкаПочты.РабочийКаталог=КаталогИБ()+"Auto\mail\out\";
        ПолучениеПочты.РабочийКаталог=КаталогИБ()+"Auto\mail\in\";
        ОтправкаПочты.УстановитьКодировкуИСпособКодирования(22,3);
    КонецЕсли;
КонецПроцедуры // ИнициализацияПочтовойСистемы
4 knopik777
 
04.12.17
10:03
(3) Не совсем понимаю что с этим делать
5 knopik777
 
04.12.17
10:04
(2) как вариант, хорошая идея
6 Остап Сулейманович
 
04.12.17
10:08
(0) "хочется видеть отправленные письма в почтовой программе."
Кто есть "почтовая программа"? Если АутГлюк или ЗеБет - можно отправлять с их помощью. И оно будет сохранять в отправленных само. За громоптицу не скажу, но скорее всего и там возможна автоматизация.
7 mishaPH
 
модератор
04.12.17
10:13
(4) я не дочитал что ты хотел. думал ошибка с отправкой.

а видеть в другой почтовой в виде отправленных - нельзя.
можно только при формировании письма поставить адрес свой в копию и смотреть так
8 Chameleon1980
 
04.12.17
10:16
я тоже делал как (2)
и все норм
9 Duke1C
 
04.12.17
10:17
(0) Перепиши отправку на V7PLUS.DLL
10 Владимир1С
 
04.12.17
10:18
(2) Самый простой и быстрый в реализации механизм. Заодно отследишь, работает отправка как таковая или нет. Отправляю через CDO.
11 Владимир1С
 
04.12.17
10:20
(0) Если не секрет, в какой операционной системе работает 1С-ка?
12 knopik777
 
04.12.17
10:24
(11) win 7 x64
13 Владимир1С
 
04.12.17
10:30
(12) спасибо за ответ.
14 pofigos
 
04.12.17
12:01
(0) У меня объеденены : сохранение  на диск прикрепленного к письму документа + скрытая копия на общий ящик, с которого идет отправка + копия человеку, который отправляет письмо из 1С ( в справочнике сотрудников есть реквизит email)
15 mishaPH
 
модератор
04.12.17
12:02
вообще после создания письма, оно сохраняет в формате msg. потом отправляет. Можно при желании отправить в почтовую систему
16 Злопчинский
 
04.12.17
12:05
У меня из одноэса манагеры всякую оперативку рассылают. Отправленные письма складируются в папки , из одноэса можно посмотреть письма отправленные. Глубина хранения 2 недели.
17 Злопчинский
 
04.12.17
12:07
Картинки тута есть
http://catalog.mista.ru/public/14131/
18 opus70
 
04.12.17
12:14
loConfig = CreateObject("CDO.Configuration");
        loCdoMessage = CreateObject("CDO.Message");
        
        loCdoMessage.Configuration = loConfig;
        loCdoMessage.From    = СокрЛП(ОбрАдр);
        loCdoMessage.To      = СокрЛП(Мыло);
        loCdoMessage.Subject = СокрЛП(ТемаП);
        
        ТекстСообщения = "Текст письма";
        
        HTMLBody = "<html>
        |<head>
        |<meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
        |<title> Тестовое сообщение </title>
        |</head>
        |<body>
        |<h3>" + СокрЛП(ТемаП) + "</h3>
        |<p></p>
        |</body>
        |</html>";
        
        loCdoMessage.BodyPart.Charset = "windows-1251";
        loCdoMessage.HTMLBody = HTMLBody;        
        
        
        _Вложения="";
        
        Если ФС.СуществуетФайл(КаталогИБ()+"mail\"+СокрЛП(НомДок)+".jpg")=1 Тогда
            _Вложения = КаталогИБ()+"mail\"+СокрЛП(НомДок)+".jpg";
        ИначеЕсли ФС.СуществуетФайл(КаталогИБ()+"mail\"+СокрЛП(НомДок)+".png")=1 Тогда     
            _Вложения = КаталогИБ()+"mail\"+СокрЛП(НомДок)+".png";
        ИначеЕсли ФС.СуществуетФайл(КаталогИБ()+"mail\"+СокрЛП(НомДок)+".bmp")=1 Тогда     
            _Вложения = КаталогИБ()+"mail\"+СокрЛП(НомДок)+".bmp";
        КонецЕсли;
                                
        loCdoMessage.AddAttachment(_Вложения);
                                                  
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";).            Value = 2;
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";).           Value = СокрЛП(СервСМТП);
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";).       Value = СокрЛП(Порт);
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";).     Value = 1;
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername";).         Value = СокрЛП(Логин);
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword";).         Value = СокрЛП(Пар);
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl";).           Value = 1;
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

        loConfig.Fields.Update();
        loCdoMessage.Send();        
        
        Сообщить("Отправлен Счет "+ СокрЛП(ВыбСчет.НомерДок)+" от " +Формат(ВыбСчет.ДатаДок,"Д ДДММММГГГГ")+" для "+СокрЛП(ВыбСчет.Контрагент.Наименование)+".");
19 opus70
 
04.12.17
12:15
остальное там не все обвязки
20 Владимир1С
 
04.12.17
12:52
(19) Вопрос: С CDO , по факту, яндекс сейчас работает? Была непроверенная информация, что вроде как от CDO интернет-почты хотят отказываться. На официальных сайтах ничего внятного не нашёл, к сожалению.
21 opus70
 
04.12.17
13:19
(20) это кусок из абсолютно работающей обработки насколько это вообще возможно в нашем мире (отправляю через smtp.mail.ru)
22 ADirks
 
04.12.17
13:33
(20) CDO - это кусок винды.
Всякие интернет-почты могут намудрить чего-нибудь с аутентификацией, но от SMTP как-то врядли смогут отказаться.
23 opus70
 
04.12.17
13:41
у интернет почты щас один бзик все полюбили ssl, вот и вышла что через публичные smtp только через ssl или через свой почтовик по старинке все пашет без бубнов из 7.7
24 Chieftain
 
04.12.17
14:26
(20) Хотят отказаться от SMTP?
(23) Никаких проблем с ssl при отправке из 77 через CDO
25 opus70
 
04.12.17
14:32
(24) через  CDO уходит на отлично
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl";;).           Value = 1;
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.