TIdMessageのOnInitializeISOイベント割り当て (ID:148288)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Indyでメールを送信する自作関数を作成しようと思っています
下記のURLを参考に作成しているのですが、
TIdMessageのOnInitializeISOイベントの割り当て方法が分からなくて悩んでいます
https://ht-deko.com/tech040.html#tech085

ちなみにメール送信関数は1つのユニットに記述しており、
TIdMessageコンポーネントも関数内部で動的にCreateしています
他のアプリからそのユニットをusesする形で再利用することを考えています
上記のURLでの例のようにフォーム上にTIdMessageコンポーネントが配置できれば
いいのですが・・・

// メール送信関数
function ComSendMailWithCC(Host, Subject, Name, From, Mailto, Text: String; Cc: String = ''): Boolean;
const
//*=== メール設定情報 ===*/
  MAIL_CHARSET     = 'UTF-8';      // 文字コード
  MAIL_CONTENTTYPE = 'text/plain'; // コンテンツ種別
  MAIL_ENCODING    = 'BASE64';     // エンコーディング
var
  smtp: TIdSMTP;
  msg : TIdMessage;
begin
//*** 復帰値の初期値を設定する ***/
  Result := True;    // 正常終了

//*** 変数を初期化する ***/
  smtp := nil;
  msg  := nil;

//*** メールを送信する ***/
  try
  try
    //*=== SMTPサーバの接続 ===*/
    smtp := TIdSMTP.Create(nil);
    smtp.Host := Host;
    smtp.Connect;

//*=== メッセージオブジェクトの作成 ===*/
    msg := TIdMessage.Create(smtp);
    msg.OnInitializeISO := ;      // ←？？？ 
    msg.ContentType               := MAIL_CONTENTTYPE;
    msg.CharSet                   := MAIL_CHARSET;
    msg.ContentTransferEncoding   := MAIL_ENCODING;
    msg.Subject                   := Subject;
    msg.From.Name                 := Name;
    msg.From.Address              := From;
    msg.Recipients.EMailAddresses := Mailto;
    msg.CCList.EMailAddresses     := Cc;
    msg.Body.Text                 := Text;

//*=== メール送信 ===*/
    smtp.Send(msg);
  except
    Result := False;    // 異常終了
  end;
  finally
    //*=== メッセージオブジェクトの破棄 ===*/
    if msg <> nil then msg.Free;

//*=== SMTPサーバの切断 ===*/
    if smtp <> nil then
    begin
      smtp.Disconnect;
      smtp.Free;
    end;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る