envoyer un mail via gmail
Bonjour,
J'ai déjà effectué des recherches sur le net, mais ce n'est pas un sujet trés populaire.
Comme indiqué dans le titre, je voudrais envoyer un mail via gmail.
Cependant le service mail de google n'accepte que des connection via ssl.
Ok donc première tentative je me connecte, je balance un STARTTLS et je je me mets en ssl. Deuxieme tentative, je me connecte directement en ssl.
Pour l'instant j'en suis nul part...
Mes codes:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
import Network
import Network.TLS
import Network.TLS.Extra
import System.IO
import Text.Printf
import Crypto.Random
import qualified Data.ByteString as B
import Control.Monad (forever)
serv :: String
serv="smtp.gmail.com"
port :: String
port="465"
main=test2
params=TLSParams {pConnectVersion=SSL3
, pCiphers=ciphersuite_all
}
test2=do g <- newGenIO :: IO SystemRandom
handle <- connectionClient serv port params g
forever $ (recvData handle) >>= B.putStrLn |
Grosso modo j'essaie de me co directement en ssl.
Mais ça ne marce pas. Quelqu'un aurait une solution, une piste, quoi que ce soit!!!!?