Добрый день!
Помогите, уже не знаю что и делать!
Не работает 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;
Admin: Пользуемся тегами!
Все работает без вложеного файла, а только включаеш строку
TIdAttachmentFile.Create( Message.MessageParts, 'c:\файл.расширение' );
выдается ошибка
[DCC Error] Unit1.pas(184): E2066 Missing operator or semicolon
Такое как у команды есть только один параметер
Как присоединить файл к письму?
CodeGear™ Delphi® 2009