Puis-je créer un lien vers un e-mail spécifique dans Outlook ?

Microsoft 365 & Office Outlook & Exchange
,
1

Puis-je créer un lien vers un e-mail spécifique dans Outlook ?

Source : Super User [microsoft-outlook]

2

Vous pouvez faire cela avec un peu de code dans Outlook et un peu de code dans Emacs.

D’abord, si vous utilisez Outlook 2007, vous devrez activer les URL Outlook avec un ajout au registre. Les instructions et le fichier de registre se trouvent ici grâce à David Tan.

Ensuite, cette macro peut être ajoutée à Outlook et obtiendra le GUID du message e-mail actuel, créera un lien Org-Mode et le déposera dans le presse-papiers.

'Adds a link to the currently selected message to the clipboard
Sub AddLinkToMessageInClipboard()

   Dim objMail As Outlook.MailItem
   Dim doClipboard As 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.Item(1)
   doClipboard.SetText "[[outlook:" + objMail.EntryID + "][MESSAGE: " + objMail.Subject + " (" + objMail.SenderName + ")]]"
   doClipboard.PutInClipboard

End Sub

Comme l’a noté koushik dans les commentaires, la partie doClipboard.SetText peut être étendue pour différencier les différents types d’éléments :

If objMail.Class = olMail Then
    doClipboard.SetText "[[outlook:" + objMail.EntryID + "][MESSAGE: " + objMail.Subject + " (" + objMail.SenderName + ")]]"
ElseIf objMail.Class = olAppointment Then
    doClipboard.SetText "[[outlook:" + objMail.EntryID + "][MEETING: " + objMail.Subject + " (" + objMail.Organizer + ")]]"
ElseIf objMail.Class = olTask Then
    doClipboard.SetText "[[outlook:" + objMail.EntryID + "][TASK: " + objMail.Subject + " (" + objMail.Owner + ")]]"
ElseIf objMail.Class = olContact Then
    doClipboard.SetText "[[outlook:" + objMail.EntryID + "][CONTACT: " + objMail.Subject + " (" + objMail.FullName + ")]]"
ElseIf objMail.Class = olJournal Then
    doClipboard.SetText "[[outlook:" + objMail.EntryID + "][JOURNAL: " + o

*(Réponse tronquée)*