Outlook Macro to set Reminder on a Contact tomorro 9:00


Joined
Mar 29, 2018
Messages
4
Reaction score
0
I have a Macro that should set reminder time in opened custom contact form to next day 09:00
There should be no beginning and due date simply the reminder date.( see Attatched Picture)

-----------------------------
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
' 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
----------------------------------
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function
-------------------------------------------------

I noticed that if there was a reminder set bevor and I click on the macro the contact stays marked red in the view
I think in the macro should be a line to clear(delete) the reminder before setting the new reminder for tomorrow 9:00
How can I archive this?

THX for help
Regards Witzker
 

Attachments

Ad

Advertisements

Joined
Jul 7, 2018
Messages
9
Reaction score
1
Help Pls..
Not even one Idea?
Not sure if it the reminder is the problem but you can try this.
It will not make a difference if you set the reminder to false first. Only when you save the item with reminderset =false the item will be updated.
test something like
if .reminderset = true then
.reminderset=false
.save
msgbox "click macro again"
end if
so it sets it to false and tells you to click the macro again
 
Joined
Mar 29, 2018
Messages
4
Reaction score
0
THX for Answer
NO!
this dammed thing is still Red
jack at remindertime is gone with the macro but still red!

Hope you have another Idea how to.
THX again for your Help
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top