Outlook-Emails in OneNote verlinken

Hallo Community,


für Dokumentationszwecke habe ich mir ein VBA-Script in Outlook geschrieben, dass mir Informationen zu einer ausgewählten E-Mail in die Zwischenablage kopiert:




'Adds a link to the currently selected message to the clipboard
Sub CiteToClipboard
Dim objMail As Object

Dim doClipboard As DataObject

Set doClipboard = New DataObject

'One and ONLY one message muse be selected
If Application.ActiveExplorer.Selection.Count <> 1 Then
MsgBox "Select one and ONLY one message."
Exit Sub
End If

Set objMail = Application.ActiveExplorer.Selection.Item1

If objMail.Class = olMail Then


doClipboard.SetText SplitobjMail.SenderName, " "1 + ", " + SplitobjMail.SenderName, " "0 + ": " + objMail.Subject + " - abgerufen am " + CStrDateValueobjMail.ReceivedTime + ", [E-Mail]"


'mit Absenderadresse:
' doClipboard.SetText SplitobjMail.SenderName, " "1 + ", " + SplitobjMail.SenderName, " "0 + " <" + objMail.SenderEmailAddress + ">: " + objMail.Subject + " - abgerufen am " + CStrDateValueobjMail.ReceivedTime + ", [E-Mail]"


doClipboard.PutInClipboard
End If



End Sub


Die Ausgabe ist dann:


Vorname, Nachname: Betreff - abgerufen am DD.MM.JJJJ, [E-Mail]


Soweit so gut. Das Objektmodell kennt auch die entryID-Eigenschaft.


Gibt es eine Möglichkeit einen anklickbaren Link für Word, Excel, OneNote mit dem o.g. Textstring als Bezeichnung und der entryID als Linkziel zu erstellen?


Ziel soll sein, dass beim Klicken das Objekt in Outlook geöffnet wird.


Ich habe mich an dieser Anleitung orientiert:


https://superuser.com/questions/71786/can-i-create-a-link-to-a-specific-email-message-in-outlook


Wenn ich nun aber einen Link in der Form


Outlook:0000000CE74B...


erstelle, wird versucht den App-Store zu öffnen wo keine passende App füroutlook:-Links gefunden wird.