Outlook item link

Gfm

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
DataToSave.PutInClipboard
End Sub

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

In OneNote i can then modify the Hyperlink to present the same link as e.g.
Test
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.
 
Top