Тема от Spec (изменено: Spec, 9 октября 2009г. 09:18:30)

  • Spec
  • Новый участник
  • На форуме с 17 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Тема: Создание задачи в Outlook

Необходимо создать задачу в Outlook из TDMS
Вот такой код

Set KOutlook = CreateObject("Outlook.Application")
Set ItemAdd = KOutlook.CreateItem(3)
ItemAdd.Start = OStart
ItemAdd.Subject = OSubject
ItemAdd.Save

TDMS выдает, что свойство или метод ItemAdd.Start  не допустим. Как собственно и End. Если оставить только строку ItemAdd.Subject = OSubject то задача создается, но как понимаете без сроков. В чем тут собака порылась? Что с интерпретацией слов Start и End не так? Как назначить даты? Все испробывал. В других приложениях этот код работает исправно.

  • Откуда: Москва
  • На форуме с 16 марта 2007г.
  • Сообщений: 670
  • Спасибо: 13

Re: Создание задачи в Outlook

Spec пишет:

Необходимо создать задачу в Outlook из TDMS
Вот такой код

Set KOutlook = CreateObject("Outlook.Application")
Set ItemAdd = KOutlook.CreateItem(3)
ItemAdd.Start = OStart
ItemAdd.Subject = OSubject
ItemAdd.Save

TDMS выдает, что свойство или метод ItemAdd.Start  не допустим. Как собственно и End. Если оставить только строку ItemAdd.Subject = OSubject то задача создается, но как понимаете без сроков. В чем тут собака порылась? Что с интерпретацией слов Start и End не так? Как назначить даты? Все испробывал. В других приложениях этот код работает исправно.

Вы создаете TaskItem. У TaskItem нет свойства Start. Но есть свойство Startdate as Date

  • Spec
  • Новый участник
  • На форуме с 17 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Re: Создание задачи в Outlook

McZag пишет:

Вы создаете TaskItem. У TaskItem нет свойства Start. Но есть свойство Startdate as Date

Set ItemAdd = KOutlook.CreateItem(olAppointmentItem)
ItemAdd.Subject = "OSubject"
ItemAdd.Start = "12.10.09 9:00"
ItemAdd.Save

В этом случае не работает в TDMS свойство Start и Startdate.

Ответ от Spec (изменено: Spec, 9 октября 2009г. 14:05:10)

  • Spec
  • Новый участник
  • На форуме с 17 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Re: Создание задачи в Outlook

Мне нужно создать запись в календаре.
Странно что этот код я запускаю из допустим Autocad. Все работает. Из ТДМС не хочет. Почему?

Добавлю.
Проблема в ТДМС где то с фокусом на Календарь либо на Задачи. Он как то произвольно меняется. Если в фокусе Задачи ждет Startdate. Если Календарь то Start.
В других прогах все работает нормально.

  • Spec
  • Новый участник
  • На форуме с 17 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Re: Создание задачи в Outlook

Сложный вопрос, видать.

Ответ от Edhunter (изменено: Edhunter, 12 октября 2009г. 09:52:46)

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Создание задачи в Outlook

Вопрос не по TDMS, но всё же.
olAppointmentItem - использовать нельзя. Нужно использовать код данного перечисления.
код можно посмотреть через ObjectBrowser
Работающий пример

Set OutlookApp = GetObject(,"Outlook.Application")
Set newAppointment = OutlookApp.CreateItem(1)
  newAppointment.Subject = "Test"
  newAppointment.Start = CDate("13.10.2009")
  newAppointment.End = CDate("15.10.2009")
  newAppointment.Save

  • Spec
  • Новый участник
  • На форуме с 17 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Re: Создание задачи в Outlook

Спасибо.
Да маленько затупил. Меня спутало olAppointmentItem и коды. В литературе так и так допускается. Хотя это наверное ограничение ТДМС все-таки. В других то приложениях работает.

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Создание задачи в Outlook

Дело не TDMS, а в разнице между VBS и VBA. Подробнее можете почитать в интернете, а в кратце, всё дело в невозможности подключить в VBScript библиотеку.
Кстати, попробуйте не подключая библиотеку оутглюка и с включенной Option Explicit обратиться к этому перечислению например из ворда.