Outlook 2010 - VBA macro to execute a Ribbon Button

Question

Dear all.

I have a VBA macro that is executed in a rule once an email comes in. The macro sets the default printer to "Send to Onenote 2010" and prints the email on the printer. That works fine.

Now I would like to add functioanlity to the macro, that the incoming email is not printed to Onenote but moved to Onenote using the Ribbon Button "MoveToOneNote", which came with the OneNote Add-in. The beaut yin that is that the email is not transfered as a picture but as text and all the attachments are delivered to OneNote.

If bolOneNoteMsg Then       
Item.GetInspector.CommandBars.ExecuteMso "MoveToOneNote"    
End If

This code does not work unfortunately. It throws no error, but the email does not make it to OneNote either.

Can you please give me a hint, where to look for to resolve the issue?

Thanks

Stefan

Answer 1

are you sure that this idMSO - MoveToOneNote is proper?

Answer 2

I think so. I took it from the command list from the inspector ribbon command customizing.

While hovering over the command the following pops up:

Message tab | Move | OneNote (MoveToOneNote)

Any other combination failed in runtime error 5 invalid procedure call or argument.

Any other hint?

Thanks

Answer 3

Is inspector open when you call this? (is mail shown in its own window)

Answer 4

Usually not.

Please be patient with me, I have only very very limited knowledge about the VBA and Outlook OM

Answer 5

Hi Stefan,

Thanks for posting in the MSDN Forum.

It's based on my experience that you need confirm the item's inspector is active when you do it.

Have a good day,

Tom

---

Tom Xu [MSFT]
MSDN Community Support | Feedback to us

Answer 6

Hi Tom Xu

That was a good hint.

Just to get it somehow to work I tried this code:

Application.ActiveExplorer.CommandBars.ExecuteMso "MoveToOneNote"

And it really moves something to Onenote, but not the received item, only the currently marked email.

How can I get this to work with any received email?

Thanks and regards

Stefan

Answer 7

Try to call Display on item, it should show up inspector for item. You could also try to fiddle with Explorer.AddToSelection/RemoveFromSelection.

Answer 8

Hi Stefan,

I've had the same idea as you. Any luck getting this macro to work?

- Rob

Answer 9

not yet, it is still on my list to do

the code itself works with the exception of my last post, so I guess it is only a small change left.

//Stefan