Главная страница
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
15-1307392194
Юрий
2011-06-07 00:29
2011.10.02
С днем рождения ! 7 июня 2011 вторник


6-1242153569
Alex_C
2009-05-12 22:39
2011.10.02
Проблема с SendText в ctBlocking сокете


2-1307696769
Drowsy
2011-06-10 13:06
2011.10.02
Форма не разворачивается на весь экран.


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


15-1307527244
Sergey
2011-06-08 14:00
2011.10.02
Удаленный доступ к интернет