■基礎
・メール送信には、TIdSMTPコンポーネントを利用する。
(パレットのIndy Clientsタブ)
・以下をuses句に入れる必要がある
IdSMTP, IdBaseComponent, IdComponent,IdTCPConnection, IdTCPClient,
IdMessageClient
・メール送信にはTIdSMTPコンポーネントのQuickSendメソッドを利用する。
■メール送信サンプル
function SendSampleMail(): boolean;
var
sSmtpSvHost: string;
sSubject: string;
sBody: string;
sMailTo: string;
sMailFrom: string;
begin
try
Result := false;
sSmtpSvHost := 'smtp.test.co.jp'; //SMTPサーバーのドメイン
sSubject := '忘年会のお知らせ'; //件名
sMailTo := 'webmaster@hotmail.com'; //メール送信先
sMailFrom := 'user1@hotmail.com'; //メール送信元
sBody := 'お疲れ様です' + #13 + #10 + '明日は忘年会があります。'; //メール本文
//メール送信
IdSMTP1.QuickSend(sSmtpSvHost, sSubject, sMailTo, sMailFrom, sBody);
ShowMessage('メールを送信しました');
Result := true;
except
on E: Exception do
begin
ShowMessage('メールの送信に失敗しました');
end;
end;
end;
■Tips
□複数のアドレスに送信を行う
送信先アドレスをセミコロンで区切るだけで実現可能。
IdSMTP1.QuickSend('smtpsv1.test.co.jp', '忘年会のお知らせ', 'user1@hotmail.com;user2@hotmail.com', 'fromuser@hotmail.com', '明日は忘年会');