КОМПОНЕНТА ROM-Mail, без вложения отправляет, а с файлом - нет (7.7)
Показывать по
10
20
40
сообщений
- 1
- 2
18.03.2010
10:27
#1
"Доброго дня! Обработка отправки файла через компоненту ROM-mail не отправляет письмо, если присутствует "Вложения", если же убрать, тогда отправляет без проблем
вот код:
Процедура Отправить(ИмяФайла,Тема)
//Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
Конецесли;
//Подключаемся к почте с указанными параметрами
Почта = СоздатьОбъект("AddIn.AddInMail");
Почта.СерверОтправки = "smtp.mail.ru";
Почта.ПортОтправки = "2525";
Почта.Логин = "хххххх@mail.ru"; //при необходимости
Почта.Пароль = "ххххх";//при необходимости
//Если подключение не удачное прерываем обработку
Если Почта.Соединение = 0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
Конецесли;
Конецесли;
//Формируем сообщение
Почта.Важность = 0;
Почта.Кодировка = "windows-1251";
Почта.АдресОтправителя = "хххххххх@mail.ru";
Почта.ИмяОтправителя = "кое-кто";
//указываем получателей письма
Почта.ДобавитьАдрес("АдресПолучателя","""",СокрЛП(Кому)); //кому - это реквизит на форме
//если необходимо добавляем вложения
Почта.Вложения = ИмяФайла;//************************* ВОТ ЭТА СТРОКА!!!!!!!!!!
Почта.Тема = Тема;
Почта.Тело = """";
//Пытаемся отправить
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
Конецесли;
//Отключаемся
Почта.Отключиться();
КонецПроцедуры "
вот код:
Процедура Отправить(ИмяФайла,Тема)
//Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
Конецесли;
//Подключаемся к почте с указанными параметрами
Почта = СоздатьОбъект("AddIn.AddInMail");
Почта.СерверОтправки = "smtp.mail.ru";
Почта.ПортОтправки = "2525";
Почта.Логин = "хххххх@mail.ru"; //при необходимости
Почта.Пароль = "ххххх";//при необходимости
//Если подключение не удачное прерываем обработку
Если Почта.Соединение = 0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
Конецесли;
Конецесли;
//Формируем сообщение
Почта.Важность = 0;
Почта.Кодировка = "windows-1251";
Почта.АдресОтправителя = "хххххххх@mail.ru";
Почта.ИмяОтправителя = "кое-кто";
//указываем получателей письма
Почта.ДобавитьАдрес("АдресПолучателя","""",СокрЛП(Кому)); //кому - это реквизит на форме
//если необходимо добавляем вложения
Почта.Вложения = ИмяФайла;//************************* ВОТ ЭТА СТРОКА!!!!!!!!!!
Почта.Тема = Тема;
Почта.Тело = """";
//Пытаемся отправить
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
Конецесли;
//Отключаемся
Почта.Отключиться();
КонецПроцедуры "
22.03.2010
10:06
#2
Похоже, переменная "ИмяФайла" которая передается в процедуру содержит или длинное имя или пробелы, попытайтесь привести ее к виду: c:\filename.ext
07.06.2010
05:46
#4
Мля, у меня такой же трабл. Ты что-нибудь решил?
А что у тебя такой порт: 2525? Надо просто 25.
А что у тебя такой порт: 2525? Надо просто 25.
07.06.2010
09:47
#5
Да, решил)))) Прикол в том, что предыдущая версия компоненты сработала на ура))))
но если честно, потом попробовал DialMail - разницы никакой, за исключением того, что требуются лишние каталоги временные для сохранения писем, потом извлечение из них файлов и тд.
p/s/ порт 2525 - это наш местная фишка. Порт у нас прямой 25 закрыт, причем у всех. так что в этом разницы нет. у тебя 25
но если честно, потом попробовал DialMail - разницы никакой, за исключением того, что требуются лишние каталоги временные для сохранения писем, потом извлечение из них файлов и тд.
p/s/ порт 2525 - это наш местная фишка. Порт у нас прямой 25 закрыт, причем у всех. так что в этом разницы нет. у тебя 25
07.06.2010
10:13
#6
Скинь мне эту версию компоненты.
Вот у меня сейчас прикол, так прикол: пока тут модуль ковырял - заработало.
потом решил улучшить - перестало. А как было не помню. Сижу мучаюсь.
Вот у меня сейчас прикол, так прикол: пока тут модуль ковырял - заработало.
потом решил улучшить - перестало. А как было не помню. Сижу мучаюсь.
- 1
- 2
Читают тему
(гостей: 1)