"C:\Program Files\Microsoft Office\root\Office16\OUTLOOK.EXE" /c IPM.note /m email@address.com
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
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...
»bp