В TRichEdit тело сообщения, и по клику отправить на нужный адрес.
Где можно достать некомпиленный аналог NMSMTP?

Hello, Teddy!
You wrote on Thu, 12 Feb 2004 08:09:10 GMT:

T> В TRichEdit тело сообщения, и по клику отправить на нужный адрес.
T> Где можно достать некомпиленный аналог NMSMTP?

смотря как отправить.

Если стандартным почтовиком

то вот кусок из

"C:\Program Files\Borland\Delphi6\Objrepos\Win2KApp\"

procedure TWin2kAppForm.FileSend1Execute(Sender: TObject);
var
  MapiMessage: TMapiMessage;
  MError: Cardinal;
begin
  with MapiMessage do
  begin
    ulReserved := 0;
    lpszSubject := nil;
    lpszNoteText := PChar(RichEdit1.Lines.Text);
    lpszMessageType := nil; 
    lpszDateReceived := nil; 
    lpszConversationID := nil; 
    flFlags := 0;
    lpOriginator := nil; 
    nRecipCount := 0;
    lpRecips := nil;
    nFileCount := 0;
    lpFiles := nil; 
  end;

  MError := MapiSendMail(0, Application.Handle, MapiMessage,         
    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
  if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
end;

правда есть какая-то тонкость, с предпоследним параметром MapiSendMail и "The Bat!", щас уже не вспомню но, возможно, MSDN спасет.

Если хочешь отправить средствами VCL или сторонних компонент, то без synapse ( http://www.ararat.cz/synapse/ ) точно не обойтись — он умеет кодировать заголовки и пр.
А сам компонент для работы с SMTP можно выбрать из:
1. TsakSMTP (где взять поищи сам в инете, там же примеры), он наиболее удобен.
2. TIpSMTP — компонент из набора TurboPower Internet Professional (ищи на http://www.sf.net ) — на текущий момент, имхо самые какчественные, особенно документация
3. Компоненты из набора Indy (есть для d5- d7) в данный момент наиболее популярные.

Все вышеперечисленное бесплатно и с исходниками.



With best regards, Alexander Diouzshev-Maltsev.