From c2160ed25dcb09a37306866ae030a03c6cb59dc9 Mon Sep 17 00:00:00 2001 From: Marc Pohling Date: Wed, 22 May 2024 11:33:49 +0200 Subject: [PATCH] new org linkk type OUTLOOKNEWMAIL --- config.org | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/config.org b/config.org index 5b8da0c..3ff8131 100644 --- a/config.org +++ b/config.org @@ -977,10 +977,14 @@ End Sub #+BEGIN_SRC emacs-lisp ;(org-add-link-type "outlook" 'my--org-outlook-open) +;(org-add-link-type "outlooknewmail" 'my--org-outlook-new-mail) (defun my--org-outlook-open (id) (w32-shell-execute "open" "outlook" (concat " /select outlook:" id))) +(defun my--org-outlook-new-mail (receipients) + (w32-shell-execute "open" "outlook" (concat " /c ipm.note /m " receipients))) + (defun my/org-outlook-open-test () (interactive) (w32-shell-execute "open" "outlook" " /select outlook:000000008A209C397CEF2C4FBA9E54AEB5B1F97F0700846D043B407C5B43A0C05AFC46DC5C630587BE5E020900006E48FF8F6027694BA6593777F542C19E0002A6434D000000"))' @@ -1089,6 +1093,7 @@ nil))) :config (when *work_remote* (org-add-link-type "outlook" 'my--org-outlook-open) + (org-add-link-type "outlooknewmail" 'my--org-outlook-new-mail) (setq org-todo-keywords '((sequence "OPEN" "TODO" "UNCLEAR" "|" "DONE" "IMPOSSIBLE" "CANCELLED"))) (setq org-capture-templates