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

I added a space before the 'If Typeof" line. saved, restarted OL, tried adding an allday appt. no question , no lines are changing colors.

I copied the macro text from the working desktop macro, pasted into the laptop macro window. restarted OL , still no question.
something is blocking the macro from running. perhaps Office doesn't recognize that I allowed macros to run?
 
I added a space before the 'If Typeof" line. saved, restarted OL, tried adding an allday appt. no question , no lines are changing colors.

I copied the macro text from the working desktop macro, pasted into the laptop macro window. restarted OL , still no question.
something is blocking the macro from running. perhaps Office doesn't recognize that I allowed macros to run?
Try disabling macro security in file > options > trust center. Restart outlook, reenbable allow all macros (least secure) then restart again.

Test it. If it still fails, close outlook, rename the macro file - vbaproject.otm at C:\Users\%usernamr%\AppData\Roaming\Microsoft\Outlook. Restart Outlook and paste the macro in thisoutlooksession.
 
did the disabling, re-enabling macro security, with OL restarts. no success.
renamed macro file, pasted macro into thisoutlooksession, saved, restarted OL. again no success.

However, however: as an experiment, I turned on Calendar-Outlook . macro worked when entering allday event into Calendar - Outlook. However the calendar that I normally use is Calendar- xxxxx@outlook.com. I won't be at the desktop (where macro works) until monday, but doesn't it have to be the same calendar, since this is the one containing all my calendar entries.? I don't use Calendar - xxxxx@outlook.com since it doesn't have anything I am interested in. I can check to see calendar name on desktop on Monday. But I know that Calendar-xxxx@outlook.com is the calendar I use, since this one syncs with iphone. Calendar-outlook does not sync with iphone.

Is there some way that calendars (or calendar names) can be switched between devices?
 
Last edited:
screenshots of calendars from desktop, where macro works, and laptop, where macro doesn't work, (unless I check 'calendar-outlook')

1748890773989.png

laptop, macro not working. unless I check "calendar-outlook'


1748890797034.png

desktop, where macro works
 
Last edited by a moderator:
>> laptop, macro not working. unless I check "calendar-outlook'

Ah... the macro uses the default data file.
Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items

You can either change the default - File > Account Settings > Account Settings > Data file tab. Select the oputlook.com data file. Or change the code to use a specific calendar.

This uses the selected calendar:
Set Items = Application.ActiveExplorer.CurrentFolder.Items


Use the getfolderpath function to use a non-default folder.
Set Items = GetFolderPath("outlook.com address\Calendar").Items
 
Success!!
Changing the data file default fixed it. Sorry that I didn't think of this before, though I believe that I did try it without success. Maybe I tried changing to wrong folder? anyway, it work now.

Thanks for sticking with this.

jeffrey
 
Success!!
Changing the data file default fixed it. Sorry that I didn't think of this before, though I believe that I did try it without success. Maybe I tried changing to wrong folder? anyway, it work now.

Thanks for sticking with this.

jeffrey
I didn't give it a second thought either, until you mentioned it the other calendar.
 
Last edited:
Similar threads
Thread starter Title Forum Replies Date
N VBA Procedure (or Macro) to Stop Outlook from Closing? Outlook VBA and Custom Forms 2
mikolajek Mailboxes rename macro stopped working Outlook VBA and Custom Forms 4
N Macro in this Project are disabled Outlook VBA and Custom Forms 2
M Outlook 365 Amending code so macro runs within current new mail window Outlook VBA and Custom Forms 0
M Outlook 365 macro - automatically attach file based on subject line Outlook VBA and Custom Forms 0
J Outlook macro to run before email is being send Outlook VBA and Custom Forms 3
H Macro to Delete Duplicate items in Outlook calendar where title is the same and date is the same Outlook VBA and Custom Forms 0
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
mrrobski68 Issue with Find messages in a conversation macro Outlook VBA and Custom Forms 1
G Creating Macro to scrape emails from calendar invite body Outlook VBA and Custom Forms 6
M Use Macro to change account settings Outlook VBA and Custom Forms 0
J Macro to Reply to Emails w/ Template Outlook VBA and Custom Forms 3
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 1
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 0
S macro error 4605 Outlook VBA and Custom Forms 0
A Macro Mail Alert Using Outlook 4
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
D Outlook 2016 Creating an outlook Macro to select and approve Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to check Cursor & Focus position Outlook VBA and Custom Forms 8
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
M Outlook 2019 Macro not working Outlook VBA and Custom Forms 0
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
V Macro to count flagged messages? Using Outlook 2
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Macro to block senders domain Outlook VBA and Custom Forms 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Line to move origEmail to subfolder within a reply macro Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17

Similar threads

Back
Top