AVG E-mail scanner っていうコンポーネントが動いているため、メールがうまく送れなかったよう。
ネットで設定法を検索してみたけど、よくわからん。
とりあえず、ウイルス検出には影響がないようなので、外してみたら、メール送信がうまくいった。
AVGの設定は、まあ、後回しということで。
メール送信のサンプルは、こんな感じ。
IndyコンポーネントのIdSmtpを使っている。
host := edtHost.Text ;
subject := jconvert.CreateHeaderString2(edtSubject.Text) ;
mailto := edtToMail.Text ;
from := jconvert.CreateHeaderString2(edtFromName.Text);
body := jconvert.ConvertJCode(memBody.Text, JIS_OUT);
IdSmtp.QuickSend(host, subject, mailto,from,body);
ShowMessage(‘メール送信を終わりました。’);