Bunu Outlook'ta biraz kod ve Emacs'ta biraz kodla yapabilirsiniz.
Öncelikle, Outlook 2007 kullanıyorsanız, Outlook URL’lerini bir kayıt defteri eklemesiyle etkinleştirmeniz gerekir. Talimatlar ve kayıt defteri burada David Tan'ın izniyle bulunabilir .
Ardından, bu makro Outlook'a eklenebilir ve geçerli e-posta iletisinin GUID'sini alır, bir Org-Mode bağlantısı oluşturur ve panoya yerleştirir.
'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
Neredeyse orada, Outlook linklerini etkinleştirmek için bu küçük lisp parçasını emacs lisp dizininize ekleyin.
;;; org-outlook.el - Support for links to Outlook items in Org
(require 'org)
(org-add-link-type "outlook" 'org-outlook-open)
(defun org-outlook-open (id)
"Open the Outlook item identified by ID. ID should be an Outlook GUID."
(w32-shell-execute "open" (concat "outlook:" id)))
(provide 'org-outlook)
;;; org-outlook.el ends here
Son olarak, Outlook link kodunu eklemek için .emacs dosyanızı güncelleyin. Bunu org-mode ayarlandıktan sonra bir yere ekleyin.
(require 'org-outlook)
Artık makroyu arayabilir (hızlı erişim için Outlook'taki araç çubuğuma ekledim) ve hızlı bir şekilde Emacs'ta e-postaya bir bağlantı oluşturabilirsiniz.
Bir tane yakaladıysanız, GUID'in bir mesajı belge depoları arasında taşıdığınızda değişmesi nedeniyle, GUID'i Exchange sunucunuzdayken iletiye alırsanız ve ardından yerel PST dosyasına taşıdığınızda bağlantı değişir. GUID'i almadan önce mesajı taşıyın.