отправка по почте
|
SIA1987
15.06.2009 - 08:02
|
пытаюсь отправить письмо средствами 1С, подключение выполняется, но при отправке, письмо не отправляется. ТекстПисьма = " |Здравствуйте уважаемый Погрызов. |На данный момент вы получаете |пробное письмо. После успешного |получения эксперимент засчитан."; Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll") = 0 Тогда Сообщить("Не удалось загрузить компоненту ""ROM-Mail.dll"""); Возврат; конецЕсли; П = Создатьобъект("AddIn.AddInMail"); П.СерверОтправки = "smtp.mail.ru"; П.ПортОтправки = 25; П.Логин = "ivansklyarov@mail.ru"; П.Пароль = "*******"; П.АутентификацияПриОтправке = 1; Если П.Соединение = 0 Тогда Если П.Подключиться("Отправка") = 0 Тогда Сообщить("Не удалось подключиться к серверу ""smpt.mail.ru"""); Возврат; конецЕсли; конецЕсли; П.Важность = 0; П.Кодировка="windows-1251"; П.ТипПисьма = 2; //П.АдресОтправителя = "ivansklyarov@mail.ru"; //П.ИмяОтправителя = "Ivan Sklyarov"; //П.ДобавитьАдрес("АдресПолучателя","Pogrizov","pogrizov@mail.ru"); П.АдресПолучателя = "pogrizov@mail.ru"; П.Тема = "Пробное письмо"; П.Тело = ТекстПисьма; Если П.Соединение = 0 Тогда Сообщить("Соединение потеряно"); иначеЕсли П.Отправить() = 1 Тогда Сообщить("Сообщение отпарвлено"); иначе Сообщить("Не удалось отправить сообщение"); конецЕсли; П.Отключиться(); |