Provide a generic Erlang SMTP server framework that can be extended via callback modules in the OTP style. A pure Erlang SMTP client is also included. The goal is to make it easy to send and receive email in Erlang without the hassle of POP/IMAP. This is not a complete mailserver - although it includes most of the parts you'd need to build one.
The SMTP server/client supports PLAIN, LOGIN, CRAM-MD5 authentication as well as STARTTLS and SSL (port 465).
Also included is a MIME encoder/decoder, sorta according to RFC204{5,6,7}.
IPv6 is also supported (at least serverside).
I (Vagabond) have had a simple gen_smtp based SMTP server receiving and parsing copies of all my email for several months and its been able to handle over 100 thousand emails without leaking any RAM or crashing the erlang virtual machine.
- Andrew Thompson (andrew AT hijacked.us)
- Jack Danger Canty (code AT jackcanty.com)
- Micah Warren (micahw AT lordnull.com)
- gen_smtp is used to provide the email functionality of OpenACD
- gen_smtp will be used as both the SMTP server and SMTP client for Zotonic as of version 0.7
- Chicago Boss uses gen_smtp for its mail API.
- Gmailbox uses gen_smtp to provide a free email forwarding service.
If you'd like to share your usage of gen_smtp, please contact me.
Here's an example usage of the client:
gen_smtp_client:send({"[email protected]", ["[email protected]"],
"Subject: testing\r\nFrom: Andrew Thompson \r\nTo: Some Dude \r\n\r\nThis is the email body"},
[{relay, "smtp.gmail.com"}, {username, "[email protected]"}, {password, "mypassword"}]).
The From and To addresses will be wrapped in <>s if they aren't already,
TLS will be auto-negotiated if available (unless you pass {tls, never}) and
authentication will by attempted by default since a username/password were
specified ({auth, never} overrides this).
If you want to mandate tls or auth, you can pass {tls, always} or {auth, always} as one of the options. You can specify an alternate port with {port, 2525} (default is 25) or you can indicate that the server is listening for SSL
connections using {ssl, true} (port defaults to 465 with this option).
You may wish to configure DKIM signing RFC6376 of outgoing emails for better security. To do that you need public and private RSA keys, which can be generated by following commands:
openssl genrsa -out private-key.pem 1024
openssl rsa -in private-key.pem -out public-key.pem -puboutTo send DKIM-signed email:
{ok, PrivKey} = file:read_file("private-key.pem"),
DKIMOptions = [
{s, <<"foo.bar">>},
{d, <<"example.com">>},
{private_key, {pem_plain, PrivKey}}]}
%{private_key, {pem_encrypted, EncryptedPrivKey, "password"}}
],
SignedMailBody = \
mimemail:encode({<<"text">>, <<"plain">>,
[{<<"Subject">>, <<"DKIM testing">>},
{<<"From">>, <<"Andrew Thompson <[email protected]>">>},
{<<"To">>, <<"Some Dude <[email protected]>">>}],
[],
<<"This is the email body">>},
[{dkim, DKIMOptions}]),
gen_smtp_client:send({"[email protected]", ["[email protected]"], SignedMailBody}, []).Don't forget to put your public key to foo.bar._domainkey.example.com TXT DNS record as smth like
v=DKIM1; g=*; k=rsa; p=MIGfMA0GCSqGSIb3DQEBA......
See RFC6376 for more details.
gen_smtp ships with a simple callback server example, smtp_server_example. To start the SMTP server with this as the callback module, issue the following command:
gen_smtp_server:start(smtp_server_example).
gen_smtp_server starting at nonode@nohost
listening on {0,0,0,0}:2525 via tcp
{ok,<0.33.0>}
By default it listens on 0.0.0.0 port 2525. You can telnet to it and test it:
^andrew@orz-dashes:: telnet localhost 2525 [~] Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. 220 localhost ESMTP smtp_server_example EHLO example.com 250-orz-dashes 250-SIZE 10485670 250-8BITMIME 250-PIPELINING 250 WTF MAIL FROM: [email protected] 250 sender Ok RCPT TO: [email protected] 250 recipient Ok DATA 354 enter mail, end with line containing only '.' Good evening gentlemen, all your base are belong to us. . 250 queued as #Ref<0.0.0.47> QUIT 221 Bye Connection closed by foreign host.
You can configure the server in general, each SMTP session, and the callback module, for example:
gen_smtp_server:start(smtp_server_example, [[{sessionoptions, [{allow_bare_newlines, fix}, {callbackoptions, [{parse, true}]}]}]]).
This configures the session to fix bare newlines (other options are 'strip', 'true' and 'false', false rejects emails with bare newlines, true passes them through unmodified and strip removes them) and tells the callback module to run the MIME decoder on the email once its been received. The example callback module also supports the following options; relay - whether to relay email on, auth - whether to do SMTP authentication and parse - whether to invoke the MIME parser. The example callback module is included mainly as an example and are not intended for serious usage. You could easily create your own callback options.
You can also start multiple SMTP listeners at once by passing more than 1 configuration:
gen_smtp_server:start(smtp_server_example, [[], [{protocol, ssl}, {port, 1465}]]).
This starts 2 listeners, one with the default config, and one with the default config except that its running in SSL mode on port 1465.
You can connect and test this using the gen_smtp_client via something like:
gen_smtp_client:send({"[email protected]", ["[email protected]"], "Subject: testing\r\nFrom: Andrew Thompson \r\nTo: Some Dude \r\n\r\nThis is the email body"}, [{relay, "localhost"}, {port, 1465}, {ssl, true}]).
If you want to listen on IPv6, you can use the {family, inet6} and {address, "::"} options to enable listening on IPv6.
If you want, you can connect to a live instance at mail.cataclysm-software.net (its also the MX record for cataclysm-software.net). Its listening on both IPv4 and v6.