Re: Re: Email from org?

["Eric Schulte" <schulte.eric@gmail.com>]

Hi Ethan,

Ethan Ligon <ligon@are.berkeley.edu> writes:

[...]
>
> Then a transition in workflow state from EMAIL to WAITING would cause
> (perhaps via org-mime) the construction of an email
>
>   From: ligon@are.berkeley.edu
>   To: kenneth@example.com
>   Subject: What is the optimal frequency?
>   Date: Wed, 28 Jul 2010 13:36:14 -0700
>
>   Dear Ken-
>
>   Could you please let me know when you've made progress on computing
>   the optimal frequency?
>
>   Thanks,
>   -Ethan
>
> which would then be automagically fed into an SMTP client for
> delivery.  Critically, one would *not* need to interrupt one's work
> flow in order to go mess around with a mail client; a simple \C-c\C-t
> or similar would send the email on its way.
>

The following function might get part way towards what you describe.

--8<---------------cut here---------------start------------->8---
(defun org-send-email-of-headline ()
  (interactive)
  (let ((subject (org-get-heading t))
        (to (org-entry-get (point) "mailto")))
    (outline-mark-subtree)
    (org-mime-org-buffer-htmlize)
    (save-excursion
      (message-goto-to) (insert to)
      (message-goto-subject) (insert subject))))
--8<---------------cut here---------------end--------------->8---

Best -- Eric