SMTP support

[mkoohafkan]

Curl apparently supports email sending via SMTP:

curl --url 'smtps://smtp.gmail.com:465' --ssl-reqd --mail-from 'username@gmail.com' --mail-rcpt 'john@example.com' --upload-file mail.txt --user 'username@gmail.com:password'

Where mail.txt has content e.g.

From: "User Name" <username@gmail.com>
To: "John Smith" <john@example.com>
Subject: This is a test

Hi John,
I’m sending this mail with curl thru my gmail account.
Bye!

Is this possible to do with with this package? It seems like most of these options exists, with the exception of --upload-file. There is an upload option in curl_options but it expects an integer value, so I'm not sure how to use it.

[jeroen]

Hmm we would need to mimic this example: https://curl.haxx.se/libcurl/c/smtp-mail.html

[jeroen]

Hmm this is pretty difficult. I support for vector options (that we need for curlopt_mail_rcpt) in the smtp branch:

remotes::install_github("jeroen/curl@smtp")

And then you can try something like this:

library(curl)
h <- new_handle(verbose = TRUE, mail_from = "Sender <sender@ocpu.io>", 
  mail_rcpt = "Jeroen Ooms <jeroenooms@gmail.com>")
con <- file("body.txt", open = 'rb')

handle_setopt(h, readfunction = function(nbytes, ...) {
  cat("reading", nbytes, "bytes\n")
  buf <- readBin(con, raw(), nbytes)
}, upload = TRUE)

res <- curl::curl_fetch_memory('smtp://localhost', handle = h)

But the emails keeps bouncing for me, not sure what I do wrong.

[mkoohafkan]

Actually, your example worked for me when I used my organization's SMTP server! I didn't try it with gmail or localhost.

[datawookie]

Hi, I've just tried this using Gmail and it worked fine for me! Thanks, Andrew.

[datawookie]

Hi @jeroen, I'm using this feature routinely now. Any chance we can get this merged into master?

[jeroen]

curl::send_mail() is in master

[jeroen]

Fix in curl 4.0 on CRAN now.

[datawookie]

Brilliant. Thanks.