掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IdSMTPでメールを送信するには？ (ID：25092)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでよろしいかと。 肝は、 ・AuthenticationType := atLoginを設定する ・Username := SMTP認証用ユーザIDを設定する ・Password := SMTP認証用パスワードを設定する ・Port := 587に設定する くらいです。 SMTPサーバの設定によっては、もう少し手を加える必要があるかもしれません。 procedure TForm1.btnSendClick(Sender: TObject); var subject, from, mailto, body: string; msg: TIdMessage; begin //IdSMTPのプロパティを設定しておく // AuthenticationType := atLogin // Host := SMTPサーバ // Password := ログインパスワード // Port := 587 // Username := ログインユーザID subject := 'IdSMTP Send Test'; from := 'nishino@i-i-i.jp'; mailto := 'nishino@overs.jp'; body := 'Indy SMTP SEND TEST'; msg := TIdMessage.Create(IdSmtp1); try msg.Subject := subject; msg.Recipients.EMailAddresses := mailto; msg.From.Text := from; msg.Body.Text := body; msg.ContentType := 'text/plain'; IdSmtp1.Connect; IdSmtp1.Send(msg); IdSmtp1.Disconnect ; ShowMessage('送信完了しました。'); finally msg.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.