TIdSMTPでoverSSL/TLS実行時、エラーを出さないようにするには？ (ID:31097)

名前

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

本文

会員ページなので見てませんが、
gMailでチェックしました。
Indy10です。
IdSMTP.IOHandlerの行が変な所にあるんでないですか？
ちなみに、IdSMTPのSSLは初めてなので、
これであってるか知りません。(gMailはSSL使わなくても通るっぽいす)
一応動いているっぽいです。

IdSSLOpenSSL,  IdSMTP, IdSSL, IdIOHandlerStack,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  IdSMTP: TIdSMTP;
  MailHStack : TIdIOHandlerStack ;
  host, subject, mailto, from, body:String;
begin
  IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdSSLIOHandler.ConnectTimeOut := 5000;
  IdSMTP := TIdSMTP.Create(nil);
  IdSMTP.IOHandler := IdSSLIOHandler;
  IdSMTP.Port      := 465;
  IdSMTP.UseTLS    := utUseExplicitTLS;
  IdSMTP.AuthType  := atSASL;
  IdSMTP.UseEhlo   := True;
  IdSMTP.Host      := 'smtp.gmail.com';
  IdSMTP.Username  :='xxxxxx@gmail.com';
  IdSMTP.Password  :='xxxxxx';

host    := 'smtp.gmail.com';
  subject := 'SSL test';
  mailto  := 'xxx@xxx.xx.xx';
  from    := 'xxxxx@gmail.com.';
  body    := 'mail body';
  IdSMTP.QuickSend(host, subject, mailto, from, body);
  IdSMTP.Free;
  IdSSLIOHandler.Free;
end;

余談ですが、さっきまでパスワードを入れていたコードをコピペ投稿するのは勇気が要りますね…
このBBS削除機能無いし。

←解決時は質問者本人がここをチェックしてください。

戻る