csFrom = СокрЛП(ОтКогоОтправить); csTO = СокрЛП(КомуОтправить); csSUBJECT = СокрЛП(ТемаПисьма); csTEXT = ТекстПисьма; Если ПустоеЗначение(Вложение) = 0 Тогда csATTACH = СокрЛП(Вложение); Иначе csATTACH = ""; КонецЕсли; Если
ВнКомпонент.ОтправитьПочтуПоSMTP(MailServer, csFrom, csTO,,, csSUBJECT,csTEXT,csATTACH) = 1 Тогда Сообщить("Электронная почта на адрес "+csTO+" отправлена!!!","!!"); Иначе Сообщить(ВнКомпонент.ОшибкаПриОтпракеПочты()); КонецЕсли КонецПроцедуры
ОтправитьПочту(БанкEMail,ОтКогоEMail,"Файл импорта ",,сКатал+сФайл);
--------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!
Ответ отправил: Strawberry (статус: Студент)
Ответ отправлен: 18.09.2008, 15:25 Оценка за ответ: 5
Отвечает: DERL.KG
Здравствуйте, Оксана/kasy! Я использую внешнюю компоненту ROM-Mail.dll. Данная компонента работает независимо как почтовый клиент, в отличии от встроенного который подгружает Аутлук. код см в приложении Удачи!
Приложение:
Ответ отправил: DERL.KG (статус: 9-ый класс)
Ответ отправлен: 19.09.2008, 07:34 Оценка за ответ: 5
Отвечает: Астафьев Александр Николаевич
Здравствуйте, Оксана/kasy! Работает на стандартной компоненте V7 1С Предприятие 7.7 Удачи
Приложение:
Ответ отправил: Астафьев Александр Николаевич (статус: Студент)
Ответ отправлен: 19.09.2008, 08:54 Оценка за ответ: 5