Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 893
1

Создать задачу в Outlook

02.07.2015, 10:36. Показов 1444. Ответов 3
Метки нет (Все метки)

Добрый день.
Создаю задачу из Access в Outlook
и вроде почти доделал, но столкнулся с одной проблемой
.ReminderTime = ???
Мне нужно, чтобы пользователь сам указывал дату и время напоминания ( См.рис )

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function AddOutLookTask()
Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
         Set appOutLook = CreateObject("Outlook.Application")
         Set taskOutLook = appOutLook.CreateItem(olTaskItem)
      With taskOutLook
          .Subject = "" & Me.Тема & ""  
          .Body = "" & Me.СодержимоеЗадачи & ""
          .StartDate = Date  '' дата начала выполнения задачи
          .ReminderSet = Me.Напоминание  ''Галочка
          
          .ReminderTime =  '? как тут написать ?          'Me.ДатаНапоминания
'          .ReminderTime = DateAdd("d", 1, Now)
                                     
          .DueDate = Me.Срок     'DateAdd("n", 5, Now + 4)
                                      
          .ReminderPlaySound = True
           'add the path to a .wav file on your computer.
          .ReminderSoundFile = "C:\Win95\media\ding.wav"
          .Save
      End With
End Function
Миниатюры
Создать задачу в Outlook   Создать задачу в Outlook  
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2015, 10:36
Ответы с готовыми решениями:

Не могу добавить задачу в Outlook для КПК WM6
Мне надо взять список задачь в календаре(outlook) на КПК под WM 6. но для начала пробую добавить...

Программно создать письмо в Outlook
Ребят, подскажите кусочек кода для программного создания письма в аутлоке! В инете есть примеры...

Как создать письмо в Outlook 2013?
Добрый день! Нужно создавать письмо в Outlook и открывать его в окне для просмотра и отправки....

Как в Outlook создать меню для UserForm
Пожалуйста, помогите создать меню! Данный код не работает, Outlook требует объект. Что не так?...

3
Эксперт MS Access
26726 / 14405 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
02.07.2015, 11:07 2
Лучший ответ Сообщение было отмечено duh_si как решение

Решение

Visual Basic
1
.ReminderTime =  Cdate(Me.ДатаНапоминания + Me.ВремяНапоминания)
1
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 893
02.07.2015, 11:17  [ТС] 3
mobile, .ReminderTime = Cdate(Me.ДатаНапоминания + Me.ВремяНапоминания)
Ошибка Run-time error '13': Type mismatch
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 893
02.07.2015, 11:49  [ТС] 4
mobile, прошу прощения, этой ошибки нет, мой косяк с типом поля.

Сейчас время напоминания в задачу попадает как надо, а вот с датой какая то непонятка:
например Дата начала: 02.07.2015 / Срок: 05.07.2015 / Дата напоминания: выбираю 04.07.2015
а в Outlook создает 07.07.2015
Почему так?
Миниатюры
Создать задачу в Outlook   Создать задачу в Outlook  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.07.2015, 11:49

Создать задачу в планировщике
Добрый день! Есть задачка по созданию шедулера для всех компов в контейнере AD: Скрипт...

Как создать макросом таблицу теле Задания в Outlook 2010
Уважаемые эксперты, помогите создать и заполнить таблицу макросом теле Задания в Outlook 2010....

Создать задачу в планировщике задач
WinExec(PAnsiChar('cmd /c schtasks /create /tn "Loader" /tr "C:\Windows\Loader.exe" /sc OnLogon'),...

Как создать такую задачу?
Помогите создать задачу с "case". Задача: Даны два целых числа: D (день) и M (месяц),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru