Отправка HTML-письма с инди

Отправка HTML-письма с инди

Отправка HTML-письма с инди : Несколько тысяч советов, которые сделают вашу жизнь проще.

данный пример показывает, как отправить HTML электронной почты с помощью Delphi и Инди, со встроенными изображениями.
и<р><у><цвет шрифта="#число 0000ff">
<Ширина таблицы="100%" граница="0"><элемента tbody><тр><тд класс="CodeWindow" для bgcolor="#e0ffe3">использует
В idMessage
в процедуре TForm1.Button1Click(Отправитель: TObject)
вар
в формате HTML: TStrings
В htmpart, txtpart: TIdText
В bmppart: TIdAttachment
по электронной почте: TIdMessage
с именем: строки
и начинается
именем := ExtractFilePath(Приложение.ExeName) 'us.jpg'
в формате HTML := TStringList.Создать()
в формате HTML.Добавить(' и')
в формате HTML.Добавить('<начальник>')
в формате HTML.Добавить(' с')
в формате HTML.Добавить('и<Н1>Привет')
в формате HTML.Добавить('')
в формате HTML.Добавить('это картина о нас!')
в формате HTML.Добавить(' и')
по электронной почте := TIdMessage.Создать(ноль)
по электронной почте.От.Текст := '[email protected]'
по электронной почте.Получателей.EMailAddresses := '[email protected]'
по электронной почте.Тема := 'Привет'
по электронной почте.Значение contenttype := 'multipart/смешанные'
по электронной почте.Тела.Назначить(HTML-код)
В txtpart := TIdText.Создать(написать.MessageParts)
В txtpart.Значение contenttype : текст= 'равнина'
В txtpart.Тела.Текст := "
В htmpart := TIdText.Создать(написать.MessageParts, в формате HTML)
В htmpart.Значение contenttype : текст = '/HTML-файлов
В bmppart := TIdAttachment.Создать(написать.MessageParts, именем)
В bmppart.Значение contenttype : изображения = '/формате JPEG'
В bmppart.FileIsTempFile := истина
В bmppart.ContentDisposition := 'инлайн'
В bmppart.ExtraHeaders.Значения['ID Контента'] := 'us.jpg'
В bmppart.Отображаемое имя := 'us.jpg' <бр / >
и idSMTP.Подключиться() <бр / >
и idSMTP.Отправить(по электронной почте)
ShowMessage('Отправлено')
за исключением
на Е: исключение сделать и
ShowMessage('ошибка:' е. сообщение)
В конце
и наконец
В idSMTP.Отсоединить()
по электронной почте.Бесплатная()
в формате HTML.Бесплатная()
В конце
В конце
<у><цвет шрифта="#число 0000ff"> <р>
В