Нужно ли очищать SMTP-сервер? Если да, то как это сделать?

Question

Я некоторое время пытался отправить форму электронной почты в программе на Haskell, пытался использовать библиотеку HaskellMime или что-то подобное, но не получилось.
Недавно я установил HaskellNet и попытался использовать модуль Haskellnet.SMTP.Я попытался отправить электронное письмо с помощью команды sendMail и получил «ошибка пользователя (ошибка sendMail)».Я полагаю, это потому, что SMTP-серверу, который я использовал, требовалась аутентификация.
Я взглянул на исходный код 'sendMail' и в итоге написал следующую простую основную запись: http://hpaste.org/47841
Я проверил каждую команду 'sendCommand' и послеКоманда AUTH Я получаю «Auth success» с SMTP-сервера и 250 кодов от других команд, как и ожидалось в исходном коде «sendMail».
Проблема в том, что в моем почтовом ящике нет писем, поэтомуЧто я делаю неправильно?Единственное, о чем я могу думать, это то, что почта находится где-то в очереди в исходящем списке SMTP, и мне нужно очистить SMTP-сервер, но это не является частью кода «sendMail», так что мне интересно ... Любая помощь могла быБудьте благодарны за , потому что я никогда не думал, что будет так сложно отправить электронное письмо: /
PS Я использую те же самые настройки на своем телефоне, чтобы отправлять электронную почту с этим SMTP-сервером, то же самое "smtp.sfr.fr ", тот же идентификатор (весь адрес), тот же пароль;и это работает: я могу отправлять письма со своего телефона.
Заранее спасибо за помощь.

Answer 1

Хотя я не могу комментировать ваше использование HaskellNet, я добился большого успеха, используя SMTPClient , который вы можете получить с помощью cabal install SMTPClient.

, который я включилпример пакета, чтобы дать вам представление о том, что такое использование библиотеки:

import Network.SMTP.ClientSession
import Network.SMTP.Client
import Network.Socket
import System.Time
import System.IO
import Data.Bits
import Data.IORef

myDomain = "example.com"
smtpHost = "hubert.blacksapphire.com"    -- <-- Your SMTP server here

-- This will send the author an email.  I don't mind!
main = do
    now <- getClockTime
    nowCT <- toCalendarTime now
    let message = Message [
                From [NameAddr (Just "Mr. Nobody") "nobody@example.com"],
                To   [NameAddr (Just "Stephen Blackheath") "unprintable.distances.stephen@blacksapphire.com"],
                Subject "I'm using SMTPClient!",
                Date nowCT
            ]
            ("Dear Sir,\n"++
             "It has come to my attention that this is an email.\n"++
             "Yours sincerely,\n"++
             "Mr. Nobody\n")
    addrs <- getAddrInfo Nothing (Just smtpHost) Nothing
    let SockAddrInet _ hostAddr = addrAddress (addrs !! 0)
        sockAddr = SockAddrInet (fromIntegral 25) hostAddr
    putStrLn $ "connecting to "++show sockAddr
    sentRef <- newIORef []
    sendSMTP' (hPutStrLn stderr) (Just sentRef) myDomain
        sockAddr [message]
    statuses <- readIORef sentRef
    -- If no exception was caught, statuses is guaranteed to be
    -- the same length as the list of input messages, therefore head won't fail here.
    case head statuses of
        Nothing     -> putStrLn "Message successfully sent"
        Just status -> putStrLn $ "Message send failed with status "++show status