Browse Source

made org-outlook-new-mail able to accept cc and bcc

master
Marc Pohling 5 months ago
parent
commit
38c6489253
1 changed files with 11 additions and 1 deletions
  1. 12
      config.org

12
config.org

@ -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)

Loading…
Cancel
Save