Try the following Word macro to save the document and add a reminder 1 month
and 15 days hence
You could do something similar from Excel

Sub AddOutlookApptmnt()
Dim ol As New Outlook.Application
Dim ci As AppointmentItem
Dim strDate As String
Dim strDocPath As String
Dim strDocName As String

strDate = DateAdd("m", 1, Date)
strDate = DateAdd("d", 15, strDate)
With ActiveDocument
On Error GoTo CancelledByUser
.Save
strDocPath = .FullName
strDocName = .name
End With
Set ci = ol.CreateItem(olAppointmentItem)
With ci
.Start = strDate
.ReminderSet = True
.AllDayEvent = True
.Subject = strDocName
.Categories = "Word Documents"
.Body = strDocPath & " requires processing."
.BusyStatus = olFree
.Save
End With
Set ol = Nothing
Exit Sub
CancelledByUser: 'Error handler
MsgBox "Cancelled By User", , "Operation Cancelled"
End Sub


My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"rjagathe" <rjagathe@gmail.com> wrote in message
news:e504c21d-1803-46bb-97e7-ecda62cfe523@t9g2000prh.googlegroups.com...