Uzmanību! Jūs šobrīd skatāties forumu ierobežotā režīmā - autorizējaties (lapas augšdaļā) vai reģistrējaties lai piekļūtu visām foruma iespējām (tēmas / atbildes izveidošana, piekļuve sarakstiem «Atlasītās», «Manas tēmas», «Neizlasītās»).
Datorprogrammas, autortiesības un licencēšana
1С зоопарк Uz tēmu sarakstu
nav ziņojumu
Atbildes (406)
Вы даже не понимаете разницу между встроенным языком в продукте и полновесной средой "их продукт стоит гораздо дешевле".
nav ziņojumu
nav ziņojumu
Необходимо получить доступ к почтовому серверу для ежедневного приёма файлов платежей от банка (attachments) используя протокол SMTP.
Как с помощью средств языка 1С это реализовать? 1С имеет реализацию через MAPI, что для данной задачи неприемлемо:
"В отдельной компоненте 1С:Предприятия поддерживается объект, позволяющий взаимодействовать с любым почтовым клиентом, работающим через MAPI (Messaging Application Programming Interface), например Outlook."
Свойства:
АдресСервераPOP3 (POP3ServerAddress)
АдресСервераSMTP (SMTPServerAddress)
ВремяОжидания (Timeout)
Пароль (Password)
ПарольSMTP (SMTPPassword)
Пользователь (User)
ПользовательSMTP (SMTPUser)
ПортPOP3 (POP3Port)
ПортSMTP (SMTPPort)
Конструкторы:
Основной
Описание:
Набор свойств для соединения с сервером.
Сериализуется.
Пример:
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераPOP3 = POP3Сервер;
Профиль.АдресСервераSMTP = SMTPСервер;
Если ВремяОжиданияСервера > 0 Тогда
Профиль.ВремяОжидания = ВремяОжиданияСервера;
КонецЕсли;
Профиль.Пароль = Пароль;
Профиль.Пользователь = Логин;
Профиль.ПортPOP3 = ПортPOP3;
Профиль.ПортSMTP = ПортSMTP;
Если SMTPАутентификация Тогда
Профиль.ПарольSMTP = ПарольSMTP;
Профиль.ПользовательSMTP = ЛогинSMTP;
Иначе
Профиль.ПарольSMTP = Пароль;
Профиль.ПользовательSMTP = Логин;
КонецЕсли;
ИнтернетПочта = Новый ИнтернетПочта;
Попытка
ИнтернетПочта.Подключиться(Профиль);
Исключение
Сообщить(ОписаниеОшибки());
Предупреждение("Произошли ошибки при проверке настроек учетной записи.
|Описание ошибки приведено в окне сообщения.");
Возврат;
КонецПопытки;
См. также:
ИнтернетПочтовыйПрофиль, свойство АдресСервераSMTP
ИнтернетПочтовыйПрофиль, свойство АдресСервераPOP3
ИнтернетПочтовыйПрофиль, свойство ПортSMTP
ИнтернетПочтовыйПрофиль, свойство ПортPOP3
ИнтернетПочтовыйПрофиль, свойство Пароль
ИнтернетПочта, метод Подключиться
ИнтернетПочта, метод Подключиться
16 ziņojumi
Сообщение = Новый ИнтернетПочтовоеСообщение;
// Добавление во вложение файла
Сообщение.Вложения.Добавить("c:\MyPhoto.jpg", "Моя фотография");
// Добавление во вложение двоичных данных
Данные = БиблиотекаКартинок.Лупа.ПолучитьДвоичныеДанные();
Вложение = Сообщение.Вложения.Добавить(Данные, "Картинка 'Лупа'");
// Добавление во вложение другого сообщения
ВложенноеСообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Вложения.Добавить(ВложенноеСообщение);
16 ziņojumi
Получить (Get)
Синтаксис:
Получить(<Индекс элемента коллекции>)
Параметры:
<Индекс элемента коллекции> (обязательный)
Тип: Число. Индекс элемента коллекции.
Возвращаемое значение:
Тип: ИнтернетПочтовоеВложение.
16 ziņojumi
?уе-уе ...
5656 ziņojumi
На фоксе подключение к известному серверу (почтовому серверу фирмы) выглядит следующим образом:
thisform.pop3.blocking= .t.
thisform.pop3.blockingmode= 1
thisform.pop3.host= abhost
thisform.pop3.logonname= ablname
thisform.pop3.logonpassword=ablpass
thisform.pop3.connect
А если нужно показать пользователю список заголовков пришедших сообщений, то:
private msg
private fldr
IF thisform.pop3.lasterror=0
if thisform.pop3.inbox.count> 0
fldr = thisform.pop3.inbox
thisform.pop3.retrieveheaders(fldr)
for each msg in fldr
thisform.list1.additem(msg.subject)
next msg
endif
ENDIF
21 ziņojums
Насчёт самолично изобретённого и нигде не подсмотренного. Этот алгоритм работает ужо много лет, написан мною на фоксе. Я не просила выкладывать текст, достаточно объяснений. Сужу по отзывам программистов 1С и описаниям в интернете. Реализовать подобное в 1С можно через обращение к внешней компоненте, на этом возможности среды заканчиваются. Я неправильно поняла?

"Скажи мне кто твой и друг и я скажу кто ты." Это шутка, это не Вам.
16 ziņojumi
Пример:
Необходимо получить доступ к почтовому серверу...
11.09.2006 13:38
А речь не о доступе, а о получении файлов-аttachments.
Тётка, не юли!
21 ziņojums
Я Вам не тётка, Беатрис, осторожней на оборотах.
отличается от
"Получить файл-приложение от банка, использующего при отправке протокол SMTP, с предварительным доступом к почтовому серверу".
Это разные задачи.
21 ziņojums