Get a "New Note" icon onto the QAT

WPFreeman

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
I'm shooting for a one-click icon for a New Note (not OneNote) ... one that stays active no matter the view being used, or the folder I have active ... like the way New Appointment and New Contact work in the QAT.

I tried the New Items list box, but it has everything in it except New Note. The only way to get where I want to go from there is to drill down through New Items > More Items > Choose Form > Note, which is contrary to the concept of "Quick Access", IMO anyway.

I've dug through the whole All Commands list in QAT customization and find nothing else that works. Am I missing something?

TIA.
Ward
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
It looks like you have two choices = ctrl+shift+n or a macro which can be added as as button to the qat

Code:
Public Sub New_Note()
Dim olNS As Outlook.NameSpace
Dim oNote As Outlook.NoteItem

Set olNS = Application.GetNamespace("MAPI")
Set oNote = Application.CreateItem(olNoteItem)

'add a date or date/time stamp
oNote.Body = Format(Now, "mm/dd/yyyy h:nn AM/PM")
' oNote.Body = Date

oNote.Display

     
Set oNote = Nothing
Set olNS = Nothing

End Sub
 
Last edited:

WPFreeman

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
ARRGGGHH ... I hate it when I miss the obvious ... Ctrl+Shift+N will do just fine! Thanks so much, and thank you for dozens of times in the past 15+ years when SlipStick has solved my problem.
 
Top