Уведомления из Excel

[Mel123]

Доброго времени суток!
Подскажите, пожалуйста, есть ли возможность сделать вывод уведомлений из документа? Смысл такой: есть файл со сроками, можно ли сделать так, чтобы за 3 дня до срока вылезало уведомление, либо направлялось по почте, либо как-то интегрировалось с календарем Outlook?

[IgorGO]

можно:
1. получить сообщение при открытии файла
2. отправить письмо
3. как-то интегрировать в Outlook (если решите как именно)

допустим как каждый вариант отдельно, так и все вместе.

[Mel123]

очень хорошо, что можно. Требуется без открытия файла. Вопрос в том, как это реализовать...

[IgorGO]

не открывая файл, и не имея возможности посмотреть когда наступит долгожданный срок,

чтобы за 3 дня до срока

...можно посылать сообщения каждую секунду, одно из них окажется за "3 дня до срока" вот на него и надо будет среагировать оператору, а остальные игнорировать

[doober]

USE Google
Напоминалка

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

[Mel123]

Таблица такого типа:

|А |B
---------------------
1 |раз |28.08.2014
---------------------
2 |два |29.08.2014
---------------------
3 |три |30.08.2014

В общем пока дошел до такого вида:

Sub test()
Dim dDate As Date
 dDate = Sheet1.Range("B1:B3") - как заставить его выбирать из диапазона, например, сегодняшнюю дату? и отправлять? 
Application.OnTime dDate, "Send_Mail()"
End Sub

Sub Send_Mail()
Dim OutlookApp As Object, SM As Object
 Set OutlookApp = CreateObject("Outlook.Application")
 Set SM = OutlookApp.CreateItem(olMailItem)
 SM.To = "123@mail.ru"
 SM.CC = "123@mail.ru"
 SM.Subject = "Поа за работу"
 On Error Resume Next
 SM.Body = Sheet1.Range("A1:A3") - как заставить выбирать текст ячейки напротив даты в тему письма? 
 SM.Attachments.Add ("C:\Test.xls")
 SM.Assign
 SM.Send
 Set SM = Nothing
 Set OutlookApp = Nothing
End Sub

[IgorGO]

dDate = Sheet1.Range("B1:B3") - как заставить его выбирать из диапазона, например, сегодняшнюю дату? и отправлять?

а зачем ее выбирать? если дата известна, то так и пишите, например сегодня:

dDate = ToDay()

SM.Body = Sheet1.Range("A1:A3") - как заставить выбирать текст ячейки напротив даты в тему письма?

if worksheetfunction.countif(Range("B1:B3"), dDate) > 0 then c = worksheetfunction.match(dDate, Range("B1:B3"), 0) else c = 0
if c = 0 MsgBox "В диапазоне B1:B3 нет даты " & dDate:  exit sub
SM.Body = Sheet1.cells(1,c)

[Mel123]

Спасибо за ответ!

[QUOTE=IgorGO;1408813]а зачем ее выбирать? если дата известна, то так и пишите, например сегодня:

dDate = ToDay()

смысл в том, чтоб макрос сопоставлял текущую дату с датой в ячейке, и если совпадает отправлял письмо...

[IgorGO]

извините, вот так будет работать:

if worksheetfunction.countif(Range("B1:B3"), cdbl(Date)) > 0 then c = worksheetfunction.match(cdbl(Date), Range("B1:B3"), 0) else c = 0
if c = 0 MsgBox "В диапазоне B1:B3 нет даты " & Date:  exit sub
SM.Body = Sheet1.cells(1,c)

[Mel123]

Сообщение от IgorGO

извините, вот так будет работать:

if worksheetfunction.countif(Range("B1:B3"), cdbl(Date)) > 0 then c = worksheetfunction.match(cdbl(Date), Range("B1:B3"), 0) else c = 0
if c = 0 Then MsgBox "В диапазоне B1:B3 нет даты " & Date:  exit sub
SM.Body = Sheet1.cells(1,c)

письмо отправляется, но текста в теле письма нет
Все что текстом пишешь в кавычках, без проблем.