Как отправить электронную почту через почтовые клиенты (программы) в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 |
Попытка ОтправитьПоПочте2(ТекущаяСтр); // работает с Батом Исключение Попытка ОтправитьПоПочте1(ТекущаяСтр); // работает с Аутлуком, но переспрашивает при отправке Исключение Сообщить_и_записать("Ошибка при отправке почты - "+ОписаниеОшибки(),СтатусСообщения.Важное); КонецПопытки; КонецПопытки; Процедура ОтправитьПоПочте1(ТекущаяСтр) Pochta = Новый Почта; Сообщение = Новый ПочтовоеСообщение; //Работает с Аутглуком, но переспрашивает при отправке //не работает с Батом 3.60 Pochta.Подключиться("name@mysite.dp.ua","password"); Сообщение.Вложения.Добавить(ПолучениеИмениФайлаПодразделения(ТекущаяСтр.ДопОфис.наименование)); Сообщение.Получатели.Добавить(ТекущаяСтр.ДопОфис.email); Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом"; Сообщение.Текст="Проверьте эти документы ПОСЛЕ получения обновления из офиса. Откройте прикрепленный файл"; Pochta.Послать(Сообщение); Pochta.Отключиться(); УдалитьФайлы(ПолучениеИмениФайлаПодразделения(ТекущаяСтр.ДопОфис.наименование)); КонецПроцедуры Процедура ОтправитьПоПочте2(ТекущаяСтр) PochtoviyProfil = Новый ИнтернетПочтовыйПрофиль; PochtoviyProfil.АдресСервераPOP3 = "pop3.mysite.dp.ua"; PochtoviyProfil.АдресСервераSMTP = "smtp.mysite.dp.ua"; PochtoviyProfil.ПортSMTP = 25; PochtoviyProfil.ПортPOP3 = 110; PochtoviyProfil.Пользователь = "name"; PochtoviyProfil.Пароль = "password"; PochtoviyProfil.ВремяОжидания = 60; Сообщение = Новый ИнтернетПочтовоеСообщение ; Сообщение.Вложения.Добавить(ПолучениеИмениФайлаПодразделения(ТекущаяСтр.ДопОфис.наименование)); Сообщение.Получатели.Добавить(ТекущаяСтр.ДопОфис.email); Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом"; Сообщение.ИмяОтправителя="Обмен"; Сообщение.Отправитель="name@mysite.dp.ua"; Tekst = Сообщение.Тексты.Добавить("Проверьте эти документы ПОСЛЕ получения обновления из офиса. Откройте прикрепленный файл"); Tekst.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст; Pochta = Новый ИнтернетПочта(); Pochta.Подключиться(PochtoviyProfil); Pochta.Послать(Сообщение); Pochta.Отключиться(); УдалитьФайлы(ПолучениеИмениФайлаПодразделения(ТекущаяСтр.ДопОфис.наименование)); КонецПроцедуры //Вот так 1с работает с Мозилой Сундербердом (который хорошо поддерживает IMAP): ПутьМозиллы = """C:/Program Files/Mozilla Thunderbird/thunderbird.exe"""; Tekst = Новый ЗаписьТекста(КаталогОбмена + "sendfiletofilial"+Строка(ТекущаяСтр.ДопОфис.наименование)+".bat", КодировкаТекста.OEM); Tekst.ЗаписатьСтроку("@echo off"); Tekst.ЗаписатьСтроку("@echo Отправка проигнорированных писем на ДопОфис"+Строка(ТекущаяСтр.ДопОфис.наименование)); СтрокаЗапуска = " -compose to='"+ТекущаяСтр.ДопОфис.email+"',cc='name@mysite.dp.ua',subject=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",body=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",attachment=""file://"; Файл = """"+ПолучениеИмениФайлаПодразделения(ТекущаяСтр.ДопОфис.наименование)+""""; Tekst.ЗаписатьСтроку(ПутьМозиллы+СтрокаЗапуска +Файл); Tekst.ЗаписатьСтроку("del "+Файл); Tekst.Закрыть(); ЗапуститьПриложение(КаталогОбмена + "sendfiletofilial"+Строка(ТекущаяСтр.ДопОфис.наименование)+".bat",КаталогОбмена) |
Как получить электронную почту через почтовые клиенты (программы) в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Процедура КнопкаВыполнитьНажатие(Кнопка) Pochta = Новый ИнтернетПочта; Profil = Новый ИнтернетПочтовыйПрофиль; Profil.АдресСервераPOP3 = "192.168.0.2"; Profil.Пользователь = "romix"; Profil.Пароль = "ТутНапишитеПароль"; Pochta.Подключиться(Профиль); MassivPisem = Pochta.Выбрать(Ложь); Для Каждого Письмо из MassivPisem Цикл Сообщить("Получено письмо с заголовоком: "+Письмо.Тема); Для Каждого Вложение из Письмо.Вложения Цикл Сообщить("Вложение: "+Вложение.ИмяФайла); Вложение.Данные.Записать("c:\tempdata\"+Вложение.ИмяФайла); КонецЦикла; Для Каждого Текст из Письмо.Тексты Цикл Сообщить("Текст: "+Tekst.Текст); Tekst.Данные.Записать("c:\tempdata\ТекстПисьма.txt"); КонецЦикла; КонецЦикла; КонецПроцедуры |