Как программно отправить письмо на почту?

[remont_it,]

На фотме есть Edit1, Edit2 и Button1 подскажите как программно (по нажатии кнопки) отправить письмо на почту (ххх@mail.ru) с данными введенными в Edit1, Edit2? Забыл добавить программу пишу на C++ Builder 6 или C++ BuilderХЕ2)))

[remont_it,]

Помогите пожалуйста скоро сдавать работу ...(

[Rififi]

реализовать протокол SMTP (или взять готовый)

[remont_it,]

Rififi, а как это реализовать? Можете дать пример?

[Rififi]

remont_it,

C++ send email

[remont_it,]

Rififi, подскажите пожалуйста мне на примере, я просто мало понимаю в этом, и мне мало подскажет та ссылка которую вы мне дали( Можете сделать и скинуть проект программы на эту тему? Поймите правильно я не леньтяй мне и самому интересно но просто нет времени для изучения(

Вот нашел на Delphi но это не совсем то что мне нужно...

Народ ну помогите плзон)))

[Stilet]

Вот из сусеков своих:
Это конечно на Делфи, но по образу и подобию попробуй на Сях писнуть. Все равно компоненты те же.

unit UnitSMTP;

interface
  uses
     IdMessage,  IdAttachmentFile,
  IdCoderHeader,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdExplicitTLSClientServerBase,
  IdMessageClient,
  IdSMTP,  classes, contnrs,  sysutils,
  IdSMTPBase;

type
TMail=class
  public      smtp:TIdSMTP; idm:TIdMessage;
   Files,Body:TStringList;
   Host_,Pass_,Sender_,Recipient_,Subject_,Error:String;
   function Send:Boolean;
   constructor Create;
   destructor Free;
end;
implementation

{ TMail }

constructor TMail.Create;
begin
 Files:=TStringList.Create;
 Body:=TStringList.Create;
 idm:=TIdMessage.Create(nil);  smtp:=TIdSMTP.Create(nil);
end;

destructor TMail.Free;
begin
 Files.Free; Body.Free;   idm.Free;  smtp.Free;
end;

function TMail.Send: Boolean;
var i:integer;
begin
  with idm do begin

   AttachmentEncoding:='MIME';
   with From do begin
        Address := Sender_ 
   end;
   Recipients.EMailAddresses:=Recipient_;
   Subject:=Subject_;
   MessageParts.Clear;
  end;

  for i:=0 to Files.Count-1 do begin
   if FileExists(Files[i]) then
    TIdAttachmentFile.Create(idm.MessageParts,Files[i]);
  end;

  with smtp do begin
   Host:=host_; 
   Username:=Sender_;
   Password:=Pass_;
   AuthType:=satDefault;
   Error:='';
   try
    Connect;
    if Connected then
     Send(idm)
    else Error:='No connected';
    Disconnect();
    Result:=true;
   except
     on e:Exception do begin Error:=e.Message;Result:=false;end;
   end;
   
  end;

end;

end.

Использование:

 with TMail.Create do begin
  Host_:='Какойнить майл.хрю';
  Pass_:='мой пароль';
  Recipient_:='Получатель@майл.хрю';
  Sender_:='Отправитель такая же собака майл.хрю';
  Subject_:='Типо тема';
  Body.Text:='With best regards';
  Files.Text:=AFiles;
  if Send then ShowMessage('Почта отослана') else ShowMessage('Ошибка передачи почты: '+Error);
 end;

AFiles - TStringList с полными путями к файлам.
Используется Инди 10.

[remont_it,]

Я ужасно благодарен но также извиняюсь, а можно исходник)?

[Stilet]

Это он и есть.

[remont_it,]

Нет... я имел ввиду проект, а не текст проекта...