erlang 发送email gen_smtp

shijiang1130

https://github.com/Vagabond/gen_smtp

git clone https://github.com/Vagabond/gen_smtp
Cloning into 'gen_smtp'...
remote: Counting objects: 1894, done.
remote: Total 1894 (delta 0), reused 0 (delta 0)
Receiving objects: 100% (1894/1894), 1.28 MiB | 35.00 KiB/s, done.
Resolving deltas: 100% (1213/1213), done.
Checking connectivity... done

gen_smtp>rebar compile
==> gen_smtp (compile)
Compiled src/smtp_rfc822_parse.yrl
Compiled src/gen_smtp_application.erl
Compiled src/binstr.erl
Compiled src/gen_smtp_client.erl
Compiled src/gen_smtp_server.erl
Compiled src/smtp_rfc822_parse.erl
src/smtp_server_example.erl:5: Warning: behaviour gen_smtp_server_session undefi
ned
Compiled src/smtp_server_example.erl
Compiled src/gen_smtp_server_session.erl
src/smtp_util.erl:65: Warning: crypto:md5_mac/2 is deprecated and will be remove
d in in a future release; use crypto:hmac/3
Compiled src/smtp_util.erl
Compiled src/mimemail.erl
Compiled src/socket.erl

gen_smtp>werl -pa ebin

shijiang1130

1. 9> gen_smtp_client:send({"chinaunix@163.com",["cuer@qq.com"],"Subject: testing\r\nFrom:erlang \r\nTo: To Erlanger\r\n\r\nThis is the email body"},[{relay,"smtp.163.com"},{username,"cu@163.com"},{tls,never},{password,"uuuu"}]).

复制代码

shijiang1130

当然他也是服务端，你可以用来架设email server

shijiang1130

1.        
   
2.         -module(simple_smtp_sender).
   
3. 
   
4.         -export([send/4, send/5, send/6, send/7]).
   
5. 
   
6.         send(To, From, Subject, Message)->
   
7.                 Server="localhost",
   
8.                 send(To, From, Subject, Message, Server).
   
9. 
   
10.         send(To, From, Subject, Message, Server)->
    
11.                 PortNo=25,       
    
12.                 send(To, From, Subject, Message, Server, PortNo).
    
13. 
    
14.         send(To, From, Subject, Message, Server, PortNo)->
    
15.                 {ok, Hostname}=inet:gethostname(),
    
16.                 send(To, From, Subject, Message, Server, PortNo, Hostname).
    
17. 
    
18.         send(To, From, Subject, Message, Server, PortNo, LocalDomain)->
    
19.                 {ok,Sock}=gen_tcp:connect(Server,PortNo,[{active, false}]),
    
20.                 {ok, "220"++_}=gen_tcp:recv(Sock, 0),
    
21.                 gen_tcp:send(Sock, lists:append(["HELO ", LocalDomain, [13, 10]])),
    
22.                 {ok, "250"++_}=gen_tcp:recv(Sock, 0),
    
23.                 gen_tcp:send(Sock, lists:append(["MAIL FROM: ", From, [13, 10]])),
    
24.                 {ok, "250"++_}=gen_tcp:recv(Sock, 0),
    
25.                 gen_tcp:send(Sock, lists:append(["RCPT TO: ", To, [13, 10]])),
    
26.                 {ok, "250"++_}=gen_tcp:recv(Sock, 0),
    
27.                 gen_tcp:send(Sock, lists:append(["DATA", [13, 10]])),
    
28.                 {ok, "354"++_}=gen_tcp:recv(Sock, 0),
    
29.                 gen_tcp:send(Sock, lists:append(["Subject: ", Subject, [13, 10],[13, 10]])),
    
30.                 gen_tcp:send(Sock, lists:append([Message])),
    
31.                 gen_tcp:send(Sock, lists:append([[13, 10],".",[13, 10],[13, 10]])),
    
32.                 {ok, "250"++_}=gen_tcp:recv(Sock, 0),
    
33.                 gen_tcp:send(Sock,lists:append("QUIT", [13, 10])),
    
34.                 {ok, "221"++_}=gen_tcp:recv(Sock, 0),
    
35.                 gen_tcp:close(Sock),
    
36.                 ok.       
    
37.        

复制代码

这是一个简易的 http://www.hccp.org/simple-smtp-sender.html

shijiang1130

谁要知道发送带附件的，就告诉我:wink:

arserangel

关于发邮件的，网上有现成的组件，我记得在百度空间里有，有一个 erlang 高手写的。我找一下。

arserangel

地址：https://github.com/Leptune/erlang_email

作者的主页：http://hi.baidu.com/neptune_moon/item/f50a01c18de85122a1b50ab1

shijiang1130

arserangel 发表于 2014-09-12 23:06
地址：https://github.com/Leptune/erlang_email

作者的主页：http://hi.baidu.com/neptune_moon/item/f ...

谢谢