(add-hook 'org-finalize-agenda-hook 'org-agenda-to-appt)
(setq appt-message-warning-time 10)
(setq appt-display-count 1)
(setq appt-email "cellphone@vtext.com")

;; Redefine function that displays appointment messages so it sends emails too
(defun appt-display-message (string mins)
  "Display a reminder about an appointment.
The string STRING describes the appointment, due in integer MINS minutes.
The format of the visible reminder is controlled by `appt-display-format'.
The variable `appt-audible' controls the audible reminder."
  (let ((appt-display-format
         (if (eq appt-display-format 'ignore)
               (cond (appt-msg-window 'window)
                     (appt-visible 'echo))
           appt-display-format)))
    (cond ((eq appt-display-format 'window)
           (funcall appt-disp-window-function
                    (number-to-string mins)
                    (format-time-string "%a %b %e " (current-time))
                    string)
           (run-at-time (format "%d sec" appt-display-duration)
                        nil
                        appt-delete-window-function))
          ((eq appt-display-format 'echo)
	   (shell-command (concat "echo " string "|mail " appt-email))))
           (message "%s" string)
    (if appt-audible (beep 1))))