![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Разница между TIdAttachment и TIdAttachmentFile [XP]
mefodiy © (2011-06-15 11:02:00)В Дельфи 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), вместо того, чтобы прикрепится как отдельный файл.
Где ошибка?
Спасибо.
mefodiy (2011-06-15 13:12:00) [1]Да, спасибо.
Игорь Шевченко (2011-06-15 13:04:00) [2]IdMessage.ContentType := 'multipart/mixed'
?