คุณสามารถทำได้ด้วยรหัสเล็กน้อยใน Outlook และรหัสเล็กน้อยใน Emacs
ก่อนอื่นหากคุณใช้ Outlook 2007 คุณจะต้องเปิดใช้งาน URL ของ Outlook ด้วยการเพิ่มรีจิสทรี คำแนะนำและไฟล์รีจิสตรีสามารถดูได้ที่นี่โดย David Tan
จากนั้นแมโครนี้สามารถเพิ่มลงใน Outlook และจะได้รับ GUID ของข้อความอีเมลปัจจุบันสร้างลิงค์โหมดองค์กรและฝากไว้ในคลิปบอร์ด
'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
เกือบแล้วให้เพิ่มเสียงกระเพื่อมเล็กน้อยนี้ไปยังไดเรกทอรีเสียงกระเพื่อม emacs ของคุณเพื่อเปิดใช้งานลิงก์ Outlook
;;; 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
และสุดท้ายอัปเดตไฟล์. emacs ของคุณเพื่อรวมรหัสลิงก์ Outlook เพียงเพิ่มสิ่งนี้หลังจากตั้งค่าโหมดองค์กร
(require 'org-outlook)
ตอนนี้คุณสามารถเรียกมาโคร (ฉันเพิ่มลงในแถบเครื่องมือของฉันใน Outlook เพื่อการเข้าถึงที่รวดเร็ว) และคุณสามารถสร้างลิงก์ไปยังอีเมลใน Emacs ได้อย่างรวดเร็ว
หนึ่ง gotcha การเปลี่ยนแปลงของ GUID เมื่อคุณย้ายข้อความระหว่างที่เก็บเอกสารดังนั้นหากคุณได้รับ GUID ไปยังข้อความขณะที่อยู่บนเซิร์ฟเวอร์ Exchange ของคุณจากนั้นย้ายไปยังไฟล์ PST ในเครื่องของคุณลิงก์จะเปลี่ยนไป ย้ายข้อความก่อนที่คุณจะได้รับ GUID