SMTP,SSL認証をするには？ (ID:35920)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >過去ログにさん 大変申し訳ありません。 検索したら見つかりました。 しかし、それを参考にしてコードを書き直して実行してみたのですが、「Connection Closed Gracefully 」エラーが出て送信できません。 この例外が余分な例外ということも知っていますが、メールが送信されていないので何かしら引っかかってるのかと思います。 https://www.petitmonte.com/bbs/answers?question_id=6313 これを参考にコードを書き換えました。 ----- SMTP := TIdSMTP.Create(nil); SMTP.Host := 'smtp.gmail.com'; SMTP.Port:=587; SMTP.Username := '(username)@gmail.com'; // UserName SMTP.Password:= '(pass)'; // Password SSL := TIdSSLIOHandlerSocketOpenSSL.Create; SSL.Host := SMTP.Host; SSL.Port := SMTP.Port; SSL.Destination := SSL.Host + ':' + IntToStr(SSL.Port); SMTP.IOHandler := SSL; SMTP.UseTLS := utUseExplicitTLS; SMTP.Connect; showmessage('connect:suc'); SMTP.QuickSend('smtp.gmail.com', 'sub', '(to)', '(from)', 'test'); showmessage('send:suc'); -----