Outlook item link


New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
I have a procedure in Outlook VBA to create a link.

Sub ItemLink2Clipboard()
Dim URL As String
Dim DataToSave As New DataObject
Dim mySel As Outlook.Selection
Dim myItem As Object
Set mySel = Application.ActiveWindow.Selection
Set myItem = mySel(1)
URL = URL & "Outlook:" & myItem.EntryID
DataToSave.SetText URL
End Sub

Then in OneNote i paste the Content of the clipboard and I get for instance a Hyperlink looking like:

In OneNote i can then modify the Hyperlink to present the same link as e.g.
I would like to put the Hyperlink into the clipboard complete with the link and the subject as the text to show.

Can someone please help me.