From: "Christopher J. White" <orgmode@grierwhite.com>
To: emacs-orgmode@gnu.org
Subject: Re: org-capture and org-link-type for Outlook mail messages on Mac OSX
Date: Sun, 03 Jun 2012 07:16:41 -0400 [thread overview]
Message-ID: <4FCB4799.80906@grierwhite.com> (raw)
In-Reply-To: <4FCB42D2.6010306@grierwhite.com>
Ok -- just realized I had left in the selection of a custom
org-capture-template which will likely not be in anyone else's config,
so I made the org-capture-template configurable, and set to nil by default.
Modified script below..
...cj
-- OutlookToEmacsOrg
--
-- This script uses org-protocol to capture the currently selected
message in outlook
-- as an Org item. The item creates a link of type 'mac-outlook' with
the message ID
-- within Outlook that can later be used by mdfind to find that message.
--
-- If more than one message is selected, only the first message is used.
If no message
-- is selected, the script does nothing.
--
-- The Title passed to org-protocol is formatted as "[Sender] Subject",
but could
-- easily be modifed as below to any text.
--
-- See http://orgmode.org/worg/org-contrib/org-protocol.html for details
about
-- how org-protocol works.
--
-- This script assumes emacsclient is available via the Carbon Emacs
application, but
-- can be changed via the emacsclientBinary below.
--
-- Script Installation for Outlook
-- 1. Startup AppleScript Editor
-- 2. Paste this script into a new file
-- 3. Save as "OutlookToEmacsOrg" of file type "Script Bundle" in the
directory:
-- /Users/<you>/Library/Application
Support/Microsoft/Office/Outlook Script Menu Items
-- 4. Restart Outlook, and this should show up in the Script menu (the
squiggly next to Help)
--
-- You probably also assign a shortcut via System Preferences.
--
-- Emacs mac-outlook link support, put the following in your .emacs:
--
-- (org-add-link-type "mac-outlook" 'org-mac-outlook-open)
--
-- (defun org-mac-outlook-open (msgid)
-- "Open a message in outlook"
-- (shell-command (format "open \"`mdfind
com_microsoft_outlook_recordID==%s`\"" msgid)))
--
-- Tested on Mac OS X 10.7.3, Emacs 23.4.2, Org 7.8.03, Outlook for Mac 2011
--
-- Special thanks to Lutz Meyer / LuMe96(at)gmail.com -- I got the critical
-- pieces of applescript from OutlookToThings.scpt written by Lutz.
property emacsclientBinary :
"/Applications/Emacs.app/Contents/MacOS/bin/emacsclient"
-- Set to the empty string to use the default capture template, or fill
-- in the letter code from org-capture-templates
property orgCaptureTemplate : ""
--property orgCaptureTemplate : "x"
on urlencode(plaintext)
set enctext to do shell script "python -c 'import sys, urllib; print
urllib.quote(sys.argv[1])' " & quoted form of plaintext
return enctext
end urlencode
tell application "Microsoft Outlook"
set msgCount to count current messages
if (msgCount < 1) then
return
end if
set myMessage to (the first item of (get current messages))
set myID to id of myMessage as string
set mySubject to subject of myMessage
set mySender to sender of myMessage
set mySenderName to name of mySender
set myTitle to "[" & mySenderName & "] " & mySubject
set myCmd to emacsclientBinary & " \"org-protocol:/capture:"
if (length of orgCaptureTemplate > 0) then
set myCmd to myCmd & "/" & orgCaptureTemplate
end if
set myCmd to myCmd & "/mac-outlook:" & myID
set myCmd to myCmd & "/" & (my urlencode(myTitle))
set myCmd to myCmd & "\""
--display dialog myCmd
tell application "Emacs"
activate
end tell
do shell script myCmd
set the clipboard to myCmd
end tell
next prev parent reply other threads:[~2012-06-03 11:16 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-03 10:56 org-capture and org-link-type for Outlook mail messages on Mac OSX Christopher J. White
2012-06-03 11:16 ` Christopher J. White [this message]
2012-06-05 23:00 ` Mike McLean
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4FCB4799.80906@grierwhite.com \
--to=orgmode@grierwhite.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.