из excel добавить событие в календаре outlook (для напоминания)

[ac1-caesar]

Уважаемые форумчане!

Помогите пожалуйста с решением задачи.
Есть таблица с заданиями и запланированной датой их выполнения (пример прикреплен).
Необходимо каждое задание с запланированной датой внести в календарь outlook в соответствии с датой запланированного задания минус 10 дней, т.е заранее (для напоминания). И важно еще одно условие, задания с одинаковыми датами не должны замещать друг друга, а расположиться вместе.

[doober]

Use Google

[ac1-caesar]

Просматривал уже этот пример. Однако нехватка знаний, не позволяет подстроить под свои нужды. Мне бы на моем конкретном примере...

[doober]

USE Google2

Sub Create_Tasks()
    Dim outTask As Outlook.TaskItem
    Dim outApp As Outlook.Application
    Set outApp = New Outlook.Application
    Set outTask = outApp.CreateItem(3)
    outTask.DueDate = Now() + 15    '15 days from now
    outTask.ReminderTime = Now() + 10    '10 days from now
    outTask.Body = "My task"
    outTask.Recipients.Add "MMM@mm.ru"
    outTask.Assign
    outTask.Send
    Set outTask = Nothing
    outApp.Quit
    Set outApp = Nothing
End Sub

Меня гугл постоянно не пускает, а вас

[ac1-caesar]

Уважаемый doober, почитал ссылку и мне кажется код написан для Access. Есть ли какая то разница в написании для access и excel? Не уверен что это событие записывается в календарь и как мне показалось нет цикла, чтобы пробежался по моей таблице.

[IgorGO]

уважаемый ac1-caesar,
это заготовка написанна для Вас, а не для Access. вооружитесь напильником и допилите ее к своим конкретным целям

[ac1-caesar]

В любом случае спасибо. Постараюсь выпилить из паровоза самолет . Либо это слишком просто, что никому не интересно. Либо никому не интересно, потому что слишком просто.

[ac1-caesar]

А я еще хотел спросить можно ли сделать синхронизацию календаря outlook с моей таблицей?