Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [DELPHI] smtp клиент (https://forum.antichat.xyz/showthread.php?t=137175)

Ant1Player 25.08.2009 01:33
[DELPHI] smtp клиент
 
что делаю не так?

PHP код:
begin 
   IdSMTP1.Host:='smtp.mail.ru';
   IdSMTP1.Port:=25;
  IdSMTP1.Username:='io';
   IdSMTP1.Password:='*****';
   IdSMTP1.AuthenticationType:=atLogin;
   with IdMessage1 do
      begin
        Body.Assign(Edit1.text);
        From.Text := 'ddd';
        Recipients.EMailAddresses := 'dd';
        Subject := '==';

        end;

      IdSMTP1.Connect;
         try
      showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó');
      IdSMTP1.Send(IdMessage);
         finally
           IdSMTP1.Disconnect;
         end; 
ошибка в строчке
PHP код:
 Body.Assign(Edit1.text); 

Dosia 25.08.2009 01:48
Body.Add(Edit1.text);

Когда то давно кодил: пример посылки письма с аттачем

Параметры только нужные передай функции SendMail

RumShun 25.08.2009 04:48
Цитата:
Body.Assign(Edit1.text);
у тебя типы не совподают там не string, а TStrings
Код:
var
 bodytext: TStringList;
begin
 bodytext:=TStringList.Create;
 bodytext.Add(Edit1.text);
 IdSMTP1.Host:='smtp.mail.ru';
 IdSMTP1.Port:=25;
 IdSMTP1.Username:='io';
 IdSMTP1.Password:='*****';
 IdSMTP1.AuthenticationType:=atLogin;
 with IdMessage1 do
  begin
  IdMessage1.Body.Assign(bodytext);
  From.Text := 'ddd';
  Recipients.EMailAddresses := 'dd';
  Subject := '==';
  end;
 IdSMTP1.Connect;
 try
  showmessage('I?iecioei iiaee??aiea e na?aa?o');
  IdSMTP1.Send(IdMessage);
 finally
  IdSMTP1.Disconnect;
 end;

Ant1Player 25.08.2009 07:39
Спасибо! но теперь компилиться нормально а при нажатии на кнопку отправки пишит
Syntactically invalid HELO argument(s)
Что это может быть?

e4key 25.08.2009 08:28
В delphi не шарю, но серверу нужно скзазать helo :)

IdSMTP1.Helo;

если не ошибаюсь, то сказать надо сразу после connect'a.

!nik! 25.08.2009 14:11
Цитата:
Сообщение от e4key
В delphi не шарю, но серверу нужно скзазать helo :)

IdSMTP1.Helo;

если не ошибаюсь, то сказать надо сразу после connect'a.
Да-да... вроде надо)

Ant1Player 25.08.2009 18:19
написал
IdSMTP1.Helo;
пишит
[Error] Unit3.pas(50): Undeclared identifier: 'Helo'

Пошарился в гугле все примеры без этой строчки...
как же ее правильно написать..

Vlad3d 25.08.2009 18:31
[Error] Unit3.pas(50): Undeclared identifier: 'Helo'
эта ошибка потому что нет "idSTMP1.Helo"
idHttp1.Send('helo') или как то так...не помню

Ant1Player 25.08.2009 18:39
а при idHttp1.Send('helo')
[Error] Unit3.pas(61): Incompatible types: 'TIdMessage' and 'String'

Ant1Player 25.08.2009 18:49
ладно, спасибо всем, понел что это тупит mail.ru на рамблере не просит не каких хело..


Время: 18:21
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице