Имя: Пароль:
1C
1С v8
БП 2.0 + e-mail. SMTP error code 501
0 ErrorEd88
 
14.07.12
20:40
Что не учел? Учетная запись inbox.ru, smtp = smtp.inbox.ru
УчЗапись = Константы.ДиП_УчетнаяЗаписьПочты.Получить();
// Сформировать почтовый профиль.
ИПП = Новый ИнтернетПочтовыйПрофиль;
ИПП.АдресСервераSMTP = УчЗапись.АдресСервераSMTP;
ИПП.ВремяОжидания = УчЗапись.ВремяОжидания;
ИПП.Пароль = УчЗапись.Пароль;
ИПП.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
ИПП.ПарольSMTP = УчЗапись.Пароль;
ИПП.Пользователь = УчЗапись.Пользователь;
ИПП.ПользовательSMTP = УчЗапись.Пользователь;
ИПП.ПортSMTP = УчЗапись.ПортSMTP;

// Создать сообщение.
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Получатели.Добавить("eduardd88@mail.ru");
Сообщение.Отправитель.Адрес = УчЗапись.Адрес;
Сообщение.Тема = "Обмен " + Строка(ТекущаяДата()) + " , " + Константы.ДиП_ФилиалПоУмолчанию.Получить().Наименование;
Сообщение.Тексты.Добавить("Доброе время суток!");

// Подключиться и отправить.
Почта = Новый ИнтернетПочта;
Почта.Подключиться(ИПП);
Почта.Послать(Сообщение);
Почта.Отключиться();
1 andrewks
 
14.07.12
21:33
это вопрос викторины?
2 ErrorEd88
 
14.07.12
21:36
3 andrewks
 
14.07.12
21:37
что конкретно не получается? где сообщения об ошибках?
4 ErrorEd88
 
14.07.12
21:39
(3) Ошибка при методе контекста послать

Почта.Послать(Сообщение);
по причине:
Неверный синтаксис команды. Возможно ошибка в написании почтового адреса (SMTP error code 501, Syntactically invalid EHLO argument(s))
5 andrewks
 
14.07.12
21:42
имя пользователя попробуй полность прописать: логин@inbox.ru
6 ErrorEd88
 
14.07.12
21:42
Пробовал smtp.mail.ru - ошибка при методе подключиться
7 ErrorEd88
 
14.07.12
21:42
(5) сейчас, спасибо
8 andrewks
 
14.07.12
21:43
(6) думаешь, мэйл.ру примет твой яндексовый логин?
9 andrewks
 
14.07.12
21:44
кстати, емнип, сервера одинаковые можно указывать для всех яндексов:  smtp.yandex.ru , pop.yandex.ru , а в логин-  полный имэйл-адрес
10 ErrorEd88
 
14.07.12
23:05
У меня учетки mail.ru не идут, для yandex методом подбора работает:

ИПП = Новый ИнтернетПочтовыйПрофиль;
ИПП.POP3ПередSMTP = Истина;
ИПП.АдресСервераSMTP = УчЗапись.АдресСервераSMTP;
ИПП.Пароль = УчЗапись.Пароль;
ИПП.АутентификацияSMTP = СпособSMTPАутентификации.Login;
ИПП.ПарольSMTP = УчЗапись.Пароль;
ИПП.Пользователь = УчЗапись.Адрес;
ИПП.ПользовательSMTP = УчЗапись.Пользователь;
ИПП.ПортSMTP = УчЗапись.ПортSMTP;
ИПП.АдресСервераPOP3 = УчЗапись.АдресСервераPOP3;
ИПП.ПортPOP3 = УчЗапись.ПортPOP3;
ИПП.ВремяОжидания = УчЗапись.ВремяОжидания;
11 ErrorEd88
 
15.07.12
00:00
Остался последний штрих разобраться с вложениями. Есть папка, нужно сделать цикл по всем файлам папки и отправить их на почту.

Путь = НастройкаОбменаДанными.КаталогОбменаИнформацией;
Пока <<хз что писать>> Цикл
Сообщение.Вложения.Добавить(Файл);
КонецЦикла;

Сейчас активно размышляю..
12 kotletka
 
15.07.12
00:09
файлы называть по порядку, типа ххх_1, ххх_2 ... в цикле их обходить по именам
13 kotletka
 
15.07.12
00:10
+  найтифайлы()
14 ErrorEd88
 
15.07.12
00:16
(13) Спасибо, сделал так, все работает:

Путь = НастройкаОбменаДанными.КаталогОбменаИнформацией;
Массив = НайтиФайлы(Путь, "*.zip");
Для Каждого СтрокаМассив Из Массив Цикл
Сообщение.Вложения.Добавить(СтрокаМассив.ПолноеИмя); //Вложение,"Message_1_4.zip");
КонецЦикла;