Who can help me vba code for the following:

I want a button via a macro which displays the selected message as msg-item in a calendar appointment. Besides the embedded message, I see the plain text below.

I like to see your reaction.