Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

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

ayi

Puis-je créer un lien vers un e-mail spécifique dans Outlook ?
<hr>
Source : <a href="http://www.davidtan.org/outlook-2007-adding-outlook-url-protocol/" rel="noopener nofollow ugc">Super User [microsoft-outlook]</a>

ayi_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 <a href="http://www.davidtan.org/outlook-2007-adding-outlook-url-protocol/">ici</a> 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.
<pre><code class="lang-auto">'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

</code></pre>
Comme l’a noté <a href="https://superuser.com/users/49981/koushik">koushik</a> dans les commentaires, la partie <code>doClipboard.SetText</code> peut être étendue pour différencier les différents types d’éléments :
<pre><code class="lang-auto">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)</code></pre>