PHP DM Gate v0.9 » Не работает INDY10 отправка почты

alex2000 (23.06.10 16:52) [0]

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

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

По форумам гуляет пример:
Код:
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;

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

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

версия: CodeGear™ Delphi® 2009

<Цитата>
Paxa © (25.06.10 12:51) [1]

Эта ошибка говорит, что пропущена точка с запятой в конце строки 184

<Цитата>
Anatoly Podgoretsky © (25.06.10 13:14) [2]

Огрызок недостаточной длины, и неизвестно какая строка имеет номер 184

<Цитата>
Anatoly Podgoretsky © (25.06.10 13:36) [3]

Вот совсем другой пример, может поможет.

EddieShipman:

var
idAttach: TidAttachment;
idText1: TidText;
idText2: TidText;
p: TidMessageParts;
slBody: TStringList;
begin
p := idMessage1.MessageParts;
slBody := TstringList.Create;
try
// Load slBody with your HTML text...
slBody.Add('<html>');
slBody.Add('<head>');
slBody.Add('</head>');
slBody.Add('<body>');
slBody.Add(' Here is the image: ');
slBody.Add('<img src="cid:sm101yellow.jpg" />');
slBody.Add('</body>');
slBody.Add('</html>');

idText1 := TidText.Create(p, slBody);
idText1.ContentType := 'text/html';
idText2 := TidText.Create(p);
idText2.ContentType := 'text/plain';
idText2.Body.Text := '';

idAttach := TidAttachment.Create(p, 'c:\sm101yellow.jpg');
idAttach.ContentType := 'image/jpeg';
idAttach.ContentDisposition := 'inline';
idAttach.ExtraHeaders.Values['content-id'] := 'sm101yellow.jpg';
idMessage1.Body.Assign(slBody);
idAttach.DisplayName := 'sm101yellow.jpg';
idMessage1.ContentType := 'multipart/mixed';
idSMTP1.Connect;
idSMTP1.Send(idMessage1);
finally
idSMTP1.Disconnect;
slBody.Free;
Showmessage('done');
end;
end;

<Цитата>
Sergo (19.10.10 13:22) [4]

не вводите в заблуждение Anatoly Podgoretsky людей. TidText нет в indy 10

<Цитата>
demin_as (05.04.11 12:35) [5]

Удалено модератором
Примечание: спам

<Цитата>