VBA for Outlook

Once you have entered your email address in the To field on one message Outlook should add that to the "nicknames" that it stores, and the next time you send a message and are in the To field and type the first letter or two of your email address it should drop down a list of matching emails where you can select yours.  That feels probably as easy as trying to map a keyboard shortcut to it, which Outlook doesn't support very well.

If you really want to just click a key combo and have your email filled in then I might look outside Outlook, at a keyboard automation tool.  I purchased KeyText a while back and use it for some similar tasks, but it isn't free.  There are others though, a few mentioned below but Google will probably find you more...

• KeyText: keyboard macro with Windows automation
• TinyTask
• UtilFr – Clavier+ 10.8.3
• AutoHotkey

---

»bp

Thanks Bill. I will consider your suggestions, however, and it may not be possible with VBA for Outlook

Why not have a desktop shortcut with a key assignment which runs the following command:

"C:\Program Files\Microsoft Office\root\Office16\OUTLOOK.EXE" /c IPM.note /m email@address.com

Select allOpen in new window

You can then press the key combination you assign to the shortcut and, as long as Outlook is already open, a window with a new message addressed to you at mail@address.com will appear.

Let me chew on this - interesting

In the event you want a VBA Macro you can put on the Ribbon, use the following code

Public Sub NotesToMyself()
  Set OL = CreateObject("Outlook.Application")
  Set EmailItem = OL.CreateItem(olMailItem)
  Set olNS = OL.GetNamespace("MAPI")
  tofield = olNS.Accounts.Item(1).SmtpAddress
    With EmailItem
      .Subject = "Note To Self"
      .Body = "[Enter your message here]" & vbCrLf & _
      "" & vbCrLf & _
      .To = tofield
      .Importance = olImportanceNormal
      .Send
  End With
End Sub

Select allOpen in new window

The top 4 lines determine your email address and it is inserted at the .To = tofield so the code can be shared with others without hard-coded email addresses.

Darrel,
I copy and pated your code to a new procedure. However, in attempting to run it I get the following error:
Could use a little hep here, please.

This link provides info on enabling macros in Outlook.

How to enable and disable macros in Outlook?

---

»bp

Darrel,
Have you tested this code. I get all types of problem. I do have Option Explicit enabled.

Thanks to all. Bill, I can now study this code. Appreciate everyone

Welcome Frank, hope you get something that works well for you.

---

»bp

Bill, nice work!  I literally just hacked something together from toilet paper and white glue and you polished it into something splendid.  Thank you!