[EleGant]

Привет всем! Может кто знает какой нибудь рабочий код, что бы отправить TXT из директории C:/file.txt на e-mail 123@321.net
?
Искал коды, но ничего рабочего не нашел

[lmikle]

2 варианта.
1. Использовать Indy: TidSMTPClient, TidMessage
2. Использовать SimpleMAPI.
Примеров в интернете полно.

[EleGant]

Код:

begin
   IdSMTP1.Host:='smtp.mail.ru'; // сервер исходящей почты (SMTP)
   IdSMTP1.Port:=25;    // порт SMTP сервера
   IdSMTP1.Username:='login';  // ваш логин
   IdSMTP1.Password:='password';     // ваш пароль
   IdSMTP1.Authenticate;
       with IdMessage1 do
               begin
               Body.Assign(Memo1.Lines);    // текст письма
               From.Text := '...@mail.ru'; //  ваш e-mail адрес
               Recipients.EMailAddresses := '....@mail.ru';     // адрес получателя
               Subject := 'Delphicode.ru';  // тема сообщения
               end;

IdSMTP1.Connect;
       try
         showmessage('Conneted');
         IdSMTP1.Send(IdMessage1);
       finally
         IdSMTP1.Disconnect;
       end;

end;

Пробовал этот код, но выдает ошибку что то про хост...

[EleGant]

На данный момент у меня такой код:

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
  TIdAttachment.Create(IdMessage1.MessageParts, 'c:\text.txt');
   IdSMTP1.Host:='http://smtp.site.ru'; // сервер исходящей почты (SMTP)
   IdSMTP1.Port:=25;    // порт SMTP сервера
   IdSMTP1.Username:='****';  // ваш логин
   IdSMTP1.Password:='****';     // ваш пароль
   IdSMTP1.Authenticate;
       with IdMessage1 do
               begin
               Body.Assign(Memo1.Lines);    // текст письма
               From.Text := 'name@site.ru'; //  ваш e-mail адрес
               Recipients.EMailAddresses := 'name1@site.ru';     // адрес получателя
               Subject := 'test1';  // тема сообщения
               end;

IdSMTP1.Connect;
       try    
         showmessage('Conneted');
         IdSMTP1.Send(IdMessage1);
       finally
         IdSMTP1.Disconnect;
       end;    end;

Выдает ошибку...что то про Socket 11004

[EleGant]

Кто знает,можете подсказать?
Когда шлю через МАЙЛ.ру то пишет ошибку и дает адрес странице на майле. на которой написана про SMTP-авторизацию..все правильно указываю но успехов нету

[M.A.D.M.A.N.]

попробуй без

Код:

IdSMTP1.Authenticate;

//---добавил 100500 лет спустя---//

Код:

idSMTP.host:='smtp.mail.ru'; // без http

[EleGant]

Большое спасибо! Помогло! Выручил!

[EleGant]

Выдал ошибку

Сокет Ерор 10060
Конектион тайм аут

Скинул второму другу у него другая ошибка

Инвалид Helo name
(see RFC 2821 4.1.1.1)

[EleGant]

Разве никто не знает?
Воощем на данный момент проблема в след.:
У меня работает программа нормально.
У одного друга пишет "Тайм Аут"
А у второго выдает другую ошибку.

[EleGant]

На счет Тайм Аута все ясно..просто у друга инет был через прокси...поэтому не коннектился

[hkdkest]

написано смотри RFC 2821 4.1.1.1, не проще там посмотреть? )

[EleGant]

Вот знать бы мне что это ещё такое и где смотреть

[Rat]

http://rfc-editor.org/

[Только учусь]

Сообщение от EleGant

TIdAttachment.Create(IdMessage1.MessageParts, 'c:\text.txt');

А что значит эта строка?

[Только учусь]

Сообщение от EleGant

Кто знает,можете подсказать?
Когда шлю через МАЙЛ.ру то пишет ошибку и дает адрес странице на майле. на которой написана про SMTP-авторизацию..все правильно указываю но успехов нету

та же самая проблема ((((

всё нормально, почта уходит. А вот файл прицепить не могу, TIdAttachment.Create(IdMessage1.MessageParts, 'c:\text.txt');, ругается, Undeclared Identifier "TIdAttachment". Установлен Indy10.