Последняя версия DataExpress 3 beta от 2 ноября 2018 года. Скачать. Энциклопедия DX. Форум на Develop-Soft

Конфликт OLE и внутреннего синтаксиса

Все о том как сделать что-то с помощью скриптов.
Аватара пользователя
Гocть
Эксперт
Сообщения: 1265
Зарегистрирован: Пн ноя 27, 2017 8:02 am

Конфликт OLE и внутреннего синтаксиса

Сообщение Гocть » Вс сен 16, 2018 11:04 pm

Где то на форуме встречал вопрос по конфликту c OLE. Кажется было End.
Аналогичная ситуация с OLE и словом To:

Код: Выделить всё

 SMTP.From:='email@mail.ru'
 SMTP.To:='email@mail.ru'
 SMTP.TextBody:='---;     

Решения никакого нет?
Фрилансер. Разработка на заказ. Консультирование.

kok80
Интересующийся
Сообщения: 65
Зарегистрирован: Пн июл 02, 2018 9:45 pm

Re: Конфликт OLE и внутреннего синтаксиса

Сообщение kok80 » Вс сен 16, 2018 11:51 pm

А smtp это что за объект ? Строчку бы увидеть с CreateObject

Например, с outlook вопрос решается так:

Код: Выделить всё

    outlook := CreateOleObject('Outlook.Application');
    email:=outlook.CreateItem(0);  //olMailItem
    email.Recipients.Add(StringReplace(ToWhom, ',', ';',[rfReplaceAll])); 

Аватара пользователя
Гocть
Эксперт
Сообщения: 1265
Зарегистрирован: Пн ноя 27, 2017 8:02 am

Re: Конфликт OLE и внутреннего синтаксиса

Сообщение Гocть » Пн сен 17, 2018 12:51 am

CDO.Message.
Вариант, как с Outlook не прокатывает.
Такое:

Код: Выделить всё

MailTo:=IDispatchInvoke(smtp,false,'To',[])
MailTo:='user@mail.ru'   

тоже. Выдает: "Не задан получатель"
________________
P.S. Победил. Надо было так:

Код: Выделить всё

IDispatchInvoke(smtp,true,'To',['user@mail.ru'])
Фрилансер. Разработка на заказ. Консультирование.

kok80
Интересующийся
Сообщения: 65
Зарегистрирован: Пн июл 02, 2018 9:45 pm

Re: Конфликт OLE и внутреннего синтаксиса

Сообщение kok80 » Пн сен 17, 2018 6:09 pm

не пробовал, но направление мысли

Код: Выделить всё

Object oConfig
CFields := oConfig.Fields;
CFields("urn:schemas:mailheader:to") := "mail@mail.ru"l;


https://msdn.microsoft.com/en-us/library/ms527328(v=exchg.10).aspx
This property is also available as the urn:schemas:mailheader:to and urn:schemas:httpmail:to fields.

Аватара пользователя
Гocть
Эксперт
Сообщения: 1265
Зарегистрирован: Пн ноя 27, 2017 8:02 am

Re: Конфликт OLE и внутреннего синтаксиса

Сообщение Гocть » Пн сен 17, 2018 6:23 pm

Думаю, так тоже должно прокатить. Хотя уже решил вопрос проще.
Фрилансер. Разработка на заказ. Консультирование.