忍者ブログ

ゆるいSEの小ネタ集

ゆるキャラ好きのITエンジニアが書くTips。 ゆるキャラ命なSEのIT徒然草 https://itmagic.hatenablog.com/

[Delphi]メール送信

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

コメント

ただいまコメントを受けつけておりません。

[Delphi]メール送信

■基礎
・メール送信には、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', '明日は忘年会');
PR

コメント

ただいまコメントを受けつけておりません。

プロフィール

HN:
ゆるキャラ命
性別:
非公開

P R