掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メインのメーラーの受信の邪魔をせずに、送られてくるメールのタイトル、アドレス、受信日時のみを取得するには (ID:35902)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさんありがとうございます、 とても助かります^^。 早速組み込んでみました。 こちらの方でも、Msg.Headers.Strings[6]を使った取得方法が判りました。 こちらのは何故か、indyのヘルプは英文でした… 正確なバージョンは、Delphi 7 Studio Professionalでした^^; 同じDelphi7Proでも違うんですね…。 試しの試作段階ですが、以下まで出来上がりました。 後はデータベースを組んで、処理を作ってくだけです。 こんなに早くメイン部分が出来上がるとは思いませんでした^^; それではありがとうございましたｍ（＿＿）ｍ。 procedure TForm1.Button1Click(Sender: TObject); var Msg : TIdMessage; i : integer; begin memo1.Lines.Clear; IdPOP31.Host := 'Pop3アドレス'; IdPOP31.Port := 110; IdPOP31.Username := 'ユーザーネーム'; IdPOP31.Password := 'パスワード'; IdPOP31.Connect; for i := 1 to IdPOP31.CheckMessages do begin Msg := TIdMessage.Create(Self); IdPOP31.Retrieve(i, Msg); Memo1.Lines.Add(Msg.Subject{タイトル}); Memo1.Lines.Add(Msg.From.Text{送信者}); Memo1.Lines.Add(inttostr(IdPOP31.CheckMessages{未開封メール数})); Memo1.Lines.Add(Msg.Headers.Strings[6]{送信日時}); Memo1.Lines.Add(datetostr(msg.Date{送信日})); end; IdPOP31.Disconnect; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.