haskell/haskellnet-ssl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update sample code to use doSMTPSTARTTLS

Browse Source
This commit is contained in:
Daniel P. Wright 2013-08-28 08:14:54 +09:00
parent a5e240859c
commit ecd9cf1651
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/gmail.hs
View File

@ -27,11 +27,9 @@ imapTest = do
B.putStrLn msgContent B.putStrLn msgContent
logout c logout c
smtpTest = do smtpTest = doSMTPSTARTTLS "smtp.gmail.com" $ \c -> do
c <- connectSMTPSTARTTLS "smtp.gmail.com"
sendCommand c $ AUTH PLAIN username password sendCommand c $ AUTH PLAIN username password
sendMail username [recipient] mailContent c sendMail username [recipient] mailContent c
closeSMTP c
where mailContent = subject `B.append` body where mailContent = subject `B.append` body
subject = "Subject: Test message\r\n\r\n" subject = "Subject: Test message\r\n\r\n"
body = "This is a test message" body = "This is a test message"