|
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; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |