Re: send agenda-weekly-view via email html formated

[Uwe Brauer]

>>> "IR" == Ihor Radchenko <yantar92@gmail.com> writes:

> Ihor Radchenko <yantar92@gmail.com> writes:
>> Uwe Brauer <oub@mat.ucm.es> writes:
>> 
>>> I know I can save my weekly agenda view as a HTML file and then send it as 
>>> as attachment.

> Sorry, I misread your first message. Attaching and sending is easy:

> (defun org-agenda-email ()
>   "Email agenda in current buffer as attachment."
>   (interactive)
>   (let ((to (read-string "Send to: "))
>       (subject (read-string "Subject: ")))
>     (unless (derived-mode-p 'org-agenda-mode) (user-error "Should start from 
> agenda view."))
>     (org-agenda-write (file-name-concat (temporary-file-directory) 
> "agenda.html") nil nil (current-buffer))
>     (compose-mail to subject)
>     (save-excursion
>       (goto-char (point-max))
>       (mml-attach-file (file-name-concat (temporary-file-directory) 
> "agenda.html")))))


Thanks I run a test in an org-agenda and obtained

,----
| 
| Debugger entered--Lisp error: (void-function file-name-concat)
|   (file-name-concat (temporary-file-directory) "agenda.html")
|   (org-agenda-write (file-name-concat (temporary-file-directory) 
"agenda.html") nil nil (current-buffer))
|   (let ((to (read-string "Send to: ")) (subject (read-string "Subject: "))) 
(if (derived-mode-p 'org-agenda-mode) nil (user-error "Should start from agenda 
view.")) (org-agenda-write (file-name-concat (temporary-file-directory) 
"agenda.html") nil nil (current-buffer)) (compose-mail to subject) 
(save-excursion (goto-char (point-max)) (mml-attach-file (file-name-concat 
(temporary-file-directory) "agenda.html"))))
|   org-agenda-email()
|   funcall-interactively(org-agenda-email)
|   apply(funcall-interactively org-agenda-email nil)
|   repeat-complex-command(1)
|   funcall-interactively(repeat-complex-command 1)
|   call-interactively(repeat-complex-command nil nil)
|   command-execute(repeat-complex-command)
`----

smime.p7s
Description: S/MIME cryptographic signature