[alex2000]

Добрый день!
Помогите, уже не знаю что и делать!

Не работает INDY10 отпрака почты
Использую IDSMTP и IDMESSAGE

По форумам гуляет пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

IdSMTP1.Host := 'Host'; IdSMTP1.Username :='UserName'; IdSMTP1.Password:='Password'; Message := TIdMessage.Create( nil ); try Date := Now; message.Body := Memo1.Lines; message.From.Text := 'From'; message.Recipients.EMailAddresses := 'EMailAddresses '; message.Subject := 'Subject'; message.From.Name := 'Name'; message.From.Address := 'Adress@adr.ru'; TIdAttachmentFile.Create( Message.MessageParts, 'c:\файл.расширение' ); IdSMTP1.Connect; try IdSMTP1.Send(Message); finally IdSMTP1.Disconnect; end; finally FreeAndNil( Message ); end;

Admin: Пользуемся тегами!

Все работает без вложеного файла, а только включаеш строку
TIdAttachmentFile.Create( Message.MessageParts, 'c:\файл.расширение' );

выдается ошибка
[DCC Error] Unit1.pas(184): E2066 Missing operator or semicolon
Такое как у команды есть только один параметер
Как присоединить файл к письму?

CodeGear™ Delphi® 2009