Re: guile - sending emails

[Mike Gran <spk121@yahoo.com>]

> On Monday, October 20, 2014 2:14 PM, Chris Vine <chris@cvine.freeserve.co.uk> wrote:

> > On Mon, 20 Oct 2014 22:17:47 +0200
> Konrad Makowski <poczta@konradmakowski.pl> wrote:
>>  How can i send emails from guile script? Is there any module for that 
>>  purpose? I know that there is mailutils but can't figure out how to
>>  do that with it. Please, show me some examples.


I've never actually looked at GNU Mailutils before, so I didn't
know it has a scheme interface.  Sweet.  Has anyone been using it?

Just for fun, I added the missing options to guile-curl that would
allow one to send an e-mail.  If one checked out the very latest
git at ...

  https://github.com/spk121/guile-curl

...one could do something like the following.  But, that is a bit
crap.  A proper library would handle the bookkeeping of the
many names, addresses, and dates appear multiple times in
SMTP headers.


Regards,
Mike Gran


---

(use-modules (curl))

(setlocale LC_ALL "")

(define data-port
  (open-input-string
    (string-append
      "From: \"John Doe\" <jdoe@yahoo.com>\r\n"
      "To: \"John Smith\" <jsmith@nobody.com>\r\n"
      "Subject: Test Message\r\n"
      "\r\n"
      "This is the body of my mesage.\r\n")))

(define handle (curl-easy-init))
(curl-easy-setopt handle 'url "smtps://smtp.mail.yahoo.com:465")
(curl-easy-setopt handle 'verbose #t)
(curl-easy-setopt handle 'use-ssl CURLUSESSL_ALL)
(curl-easy-setopt handle 'username "jdoe@yahoo.com")
(curl-easy-setopt handle 'password "xxxxx")
(curl-easy-setopt handle 'mail-from "jdoe@yahoo.com")
(curl-easy-setopt handle 'mail-rcpt '("jsmith@nobody.com"))
(curl-easy-setopt handle 'readdata data-port)
(curl-easy-perform handle)