안녕하세요.

지금 거의 제정신이 아닙니다.
'ASPQmail'를 사용해서 개발하고 있는데...
어찌되는지 이해가 안가는군요.

Function Sending(UName: String; Email: String):Boolean;
var
  Mailer: OleVariant;

  HTMLFile: String;
  StrHTML: String;
  StrSubject: String;
  StrFromName: String;
  StrFromAddress: String;
  StrRemoteHost: String;
begin
  try
    with form3 do begin
      HTMLFile := Edit1.Text;
      StrSubject := Edit2.Text;
      StrFromName := Edit3.Text;
      StrFromAddress := Edit4.Text;
      StrRemoteHost := Edit5.Text;

      if CheckBox2.Checked then begin
        StrSubject := UName + ' ' + StrSubject;
      end;
    end;

    StrHTML := Change_String(HTMLFile); //HTML 화일을 받아옴.

    Mailer := CreateOleObject('SMTPsvg.Mailer'); //SMTP객체생성
    Mailer.Subject := StrSubject;  //제목
    Mailer.FromName := StrFromName; //보내는 사람
    Mailer.FromAddress := StrFromAddress; //보내는 사람 주소
    Mailer.RemoteHost := StrRemoteHost; //임시 SMTP 서버
    Mailer.ContentType := 'text/html';
    Mailer.AddRecipient(UName,EMail); //받는 사람
    Mailer.BodyText := StrHTML; //본문 내용
    Mailer.SendMail; //보내기

    Result := True;
  except
    on E:Exception do begin
      ShowMessage(E.Message);
      Result := False;
    end;
  end;
end;

위에 코드를 ADOQuery와 함께 연동해서 사용합니다.
DB에서 하나씩 SMTP로 보내지요.

보내고 Log File에는 받는 사람의 이름과 주소를
잘 저장을 합니다. 하지만, 테스트를 해보면 맨처음 한 사람에게만
메일이 가고 그 다음 사람부터는 못 받더군요.

제 생각에는 객채를 생성 후 처음만 동작하고,
그 다음부터는 동작을 못하는 것 같습니다.

'ASPQmail' 제작사의 사이트에는 VB에 대해 기준해서
설명이 되어있지만, 델파이에 대한 설명이 없더군요.

혹시, 아시거나 이와 비슷한 경험을 하신분은 도움을 좀 주세요.
부탁드립니다.