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.
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.