|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не работает INDY10 отправка почты
Добрый день!
Помогите, уже не знаю что и делать! Не работает 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 Последний раз редактировалось Admin, 23.06.2010 в 14:59. |
#2
|
||||
|
||||
помоему вложения нужно добавлять так:
Код:
message.MessageParts.Add.FileName := 'с:\file.txt'; Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel Последний раз редактировалось Marvel, 23.06.2010 в 15:26. |
#3
|
|||
|
|||
Все равно не работает
При компиляции проходит, а при выполнении ошибка:
access violation at address 004061A2 in module Project1 Что-то не так. По-моему это свойство используется при приеме и разборе вложений входящей почты |