• dms_
  • Участник
  • Неактивен
  • На форуме с 5 января 2007
  • Сообщений: 42

Re: Как создать и отправить сообщение в ТКС ?

Как создать и отправить сообщение в ТКС ?  Свойство Content в режиме Сообщения всегда readonly.

  • AlexB
  • Участник
  • Неактивен
  • На форуме с 9 августа 2004
  • Сообщений: 100

Re: Как создать и отправить сообщение в ТКС ?

Sub FormMacro_SendMessage(TCSActiveModule 'Отправить сообщение
Msgs_User = 1155      'ID пользователя
Msgs_Group = 1017    'ID группы, если нужно отправить группе пользователей

Set Msgs = TCSApp.Messages
Call Msgs.CreateNew
Msgs.Properties("TYPE").Value = "O"
Msgs.Properties("SUBJECT").Value = "Сообщение"
Msgs.Properties("HIGH_PRIORITY").Value = Null
Msgs.Properties("READ_REQUEST").Value = Null
Msgs.Properties("USER_FLAG").Value = Null
Msgs.Properties("USER_COMMENT").Value = Null
Call Msgs.SaveChanges

Set Recipients = Msgs.Properties("RECIPIENTS").AsIDispatch
Call Recipients.AddUser(Msgs_User)
Call Recipients.AddWorkGroup(Msgs_Group)
Set Recipients = Nothing 
Set Content = Msgs.Properties("CONTENT").AsIDispatch

Call Content.Edit
Content.Properties("TEXT").Value = "Test"
Call Content.SaveChanges
Set Content = Nothing

Call Msgs.Send()
End Sub

  • Vadim
  • Участник
  • Неактивен
  • На форуме с 13 апреля 2011
  • Сообщений: 3

Re: Как создать и отправить сообщение в ТКС ?

А как добавить вложения в сообщение?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Как создать и отправить сообщение в ТКС ?

IAttachments (смотрите описание хелпа по данному интерфейсу).

  • Vadim
  • Участник
  • Неактивен
  • На форуме с 13 апреля 2011
  • Сообщений: 3

Re: Как создать и отправить сообщение в ТКС ?

Спасибо!