Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.10.02;
Скачать: CL | DM;

Вниз

Разница между TIdAttachment и TIdAttachmentFile   Найти похожие ветки 

 
mefodiy   (2011-06-15 11:02) [0]

В Дельфи 7 был и нормально работал код
lSMTP := TIdSMTP.Create(nil);
lMsg := TIdMessage.Create(lSMTP);
try
 with lMsg do
 begin
    Date                      := Now;
    Subject                   := <Subject>;
    Recipients.EMailAddresses := <Адрес>;                                
    From.Text                 := <Адрес>
    Sender.Text               := <Адрес>
    ContentType               := "text/html";
    Priority                  := mpHighest;
    Body.Add("Text");
 end;
 TIdAttachment.Create(LMsg.MessageParts,<адрес файла>);
 with lSMTP do
 begin
    AuthType := satDefault;
    Host     := "smtp.mail.ru";
    Username := <user name>        
    Password := <password>
    Connect;
    try
      Send(lMsg);
    finally
       Disconnect;
     end;
  end;
except
   ShowMessage("An error occurred while sending the file!");
end;
 FreeAndNil(lMsg);
 FreeAndNil(lSMTP);
end;
В Дельфи 2010 при замене TIdAttachment на TIdAttachmentFile с теми же параметрами почему то содержимое прикрепляемого файла (у меня  это excel файл) включается в ту часть, где содержится собственно само письмо (body),  вместо того, чтобы прикрепится как отдельный файл.
Где ошибка?
Спасибо.


 
Игорь Шевченко ©   (2011-06-15 13:04) [1]

IdMessage.ContentType := "multipart/mixed"

?


 
mefodiy   (2011-06-15 13:12) [2]

Да, спасибо.



Страницы: 1 вся ветка

Текущий архив: 2011.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
1-1267355128
AlexChudd
2010-02-28 14:05
2011.10.02
Выделение ячейки в StringGrid по нажатию правой кнопки мыши


2-1308038218
mdsuz07
2011-06-14 11:56
2011.10.02
Ошибка доступа: Access violation at address


15-1307430272
RGV
2011-06-07 11:04
2011.10.02
Актуальность Delphi.


2-1308015939
vasja666
2011-06-14 05:45
2011.10.02
sql запрос дата


2-1308141783
Patrick1968
2011-06-15 16:43
2011.10.02
Конвертация из Excel