Sending email with Pharo

on the one hand, the SMTP is pretty low level, on the other hand, there is no magic, no external service to subscribe to or custom protocols.

Attachment would involve creating a MIME-encoded piece of text, couldn't find one quickly by search engine.

sample code, taken from app:

Hello Hilaire.

Zodiac? I used zodiac to send email from contact forms in web sites made with Seaside, and works fine. Although sometimes they go to spam :/

See http://stackoverflow.com/questions/12293670/zodiac-mail-sending-in-pharo-smalltalk

But, instead to use ZdcSecureSMTPClient class>>sendUsingGMailAccount:password:to:message: , I created a slightly modified version of that method, due to the smtp server I use the "from" field in mail message is different to "user" in smtp client. E.g. for "from" [hidden email] the smtp "user" look like user1.mailserver.

This is the method:

*************************

sendServer: server port: port user: user password: password from: from to: to subject: subject body: body
| smtpClient mailMessage |

mailMessage := MailMessage empty.
mailMessage setField: 'from' toString: from.
mailMessage setField: 'to' toString: to.
mailMessage setField: 'subject' toString: subject.
mailMessage body: (MIMEDocument contentType: 'text/plain' content: body).

(smtpClient := ZdcSecureSMTPClient new)
user: user;
password: password.

smtpClient openOnHost: (NetNameResolver addressForName: server) port: port.

^ smtpClient
mailFrom: from to: { to } text: mailMessage text;
quit;
close;
yourself

********************************