macro to stop 18hr reminder for all-day appts not working on one computer

[astro46]

Operating system::    win10
Outlook version:     2024 installed
Email type or host:    imap

---

Thanks Diane for the macro to turn off 18hr reminder. It works great on my desktop, but I can't get it to work on laptop. Same version of installed OL24 on both systems.
I am using the first 2 sections of code, to simply ask about turning off 18hr reminder.
I did set macro settings to enable all.
I deleted and copied the macro text in to editor several times. Saved, restarted OL, rebooted computer.

created a test reminder, saved: no response. 18hr reminder remains set.
any ideas what setting to check?

 

[Diane Poremsky]

You put the entire macros in the thisoutlooksession, correct? Then clicked in the startup macro and clicked the run button? (Or restarted outlook.)

Add msgbox lines throughout and see if they fire.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace

  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items

msgbox "start up"
End Sub



Private Sub Items_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  Dim Appt As Outlook.AppointmentItem

  If TypeOf Item Is Outlook.AppointmentItem Then

msgbox "is appointment item"

    Set Appt = Item

'Checks to see if all day and if it has a reminder set to true
     If Appt.AllDayEvent = True And Appt.ReminderSet = True Then

msgbox "is all day event"

'msgbox block - 3 lines
    If MsgBox("Do you want to remove the reminder?", vbYesNo) = vbNo Then
      Exit Sub
    End If

'appt.reminderset block - 2 lines
     Appt.ReminderSet = False

msgbox "reminder should be off"

     Appt.Save

    End If
    End If
End Sub

 

[astro46]

when I click "run" , F5, a box comes up asking to macro name.
I don't recall getting this response when setting up macro on desktop. Desktop worked fine right away. As far as I can tell everything is the same on both machines.
Is there some setting to check that may be blocking the macro? As I mentioned, trust center macro settings are set to enable all.

 

[Diane Poremsky]

You can't run it manually. In the VBA editor, click the mouse in the startup part run it.
It doesn't have to be in the macro name - but somewhere between the sub and end sub of app startup.

 

[astro46]

maybe I don't understand what you are indicating. I click in the startup part of script. no response. just places cursor where I click. double clicking highlights a whole word, as clicking usually does.
iac, I am not so interested in running the script while editor is open as getting the macro to function on the laptop, as it does on my desktop.

 

[Diane Poremsky]

I am not so interested in running the script while editor is open as getting the macro to function on the laptop, as it does on my desktop.

Running it from the editor is just to kick start it - otherwise you need to keep restarting Outlook when you make a change. The other macro runs automatically when you add the appt to the calendar.

 

[astro46]

i have been restarting Outlook. But after restarting Outlook, on laptop, it doesn't run when adding appt to calendar.

 

[Diane Poremsky]

If I already asked this, sorry - do you have more than one calendar? The script only works on the default calendar as written.

 

[astro46]

only one calendar, the default OL calendar. Same calendar used on the desktop, where macro works fine. or, if it is somehow a different calendar on the laptop, I don't know where it comes from, and what distinguishes it. dates entered on one appear on the other. Both go through exchange.

 

[Diane Poremsky]

I used the macro above and it works - so the code is good.
macro example

I have macro security set to none. If you signed it and copied the otm file, the macros won't work until resigned.

 

[astro46]

I also know that the code is good, because I used it on a different computer.
I have macro security set to none. I am very sure that I didn't sign anything, because I don't know how to do that. I just checked tools>digital signature>it says signed as:no certificate. I copied the code from your web site, and pasted into the macro editor in Outlook, same as I did on desktop, where it works just fine.
Something is causing it not to run, blocking it, or ...?

 

[astro46]

Diane, Any ideas of a setting or reg entry to check ?

btw: today I received an email, indicating a reply to this thread, "thank you for your Post We are really happy to Read it Post" from a user "aosproductseo" , which returns nothing in a member search. The "really happy" link went to [spam]. spam? As you can see, there is no reply like the one stated in email. Weird.

 

[Diane Poremsky]

That was spam and I deleted it.

There wouldnt be a registry settings - just the macro security. If you use my code sample above with all the msgboxes do any of them come up?

 

[astro46]

using the code sample above, when I open OL i get a message box saying "start up".
curiously, I clicked the save icon after entering the code sample, and closed the macro window, as I did when entering the 18 hr sample. but this time, when restarting OL it asked if I wanted to save the macro, before closing. I had not seen that question before.

 

[astro46]

Putting the original "18 hr" code back from your page that discusses creating the macro, I find that it still doesn't work on laptop. but if I enter an all day event on laptop OL calendar, the reminder also, of course, appears on desktop OL calendar, with the question about removing the reminder appearing on desktop. but still not on laptop. very strange.

 

[Diane Poremsky]

using the code sample above, when I open OL i get a message box saying "start up".
curiously, I clicked the save icon after entering the code sample, and closed the macro window, as I did when entering the 18 hr sample. but this time, when restarting OL it asked if I wanted to save the macro, before closing. I had not seen that question before.

Did you try creating an event to see if the itemadd macro ran?

The 'start up' indicates the auto start is working, so the second part should be working.

 

[Diane Poremsky]

using the code sample above, when I open OL i get a message box saying "start up".
curiously, I clicked the save icon after entering the code sample, and closed the macro window, as I did when entering the 18 hr sample. but this time, when restarting OL it asked if I wanted to save the macro, before closing. I had not seen that question before.

I've seen it ask now and again after I've clicked Save and closed outlook. Not sure why it does that.

 

[astro46]

Did you try creating an event to see if the itemadd macro ran?

The 'start up' indicates the auto start is working, so the second part should be working.

on laptop, using the code that creates a 'startup' msg when outlook starts, I get the startup msg at opening, but no msg/question about keeping the 18hr reminder, when I create a test all-day reminder. (though I do get the question on desktop when test reminder syncs ). very strange. glad to see that it is acting like a computer