new org linkk type OUTLOOKNEWMAIL

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