|
|
@ -959,6 +959,7 @@ Requires on system |
|
|
|
;(use-package notmuch |
|
|
|
; :ensure t) |
|
|
|
(use-package mu4e |
|
|
|
:if *sys/linux* |
|
|
|
:ensure nil |
|
|
|
:after (org)) |
|
|
|
#+end_src |
|
|
@ -1014,7 +1015,16 @@ End Sub |
|
|
|
(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))) |
|
|
|
; separate RECEIPIENTS for main, cc and bcc by | |
|
|
|
(setq recp (split-string receipients "|")) |
|
|
|
(setq mailstring (concat " /c ipm.note /m " (nth 0 recp))) |
|
|
|
(if (nth 1 recp) |
|
|
|
; this check has tp be separated because (and..) would stumble over a nil |
|
|
|
(if (not (equal "" (nth 1 recp))) |
|
|
|
(setq mailstring (concat mailstring "&cc=" (nth 1 recp))))) |
|
|
|
(if (nth 2 recp) |
|
|
|
(setq mailstring (concat mailstring "&bcc=" (nth 2 recp)))) |
|
|
|
(w32-shell-execute "open" "outlook" mailstring)) |
|
|
|
|
|
|
|
(defun my/org-outlook-open-test () |
|
|
|
(interactive) |
|
|
|