メール送信

indy9を使えば、簡単にメール送信できる。
クジラ飛行机さんのページに詳細サンプルがある。
jconvertの入手先はましぇ〜りのコンパイルさん。

QuickSendでのメール送信は以下のとおり。
FROM欄は空白があるとうまく動かない様子。
フォームにidSMTP1を配置、uses節にjconvert.pasを追加
==============================================================================
procedure TfrmSendMail.btnSend1Click(Sender: TObject);
var
host, subject, mailto, from, body: string;
begin
//----------------------------------------------------
// 日本語のエンコード処理

// ヘッダーのデコード( CreateHeaderString2 )
host := edtHost.Text ;
subject := jconvert.CreateHeaderString2(edtSubject.Text) ;
mailto := edtToMail.Text ;
from := jconvert.CreateHeaderString2(edtFromName.Text);

// メール本文は、JISコードに変換するだけでよい
body := jconvert.ConvertJCode(memBody.Text, JIS_OUT);

//----------------------------------------------------
// メールの送信

IdSmtp.QuickSend(host, subject, mailto, from, body);

ShowMessage('メール送信を終わりました。');
end;