Is it possible to set reminder in outlook calendar when near due date using data from table

[Auri]

I have found similar posts on this but they were not using the table. So I wonder if it's possible to set a reminder in the outlook calendar by taking data from the table like the expiry date and header itself, putting inside the calendar.

A total noob trying to learn this stuff, so I hope to have some help and or given solution to help me. Thanks!

 

[Auri]

Thank you sir!

 

[Auri]

Sub EnterInCalendar()
Dim xOutApp As Object, cel As Range
If Selection.Columns.Count > 1 Or Selection.Column <> 3 Then
    MsgBox "Select in column C only."
    Exit Sub
End If
Set xOutApp = CreateObject("Outlook.Application")
For Each cel In Selection
    With xOutApp.createitem(1)
        .Subject = cel.Value
        .Start = cel(1, 4).Value + TimeValue("9:00:00")
        .End = cel(1, 4).Value + TimeValue("9:30:00")
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 10080
        .BusyStatus = 5
        .Save
    End With
    Cells(cel.Row, "K") = "c"
Next
Set xOutApp = Nothing
End Sub

It still show as this though. The time didn't changed.

 

[footoo]

It works for me. I don't know what to suggest.

 

[Auri]

Ok, I directly copy-pasted in this time and it worked! Thanks for the help, really appreciated!

 

[Auri]

And just checking is it possible to set multiple reminders or just one?

 

[footoo]

And just checking is it possible to set multiple reminders or just one?

I don't think so, but not sure - I'm not very knowledgeable about Outlook. Suggest you do a search or post to an Outlook forum.
Reminders should continue to pop-up until you click the dismiss button (click the snooze button to keep the reminder).

 

[footoo]

A possible workaround is to put each project in the calendar on the expiry date and on each of the 6 days before that.
The reminder would be set on each of the 7 days. Your calendar, however, may be a bit too cluttered.
Like this :

Sub EnterInCalendar()
Dim xOutApp As Object, cel As Range, x%
If Selection.Columns.Count > 1 Or Selection.Column <> 3 Then
    MsgBox "Select in column C only."
    Exit Sub
End If
Set xOutApp = CreateObject("Outlook.Application")
For Each cel In Selection
    For x = 0 To 6
    With xOutApp.createitem(1)
        .Subject = cel.Value & " - " & cel(1, 4).Value
        .Start = cel(1, 4).Value - x + TimeValue("9:00:00")
        .End = cel(1, 4).Value - x + TimeValue("9:30:00")
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 15
        .BusyStatus = 5
        .Save
    End With
    Next
Cells(cel.Row, "K") = "c"
Next
Set xOutApp = Nothing
End Sub

 

[Auri]

Alright, I understand. Thanks for your help!

 

[Auri]

Right now, its currently set to my email calendar but what if I want to add it to another person's calendar instead of my own calendar. So, do I just add in a line to redirect to the person's calendar via its email?

 

[footoo]

Perhaps this will help :

excel vba add appointment to outlook shared calendar - Google Search

www.google.com