• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

Macro to set contact reminder to next day 9:00

Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
#23
Thx I will try

Pls can you help me setting
ReminderTime 90 minuter from actual time?
As in 90 min from now or 90 min before due? Either is possible...

90 from now...
.ReminderTime = Now() + 90 / 1440

Tasks don't have a due time, only a due date, so this ends up being 1:30 AM. :( It would work with reminders on appointments.
.ReminderTime = .DueDate + 90 / 1440
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
#24
THX
works great.

To get the macro "tomorrow 09.00 a.m." more comfortable for using it on Fridays
(when I click on tomorrow 09.00 on Friday it will remind me on Saturday where I cannot call)

How can I modify the macro when I use it on Friday or Saturday, that it will set reminder time to next Monday 09.00 a.m..

Code:
Public Sub Morgen09()
Dim objMsg As Object
' GetCurrent Item function is athttp://slipstick.me/e8mio
Set objMsg = GetCurrentItem()
With objMsg
' due this week flag
    .MarkAsTask olMarkNoDate
    .MarkAsTask olMarkComplete
' sets a specific due date
    '.TaskDueDate = Now + 3
    '.FlagRequest = "Nachverfolgung"
    .ReminderSet = True
    .ReminderTime = Date + 1 + #9:00:00 AM#
    .Save
End With

Set objMsg = Nothing
End Sub
Many thanks for your further help

Witzker
 
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
#25
it will read something like this - i think the bolded part is correct but did not test it.
if format (date,"dddd") = "Friday" then
.ReminderTime = Date + 3 + #9:00:00 AM#
else
.ReminderTime = Date + 1 + #9:00:00 AM#

end if