掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メールを送信するには？ (ID：36393)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
参考になれば・・・ 自分の場合のコードです。 環境はDelphi7Pro WinXPです。 Indyは10に更新しています。 因みに自分も、ここの過去ログで実装出来ました＾＾。 IdMessage1を一つ配置します。 こちらでは、送信のみならjcoonvartは使用せずに送信できました。 文字化けするとの過去ログもあったので、何ともいえませんが・・・ procedure TForm1.Button4Click(Sender: TObject); var subject, from, mailto, body: string; msg: TIdMessage; IdSMTP: TIdSMTP; begin //IdSMTPのプロパティを設定しておく IdSMTP := TIdSMTP.Create(nil); IdSMTP.Port := 587; IdSMTP.Host := 'smtpアドレス'; IdSMTP.Username := 'ユーザー名'; IdSMTP.Password := 'パスワード'; subject := 'タイトル'; from := '送信元アドレス'; mailto := '送信先アドレス'; body := memo1.Lines.Text; msg := TIdMessage.Create(IdSmtp); try msg.Subject := subject; msg.Recipients.EMailAddresses := mailto; msg.From.Text := from; msg.Body.Text := body; msg.ContentType := 'text/plain'; IdSmtp.Connect; IdSmtp.Send(msg); IdSmtp.Disconnect ; finally msg.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.