|
馬鹿な話のついでに・・・
学の無い私は、色々参考にメール送信とやらをやった。
(ありがとうございます)
with IdSMTP do
begin
Host := edtHost.Text;
Username := edtUserName.Text;
Password := edtPass.Text;
end;
try
with IdMsg do
begin
Sender.Text := edtUserName.Text;
Subject := edtSubject.text;
From.Address := jconvert.CreateHeaderString(edtUserName.Text);
From.Name := jconvert.CreateHeaderString(edtFromName.Text);
Subject := jconvert.CreateHeaderString(edtSubject.Text);
Body.SetText(PChar(jconvert.ConvertJCode(memBody.Text,JIS_OUT)));
Recipients.EMailAddresses := edtToMail.Text;
end;
IdSMTP.Connect;
try
IdSMTP.Send(IdMsg);
ShowMessage('多分送れたはず！？);
except
ShowMessage('失敗だよ');
end;
finally
IdSMTP.Disconnect;
end;
簡単じゃん。
あれ、受診したメールの日時が未来日になってるじゃん。
おかしいな・・・
で、また色々調べたらIndy10のバグらしい。
ならば、IdMsg.Date := SysUtils.Date;
これでも駄目じゃん。
ならば
IdMsg.UseNowForDate := False;
こんどは動かんじゃん。(;_;)
|