email - 从 erlang 发送邮件

Question

我在 ubuntu 10.10 中工作，并且使用 Erlang。
我的目标是编写代码以便从 Erlang 发送邮件。

这是我的代码:

-module(mailer).

-compile(export_all).


send(Destination, Subject, Body) ->
    D = string:join(lists:map( fun(Addr) -> binary_to_list(Addr) end, Destination ), " " ),
    S = io_lib:format("~p",[binary_to_list(Subject)]),
    B = io_lib:format("~p",[binary_to_list(Body)]),
    os:cmd("echo "" ++ B ++ "" | mail -s "" ++ S ++ "" " ++ D).

并执行我尝试使用的发送函数:

Erlang R13B03 (erts-5.7.4) [source] [rq:1] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.7.4  (abort with ^G)
1> mailer:send([<<"testFrom@mail.com">>, <<"testto@yahoo.fr">>], <<"hello">>, <<"Hello guys">>..                        
"/bin/sh: mail: not found\n"

如你所见，我有这个错误:

/bin/sh: mail: not found

Answer 1

我建议使用 erlang 中现有的 smtp 库。 gen_smtp是我过去用过的一种。发送电子邮件非常简单:


gen_smtp_client:send({"whatever@test.com", ["andrew@hijacked.us"],
"主题:测试\r\n发件人:安德鲁·汤普森\r\n收件人:某个家伙\r\n\r\n这是电子邮件正文"},
[{中继，"smtp.gmail.com"}，{用户名，"me@gmail.com"}，{密码，"mypassword"}])。