Подписка
добавить на Яндекс

Главное меню

Наши проекты

Delphi+Google

Google API

Google API в Delphi - проект с открытым исходным кодом.

Chrono

Chrono

Хронометр - программа для ведения списка задач.

ODFProc

ODFProc

ODFProc - работа с документами OpenOffice в Lazarus и FreePascal.

Поддержка блога

А тут я коплю на лицензию Delphi XE на iPad =).
Сумма пожертвования не фиксирована.

Публикации

Год назад

Случайный пост

Последние

Сообщения форума

Комментарии

Свежие комментарии

Социальные сети

Google

Facebook

Twitter

Опрос

Вы сейчас или в ближайшем обозримом будущем планируете разрабатывать кроссплатформенное приложение с использованием Firemonkey?



Loading ... Loading ...

Блоги и сообщества

Статьи по Delphi DelphiFeeds.ru - Все Delphi-блоги Рунета Сообщество умных людей VR-Online.RU Бесплатный журнал для программистов и всех, кто интересуется IT Статьи и уроки по Delphi Новостной блог о высоких технологиях

Метки

Ribbon XML-RPC Ribbon Controls WordPress Synapse Delphi XE Excel в Delphi API Delphi 2010 Google Компонент Яндекс OAuth XML DOM Delphi XE2 IDE Delphi Google API Lazarus

Блог находят по фразам:

Система Orphus
Synapse. Отправка писем, используя SMTP.
Опубликовал Vlad 22 февраля 2010 в 18:24.
Категории: Delphi в Web.


Сегодня решил немного поэкспериментировать с библиотекой Synapse и научиться отправлять письма, используя протокол SMTP (Simple Mail Transfer Protocol - протокол передачи почты). Тема эта достаточно интересная и полезная. Дело даже не в том, чтобы написать для себя почтовый клиент, коих миллионы. Подобные навыки работы с бибилиотекой могут потребоваться, например, если Вы захотитенаписать своего клиента для отправки сообщений в свой блог на ЖЖ, Blogger или LiveInternet - эти блог сервисы поддерживают публикацию новых постов по e-mail. Так что, полученные сегодня навыки несомнено должы принести Вам (мне точно) определенную пользу. Для работы с протоколом SMTP в Synapse можно использовать следующие модули биюлиотеки:

  1. smtpsend - содержит объект Tsmtpsend и ключевые методы для отправки электронных писем.
  2. mimemess - содержит объекты TMessHeader - заголовки сообщения; TMimeMess - сообщение;
  3. mimepart - содержит объект TMimePart для работы с частями сообщения, которые можно использовать для отправки по почте файлов.

Сегодня сосредоточимся на основной задаче - отправке текста. Так как именно для этого в свое время и был создан SMTP, а пересылкой файлов (аттачей) занимается не протокол, а расширение к протоколу -  MIME (Multupurpose Internet Mail Extentions, RFC-1521). Расширениями займемся позднее.

Итак, сегодня в наши задачи входит:

  1. Составить правильный заголовок сообщения
  2. Добавить в сообщение текст (plain text) или html-код
  3. Оправить сообщение на постовый ящик, используя заданый smtp-сервер.

1. Подготавливаемся к работе с SMTP в Delphi. Загоовка приложения.

Открываем Delphi, создаем новое приложение и на главной форме размещаем компоненты как показано на рисунке:

Как вы знаете, SMTP-серверы почтовых служб таких как mail.ru требуют обязательной авторизации, поэтому на форме нашего будущего приложения предусмотрены два поля: "Логин пользователя" и "Пароль пользователя" - туда будем записывать данные для авторизации на SMTP-сервере.

Поле "Хост" должно содержать хост smtp-сервера, например, smtp.mail.ru или smtp.yandex.ru и т.д., смотря от чьего имени вы будете слать письма. Поле "Адрес e-mail" для отправителя должен содержать правильный адрес, т.е. применительно к mal.ru, если ваш логин "blogger", то ящик должен быть "blogger@mail.ru", а хост "smtp.mail.ru".

С формой приложения и назначением элементов главной формы, думаю, разобрались. Переходим ко второму пункту нашей работы - создадим правильное сообщение.

2. Формируем сообщение e-mail, используя Synapse

Итак, в заголовки сообщения нам необходимо включить:

  1. Имя отправителя
  2. Адрес отправителя
  3. Список получателей (в нашем случае получатель будет один)

Подключаем к проекту модули mimemess, mimepart, smtpsend.  Создаем процедуру с названием, например SendMail:

Procedure SendMail (Host, Subject, pTo, From , TextBody, HTMLBody, login,password : string);
var Msg : TMimeMess; //собщение
    StringList : TStringList; //содержимое письма
    MIMEPart : TMimePart; //части сообщения (на будущее)
begin
  Msg := TMimeMess.Create; //создаем новое сообщение
  StringList := TStringList.Create;
  try
// Добавляем заголовки
    Msg.Header.Subject := Subject;//тема сообщения
    Msg.Header.From := From; //имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); //имя и адрес получателя
// создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    if length(TextBody)>0 then
      begin
        StringList.Text := TextBody;
        Msg.AddPartText(StringList, MIMEPart);
      end
    else
      begin
        StringList.Text := HTMLBody;
        Msg.AddPartHTML(StringList, MIMEPart);
      end;
// Кодируем и отправляем
    Msg.EncodeMessage;
    smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
 finally
   Msg.Free;
   StringList.Free;
 end;
end;

Разберем по частям, что к чему. В начале создаем новое сообщение, используя объект TMimeMess (сообщение) из модуля Synapse mimemess.

Далее добавляем в сообщение все необходимые заголовки. Создаем объект TMimePart. Так как создается корневой элемент MIME, то вторым параметром, согласно условиям работы с Synapse, ставится nil. Если мы отправляем простой текст, то используем метод AddPartText, где вторым параметром выступает как раз созданные нами корневой элемент, иначе, если текстовое содержимое не отсылается, то принимаем, что отсылается HTML-код и используем соответственно метод AddPartHTML. Также Вы можете добавить в сообщение:

  • Текст из файла, используя метод AddPartTextFromFile.
  • HTML-код из файла, используя метод AddPartHTMLFromFile
  • Бинарный файл, загрузив данные в поток TStream и указав его в параметрах метода AddPartBinary

Есть ещё ряд других методов, расширяющих возможности объекта TMimePart, разобраться с работой которых, думаю, будет достаточно просто.

После того, как сообщение собрано, мы его кодируем, используя метод EncodeMessage, в котором собираются правильные, согласно RFC заголовки, "склеиваются" все части  и т.д. И, наконец, отправляется письмо, используя метод SendToRaw из модуля Synapse httpsend.

Теперь, когда основная процедура отправки готова. Дописываем приложение.

3. Дорабатываем приложение для отправки почты.

В обработчике onClick кнопки пишем:

procedure TForm5.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then
  SendMail(Edit1.Text,
    'Test Message',
    '"' + Edit4.Text + '" <' + Edit5.Text + '>',
    '"' + Edit2.Text + '" <' + Edit3.Text + '>',
    Memo1.Text,
    '',
    Edit6.Text, Edit7.text)
else
  SendMail(Edit1.Text,
    'Test Message',
    '"' + Edit4.Text + '" <' + Edit5.Text + '>',
    '"' + Edit2.Text + '" <' + Edit3.Text + '>',
    '',
    Memo1.Text,
    Edit6.Text, Edit7.text)
end;

Теперь можете проверить работу приложения. Например я отправил себе на второй ящик письмо:

И спустя буквально пару секунд получил новое письмо на свой ящик:

Теперь можете потренироваться с приложением, добавить возможность отправки файлов по электронной почте и т.д. Как видите, с Synapse не только просто работать с HTTP и HTTPS-протоколами, но и не менее просто отправлять электронную почту.

-----------------------------
Интересуетесь технологиями Apple? Тогда apple блог, блог по apple, советы apple - это для Вас. Изучайте, участвуйте в обсуждениях, получайте последние новости по RSS.

Если Вы готовитесь к свадьбе, то к вашим услугам салоны свадебных платьев, где Вы сможете купить свадебное платье Одесса, пошить свадебные платья и даже закупиться платьями оптом :)
-----------------------------
Понравилась статья? Тогда:
Делись! Загружай! Плюсуй!
   Отправить PDF на   
Читай ещё статьи на WebDelphi.ru

Похожие публикации:

  1. Synapse. Авторизация на сайте. Работа с HTTPS. Тяжеловатая была неделька. Семь дней в работы, постоянные напряги, всё...
Метки: ,

Комментарии (67)

WP_Cloudy
  • ManGysITI пишет:
    28 Фев 2010 в 1:44 дп

    Спасибо за интересную статью. Не подскажешь как реализовать отправку файла на мыло?

  • Vlad пишет:
    28 Фев 2010 в 9:19 дп

    Чтоб отправить файл на мыло надо использовать TMimePart и его метод AddPartBinary. Прицпляешь сначало текст, потом файлик и также само отправляешь.

  • Станислав пишет:
    17 Мар 2010 в 6:07 пп

    Так же было интересно прочитать статью про отправку писем через SMTP сервер использующий SSL (gmail, yhoo, msn)

  • Vlad пишет:
    17 Мар 2010 в 6:38 пп

    Надо посмотреть. Вроде бы с Synapse все должно сработать быстро, главно не забыть подцепить модуль ssl_openssl :)

  • Slayer пишет:
    23 Мар 2010 в 5:05 дп

    А как проверить корректность отправки почты? Ошибка не выдаётся даже тогда, когда нет подключения к SMTP-серверу.

  • Vlad пишет:
    23 Мар 2010 в 3:56 пп

    Странно…у меня при невозможности соединения с сервером исключение возникает, да и другие исключения обрабатывает. Может у Вас в IDE стоит пропуск каких-нибудь исключений?

  • Андрей пишет:
    23 Мар 2010 в 4:31 пп

    А я-то как удивился! Я в Ubuntu использую Lazarus. Попробую в Windows ещё поковыряться Lazarus.

  • Станислав пишет:
    24 Мар 2010 в 5:40 пп

    И у меня такая же ерундень. Стоит Delphi 7 с стандартными настройками. Никаких обибок или сообщений не выдает. Наверное надо самому как-то проверять все события или читать их статус. Кстати, то что письмо не отправилось можно проверить посмотрев на то, что вернула функция Send Сам не пробовал, но должно работать.

  • Евгений пишет:
    05 Апр 2010 в 3:17 пп

    меня интересует как у From и To установить кодировку?

    Msg.Header.Subject := Subject;//тема сообщения
    Msg.Header.From := From; //имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); //имя и адрес получателя

  • Жека пишет:
    05 Июн 2010 в 7:05 дп

    у меня это вообще не работает, пишу под xp библиотеку от сюда взял http://www.koders.com/info.aspx?c=ProjectInfo&pid=DEQAQ82QTXZZNDY4RT2N9NNSRB как не отправляю ничего не доходит, логин пытался и с @mail.ru и без него, не робит никак, код от сюда скопирован, не пойму в чем моя ошибка, можете что нибуть подсказать?

  • Алекс пишет:
    19 Сен 2010 в 5:25 пп

    Полдня мучился с отправкой сообщения с помощью компонентов Indy – ничего не получалось.
    Наткнулся на Вашу статью! Все просто и понятно – получилось сразу!
    Огромнейшее спасибо Автору!
    Единственное – пришлось сделать пару доработок.
    В модуле smtpsend описана константа const cSmtpProtocol = ‘25’ ; Если smtp-порт сервера отличается от указанного значения – отправка не происходит.
    К примеру для Yandex порт «587».
    Поэтому вместо « const cSmtpProtocol = ‘25’» написал «var cSmtpProtocol : String; »
    Так же нет проверки на успешное отправку сообщения. После всего получилось вот что:
    function SendMsgMail (Host, Subject, pTo, From , TextBody, HTMLBody, login,password, port : string) : boolean;
    var Msg : TMimeMess; //собщение
    StringList : TStringList; //содержимое письма
    MIMEPart : TMimePart; //части сообщения (на будущее)
    begin
    result:=false;
    cSmtpProtocol:=port;
    Msg := TMimeMess.Create; //создаем новое сообщение
    StringList := TStringList.Create;
    try
    // Добавляем заголовки
    Msg.Header.Subject := Subject;//тема сообщения
    Msg.Header.From := From; //имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); //имя и адрес получателя
    // создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart(‘alternative’, nil);
    if length(TextBody)>0 then
    begin
    StringList.Text := TextBody;
    Msg.AddPartText(StringList, MIMEPart);
    end
    else
    begin
    StringList.Text := HTMLBody;
    Msg.AddPartHTML(StringList, MIMEPart);
    end;
    // Кодируем и отправляем
    Msg.EncodeMessage;
    result:=smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
    finally
    Msg.Free;
    StringList.Free;
    end;
    end;

    Все работает на отлично!
    Еще раз ОГОМНЕЙШЕЕ СПАСИБО!!! Автору и разработчикам данной библиотеки

  • Vlad пишет:
    19 Сен 2010 в 5:45 пп

    2Алекс. Не за что. Рад, что статья Вам пригодилась.

  • Антон пишет:
    02 Окт 2010 в 7:10 пп

    Пользуюсь сервисом Mail.ru. Если указать отправщика отличного от логина(логин test_test, а отправщик test_111@mail.ru), то почта не отслылается. А если отправщик test_test@mail.ru, то отлично работает. В чём проблемка может бытЬ?

  • Vlad пишет:
    02 Окт 2010 в 7:33 пп

    Так видимо в том и проблема, что логин на мэйле — это начало адреса вашего e-mail.

  • Archil пишет:
    08 Окт 2010 в 7:15 пп

    Vlad, очень помогают твои статьи Delphi+Synapse, большое спасибо!

  • Vlad пишет:
    08 Окт 2010 в 8:23 пп

    Да всегда пожалуйста :)

  • Юрик пишет:
    20 Окт 2010 в 11:14 пп

    Есть сайты на которых регистрация происходит при помощи MIME. То есть хедер ка положино:
    Keep-Alive: 115
    Connection: keep-alive
    И тому подобное. А вот:
    Content-Type: multipart/form-data; boundary=—————————41184676334
    То есть каждый раз рисуется рамочка такого плана:
    ——————————41184676334
    Content-Disposition: form-data; name=»MAX_FILE_SIZE»

    128000
    ——————————41184676334
    И как реализовать такие вот пост запросы хз. Как совместить  httpsend и TMimePart чтобы правильно отправить этот запрос? я уже не один день пытаю реализовать, а так как новичок, нехера не выходит(((

  • Vlad пишет:
    20 Окт 2010 в 11:26 пп

    Юрик, я прекрасно вижу все комментарии в блоге — повторять дважды смысла нет.
    По вопросу.
    Достаточно использовать THTTPSend. Делается это так, как рассказывалось здесь. Обычный составной запрос. Где-то в исходниках синапса даже был вроде специальный метод расписан.

  • Юрик пишет:
    21 Окт 2010 в 12:05 дп

    ОК. Спс за помощь. Буду дальше курить мануалы)) и попробую реализовать.

  • _scorpio_ пишет:
    27 Окт 2010 в 7:29 пп

    А как быть с кодировками?
    можно ли самому указывать кодировку темы и тела отправляемого письма?

  • _scorpio_ пишет:
    27 Окт 2010 в 7:36 пп

    к примеру в utf-8

  • Vlad пишет:
    27 Окт 2010 в 7:51 пп

    Можно изменять кодировку. В одном из постов я об этом писал. Можете глянуть здесь.

  • _scorpio_ пишет:
    30 Окт 2010 в 5:47 дп

    благодарен за ответ, и ещё один вопрос:
    можно ли программно запросить подтверждение прочтения письма, т.е. с помощью Synapse.
    И как осуществить?

  • Vlad пишет:
    30 Окт 2010 в 3:14 пп

    Никогда такого не делал, но судя по всему можно. По крайней мере при получении писем можно определить его приоритет…

  • _scorpio_ пишет:
    30 Окт 2010 в 4:52 пп

    ну к примеру в почтовой веб-агенте SquirrelMail version 1.4.17 на php есть возможность запрашивать подтверждение о принятии письма и об его прочтении… хотелось бы сделать тоже самое программно…
    рыскал в интернете, вроде в обычном аутлуке от майкрософт тоже было такое

  • Vlad пишет:
    30 Окт 2010 в 5:51 пп

    >>SquirrelMail version 1.4.17 на php есть возможность запрашивать подтверждение
    Пример этого PHP-кода можно глянут ? Именно отрывок где запрашивается подтверждение

  • _scorpio_ пишет:
    30 Окт 2010 в 5:54 пп

    это пока проблемно, так как я пока что не смотрел исходники, у меня провайдер такую почту для локальных клиентов сделал, и поцепил эту веб-морду… позже посмотрю, скину тот кусок

  • _scorpio_ пишет:
    31 Окт 2010 в 2:43 дп

    Поэкспериментировав с отправляемыми письмами заметил, что в заголовках идет этот запрос.
    когда отправил письмо, оно пришло в таком виде:
    Return-Path: <отправитель@мейл.ру>
    X-Original-To: получатель@мейл.ру
    Delivered-To: получатель@мейл.ру
    Received: from webmail.мейл.ру (localhost [127.0.0.1])
    by mail.мейл.ру (Postfix) with ESMTP id 73BC98A0211
    for <получатель@мейл.ру>; Sat, 30 Oct 2010 23:21:06 +0300 (EEST)
    Received: from 91.___.___.___
    (SquirrelMail authenticated user отправитель)
    by webmail.мейл.ру with HTTP;
    Sat, 30 Oct 2010 23:21:06 +0300 (EEST)
    Message-ID: <e8df5990af3e1b21bf1eb2f2ac27a01a.squirrel@webmail.мейл.ру>
    Date: Sat, 30 Oct 2010 23:21:06 +0300 (EEST)
    Subject: 1
    From: =?utf-8?B?0JDRgNGC0ZHQvA==?= <отправитель@мейл.ру>
    To: получатель@мейл.ру
    Reply-To: отправитель@мейл.ру
    User-Agent: SquirrelMail/1.4.17
    MIME-Version: 1.0
    Content-Type: text/plain;charset=utf-8
    Content-Transfer-Encoding: 8bit
    X-Confirm-Reading-To: отправитель@мейл.ру
    Disposition-Notification-To: отправитель@мейл.ру
    X-Priority: 3 (Normal)
    Importance: Normal
    Return-Receipt-To: отправитель@мейл.ру
    после отправки ещё кучи писем, заметил где именно изменялось:
    // запрос о прочтении
    X-Confirm-Reading-To: отправитель@мейл.ру
    Disposition-Notification-To: отправитель@мейл.ру
    //////////////////////////
    // Срочность письма
    //
    // Срочное
    // X-Priority: 1 (Highest)
    // Importance: High
    //
    // Обычное
    // X-Priority: 3 (Normal)
    // Importance: Normal
    //
    // Несрочное
    // X-Priority: 5 (Lowest)
    // Importance: Low
    //////////////////////////
    X-Priority: 3 (Normal)
    Importance: Normal
    // запрос о получении
    Return-Receipt-To:отправитель@мейл.ру

  • _scorpio_ пишет:
    31 Окт 2010 в 2:45 дп

    скачал исходники, копаю дальше…

  • _scorpio_ пишет:
    31 Окт 2010 в 3:19 дп

    вот что в исходниках


    ========== squirrelmail.po ==========
    # translation of squirrelmail.po into Russian
    # Copyright (c) 1999-2009 The SquirrelMail Project Team
    # $Id: squirrelmail.po 13693 2009-05-14 00:26:43Z jervfors $
    # Konstantin Riabitsev &lt;squirrelmail-i18n@mricon.com&gt;, 2001.
    # Gregory Mokhin &lt;mok@kde.ru&gt;, 2003-2007.
    #
    msgid ""
    msgstr ""
    "Project-Id-Version: squirrelmail\n"
    "Report-Msgid-Bugs-To: SquirrelMail Internationalization &lt;squirrelmail-"
    "i18n@lists.sourceforge.net&gt;\n"
    "POT-Creation-Date: 2007-02-14 12:48+0100\n"
    "PO-Revision-Date: 2007-08-27 18:11-0400\n"
    "Last-Translator: Gregory Mokhin &lt;mok@kde.ru&gt;\n"
    "Language-Team: Russian &lt;kde-russian@lists.kde.ru&gt;\n"
    "MIME-Version: 1.0\n"
    "Content-Type: text/plain; charset=UTF-8\n"
    "Content-Transfer-Encoding: 8bit\n"
    "Plural-Forms: nplurals=3; plural=(n%10==1 &amp;&amp; n%100!=11 ? 0 : n%10&gt;=2 &amp;&amp; n%"
    "10&lt;=4 &amp;&amp; (n%100&lt;10 || n%100&gt;=20) ? 1 : 2);\n"

    ...

    msgid "Priority"
    msgstr "Срочность"

    msgid "High"
    msgstr "Срочное"

    msgid "Normal"
    msgstr "Обычное"

    msgid "Low"
    msgstr "Несрочное"

    msgid "Receipt"
    msgstr "Подтверждение"

    msgid "On Read"
    msgstr "прочтения"

    msgid "On Delivery"
    msgstr "получения"

    ...

    ================ compose.php ========================
    /* Receipt: On Read */
    if (isset($request_mdn) &amp;&amp; $request_mdn) {
    $rfc822_header-&gt;dnt = $rfc822_header-&gt;parseAddress($from_mail,true);
    }

    /* Receipt: On Delivery */
    if (isset($request_dr) &amp;&amp; $request_dr) {
    $rfc822_header-&gt;more_headers['Return-Receipt-To'] = $from_mail;
    }
    ================ Rfc822Header.class.php ======================
    class Rfc822Header {
    ...
    /**
    * Priority header
    * @var integer
    */
    var $priority = 3;
    /**
    * @var mixed
    */
    var $dnt = '';
    ...
    case 'references':
    $value = $this-&gt;stripComments($value);
    $this-&gt;references = $value;
    break;
    case 'x-confirm-reading-to':
    case 'return-receipt-to':
    case 'disposition-notification-to':
    $value = $this-&gt;stripComments($value);
    $this-&gt;dnt = $this-&gt;parseAddress($value);
    break;
    case 'mime-version':
    $value = $this-&gt;stripComments($value);
    $value = str_replace(' ', '', $value);
    $this-&gt;mime = ($value == '1.0' ? true : $this-&gt;mime);
    break;
    case 'content-type':
    $value = $this-&gt;stripComments($value);
    $this-&gt;parseContentType($value);
    break;
    case 'content-disposition':
    $value = $this-&gt;stripComments($value);
    $this-&gt;parseDisposition($value);
    break;
    case 'user-agent':
    case 'x-mailer':
    ...

    ===========================================================

  • _scorpio_ пишет:
    31 Окт 2010 в 3:21 дп

    порубало код =)))

  • _scorpio_ пишет:
    31 Окт 2010 в 3:39 дп

    на сколько я понял, нужно править исходники самого синапса, тоесть либо smtpsend.pas, а именно функцию SendToEx

    function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string;
    const MailData: TStrings; const Username, Password: string): Boolean;
    var
    t: TStrings;
    begin
    t := TStringList.Create;
    try
    t.Assign(MailData);
    t.Insert(0, '');
    t.Insert(0, 'X-mailer: Synapse - Delphi &amp; Kylix TCP/IP library by Lukas Gebauer');
    t.Insert(0, 'Subject: ' + Subject);
    t.Insert(0, 'Date: ' + Rfc822DateTime(now));
    t.Insert(0, 'To: ' + MailTo);
    t.Insert(0, 'From: ' + MailFrom);
    Result := SendToRaw(MailFrom, MailTo, SMTPHost, t, Username, Password);
    finally
    t.Free;
    end;
    end;

    либо mimemess.pas, на сколько я понял там процедура TMessHeader.EncodeHeaders


    procedure TMessHeader.EncodeHeaders(const Value: TStrings);
    var
    n: Integer;
    s: string;
    begin
    if FDate = 0 then
    FDate := Now;
    for n := FCustomHeaders.Count - 1 downto 0 do
    if FCustomHeaders[n] \&lt;\&gt; '' then
    Value.Insert(0, FCustomHeaders[n]);
    if FPriority \&lt;\&gt; MP_unknown then
    case FPriority of
    MP_high:
    begin
    Value.Insert(0, 'X-MSMAIL-Priority: High');
    Value.Insert(0, 'X-Priority: 1');
    Value.Insert(0, 'Priority: urgent');
    end;
    MP_low:
    begin
    Value.Insert(0, 'X-MSMAIL-Priority: low');
    Value.Insert(0, 'X-Priority: 5');
    Value.Insert(0, 'Priority: non-urgent');
    end;
    end;
    if FReplyTo \&lt;\&gt; '' then
    Value.Insert(0, 'Reply-To: ' + GetEmailAddr(FReplyTo));
    if FMessageID \&lt;\&gt; '' then
    Value.Insert(0, 'Message-ID: \&lt;' + trim(FMessageID) + '\&gt;');
    if FXMailer = '' then
    Value.Insert(0, 'X-mailer: Synapse - Pascal TCP/IP library by Lukas Gebauer')
    else
    Value.Insert(0, 'X-mailer: ' + FXMailer);
    Value.Insert(0, 'MIME-Version: 1.0 (produced by Synapse)');
    if FOrganization \&lt;\&gt; '' then
    Value.Insert(0, 'Organization: ' + InlineCodeEx(FOrganization, FCharsetCode));
    s := '';
    for n := 0 to FCCList.Count - 1 do
    if s = '' then
    s := InlineEmailEx(FCCList[n], FCharsetCode)
    else
    s := s + ', ' + InlineEmailEx(FCCList[n], FCharsetCode);
    if s \&lt;\&gt; '' then
    Value.Insert(0, 'CC: ' + s);
    Value.Insert(0, 'Date: ' + Rfc822DateTime(FDate));
    if FSubject \&lt;\&gt; '' then
    Value.Insert(0, 'Subject: ' + InlineCodeEx(FSubject, FCharsetCode));
    s := '';
    for n := 0 to FToList.Count - 1 do
    if s = '' then
    s := InlineEmailEx(FToList[n], FCharsetCode)
    else
    s := s + ', ' + InlineEmailEx(FToList[n], FCharsetCode);
    if s \&lt;\&gt; '' then
    Value.Insert(0, 'To: ' + s);
    Value.Insert(0, 'From: ' + InlineEmailEx(FFrom, FCharsetCode));
    end;
  • _scorpio_ пишет:
    31 Окт 2010 в 6:15 дп

    пол ночи за компом, решение: нужно редактировать исходники, а точнее mimemess.pas
    и добавлять туда

    // запрос о прочтении
    X-Confirm-Reading-To: отправитель@мейл.ру
    Disposition-Notification-To: отправитель@мейл.ру
    // запрос о получении
    Return-Receipt-To:отправитель@мейл.ру
  • Vlad пишет:
    31 Окт 2010 в 2:21 пп

    Может не стоит редактировать исходники? Есть же TSMTPSend, TMimeMess — у которого есть Headers куда можно вставить любой заголовок?

  • _scorpio_ пишет:
    31 Окт 2010 в 9:54 пп

    можно просто вставить любой заголовок, а можно просто добавить функцию в исходники…
    вчера ночью так и сделал, сделал дополнительный параметр, который отвечает за прочтения письма
    в mimemess.pas, вызывается так:

    var
    Msg : TMimeMess; //собщение
    ...
    Msg.Header.ReturnReceiptTo:=True;
    ...

    сам кусок исходника имеет такой вид:

    ...
    TMessHeader = class(TObject)
    private
    ...
    FReplyTo: string;
    FReturnReceiptTo: Boolean; //принятие
    FXConfirmReadingTo: Boolean; //прочтение
    ...
    published
    ...

    {:Address for replies}
    property ReplyTo: string read FReplyTo Write FReplyTo;

    {:Address for ReturnReceiptTo}
    property ReturnReceiptTo: Boolean read FReturnReceiptTo Write FReturnReceiptTo;

    {:Address for XConfirmReadingTo}
    property XConfirmReadingTo: Boolean read FXConfirmReadingTo Write FXConfirmReadingTo;
    ...

    procedure TMessHeader.EncodeHeaders(const Value: TStrings);
    ...
    begin
    ...

    for n := FCustomHeaders.Count - 1 downto 0 do
    if FCustomHeaders[n] &lt;&gt; '' then
    Value.Insert(0, FCustomHeaders[n]);

    if FReturnReceiptTo then
    Value.Insert(0, 'Return-Receipt-To: ' + InlineEmailEx(FFrom, FCharsetCode));

    if FXConfirmReadingTo then
    begin
    Value.Insert(0, 'X-Confirm-Reading-To: ' + InlineEmailEx(FFrom, FCharsetCode)); 
    Value.Insert(0, 'Disposition-Notification-To: ' + InlineEmailEx(FFrom, FCharsetCode)); 
    end;

    if FPriority &lt;&gt; MP_unknown then
    ...

    и кстати с кодировкой тоже разобрался, всё таки нужно было исходники мучать… так как не всё пишется универсально…

  • 6ruse пишет:
    05 Ноя 2010 в 11:10 пп

    Доброго времени суток! у меня не выходит отправить письмо на мыло, (mail.ru) прошу помощи! использую ОС Windows7

  • Vlad пишет:
    05 Ноя 2010 в 11:43 пп

    Что конкретно не выходит? Где ошибка?

  • Pim пишет:
    10 Ноя 2010 в 4:57 дп

    Привет всем.Тут такой вопрос.Можно ли с помощью TIdSMTP проверить получение письма?Тут дето упамямнался этот компонент.Если можно,то как? А если нельзя так,то можно какнить попроще ,чем описывает Scorpio?

  • Pim пишет:
    10 Ноя 2010 в 3:19 пп

    Даже выше упомянутую задачу можно упростить до проверки существования почтового ящика.
    У самого не получается,пожскажите пож.

  • _scorpio_ пишет:
    10 Ноя 2010 в 6:17 пп

    выше мною написанное способ, в котором нужно редактировать исходники синапса, можно конечно это сделать при помощью своих заголовков (тоесть при создании письма, нужно создать заголовок в котором существует запрос. в моём случае ответ на данный запрос приходит в виде письма о прочтении)
    в теме нужно добавить строку или пару строк:

    // запрос о прочтении

    X-Confirm-Reading-To: отправитель@мейл.ру

    Disposition-Notification-To: отправитель@мейл.ру

    // запрос о получении

    Return-Receipt-To:отправитель@мейл.ру

  • _scorpio_ пишет:
    10 Ноя 2010 в 6:18 пп

    тоесть не в теме, а в теле заголовка

  • _scorpio_ пишет:
    10 Ноя 2010 в 6:26 пп

    и ещё одно, при создании заголовка сначала желательно посмотреть обычный заголовок и тот что с запросом… так как разные мейл-агенты и я думаю разные способы у них… времени читать не было…)

  • Валерий пишет:
    01 мая 2011 в 4:20 дп

    Выложите,пожалуйста,исходник программы, а то чёт не получается!!!

  • _scorpio_ пишет:
    02 мая 2011 в 5:16 пп

    увы исходники остались на винте, у которого электроника сгорела))

  • Антон пишет:
    06 мая 2011 в 1:11 пп

    А есть ли какая-то возможность избежать подвисания формы? Типо антифриза в Инди?

  • John пишет:
    13 мая 2011 в 8:21 дп

    Чтобы форма не висла, отправку письма лучше сделать в отдельном потоке…

  • Игорь пишет:
    13 мая 2011 в 3:24 пп

    в инди можно было прописать «adr1@mail.ru; adr2@mail.ru»
    Как отослать писмо на 2-3 адреса сразу?

  • Игорь пишет:
    13 мая 2011 в 3:32 пп

    хм.. Нодо было справку посмотреть сначало.
    Оказывается через запятую нужно писать адреса

  • _scorpio_ пишет:
    14 мая 2011 в 3:37 пп

    справка видимо написана не для тех кто методом тыка химичит

  • Vlad пишет:
    14 мая 2011 в 4:15 пп

    У каждого свой подход к программированию. Как-то слышал фразу «Хэлп читают трУсы» :)

  • _scorpio_ пишет:
    15 мая 2011 в 10:03 пп

    но практика в который раз показывает что нужно учиться читать))))

  • tomat пишет:
    07 Июн 2011 в 12:39 дп

    unit emile;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs,mimemess, mimepart, smtpsend, StdCtrls, IdBaseComponent,
    IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
    IdMessage;

    type
    TForm2 = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    lbl4: TLabel;
    edt3: TEdit;
    lbl5: TLabel;
    edt4: TEdit;
    lbl6: TLabel;
    lbl7: TLabel;
    edt5: TEdit;
    lbl8: TLabel;
    edt6: TEdit;
    lbl9: TLabel;
    btn1: TButton;
    lbl10: TLabel;
    edt7: TEdit;
    mmo1: TMemo;
    idsmtp2: TIdSMTP;
    idmsg1: TIdMessage;
    procedure btn1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    {$R *.dfm}

    function SendmsgMail (Host, Subject, pTo, From , TextBody, login,password, port : string) : boolean;
    var Msg : TMimeMess; //ñîáùåíèå
    StringList : TStringList; //ñîäåðæèìîå ïèñüìà
    MIMEPart : TMimePart; //÷àñòè ñîîáùåíèÿ (íà áóäóùåå)
    begin
    Msg := TMimeMess.Create; //ñîçäàåì íîâîå ñîîáùåíèå
    StringList := TStringList.Create;
    try
    // Äîáàâëÿåì çàãîëîâêè
    Msg.Header.Subject := Subject;//òåìà ñîîáùåíèÿ
    Msg.Header.From := From; //èìÿ è àäðåñ îòïðàâèòåëÿ
    Msg.Header.ToList.Add(pTo); //èìÿ è àäðåñ ïîëó÷àòåëÿ
    // ñîçäàåì êîðíåâîé ýëåìåíò
    MIMEPart := Msg.AddPartMultipart( 'alternative' , nil);
    if length(TextBody)&gt;0 then
    begin
    StringList.Text := TextBody;
    Msg.AddPartText(StringList, MIMEPart);
    end;
    // Êîäèðóåì è îòïðàâëÿåì
    Msg.EncodeMessage;
    result:=smtpsend.SendToRaw(From, pTo, Host, Msg.Lines, login, password);
    finally
    Msg.Free;
    StringList.Free;
    end;
    end;
    procedure TForm2.btn1Click(Sender: TObject);
    begin
    SendmsgMail (Edt7.Text,
    'Test Message',
    '"' + Edt5.Text + '" &amp;lt;' + Edt6.Text + '&amp;gt;',
    '"' + Edt1.Text + '" &amp;lt;' + Edt2.Text + '&amp;gt;',
    Mmo1.Text,
    '',
    Edt3.Text, Edt4.text)
    end;

    end.

    подскажите что не так!все компилируется без ошибок, но никуда ни что не оправляеться, да еще и подтверждения нет(((исправьте пожалуйста

  • Гость пишет:
    21 Июл 2011 в 8:21 дп

    А модули как определить, то?

  • Vlad пишет:
    21 Июл 2011 в 2:35 пп

    >>А модули как определить, то?
    В uses 

  • Владимир пишет:
    10 Сен 2011 в 2:08 пп

    Ругается на строчку:
    if length(TextBody)&gt;0 then

    [Error] Unit1.pas(355): Illegal character in input file: ‘&’ ($26)

  • Vlad пишет:
    10 Сен 2011 в 3:36 пп

    Владимир, это просто какого-то лиха символ < заменился на его код

  • Илья пишет:
    05 Дек 2011 в 12:18 пп

    добрый день.
    с кодом вроде сложностей нет, все понятно. есть проблема с подключением модулей, негде не могу найти, сам раньше не пользовался. можно подробнее описать, как делается.

    «…..Подключаем к проекту модули mimemess, mimepart, smtpsend…….. »

    Спасибо. 

  • Илья пишет:
    05 Дек 2011 в 1:22 пп

    с модулями разобрался.))
    осталось решить 2 ошибки:
     [DCC Error] Unit1.pas(51): E2003 Undeclared identifier: ‘SendMail’
    [DCC Fatal Error] otpravkasmtp.dpr(5): F2063 Could not compile used unit ‘Unit1.pas’

  • _scorpio_ пишет:
    06 Дек 2011 в 5:21 пп

    программа не знает что такое «SendMail»

  • _scorpio_ пишет:
    06 Дек 2011 в 5:23 пп

    Владимиру:
    &gt; это <

  • _scorpio_ пишет:
    06 Дек 2011 в 5:25 пп

    «…..Подключаем к проекту модули mimemess, mimepart, smtpsend…….. »
    сами модули можно вкинуть в папку с проектом, или же установить синапс…
    подключение модулей как выше писалось в uses
     

  • Илья пишет:
    06 Дек 2011 в 10:37 пп

    с модулями разобрался, все подключил. ошибки тоже исправил, просто процедуру не в то место написал.
    компилируется без замечаний, но сообщения не отправляются, на почту не приходят. пробовал windows 7 и ХР. пока не разобрался почему.

  • Илья пишет:
    06 Дек 2011 в 10:49 пп

    вопрос: настройки безопасности системы могут влиять на блокировку отправки сообщений? никаких оповещений от системы не было.

  • _scorpio_ пишет:
    10 Дек 2011 в 8:44 пп

    проверь смтп
    и да, файрвол может блокировать порт отправки

  • alex пишет:
    25 Дек 2011 в 1:51 пп

    так что насчет отправки почты через прокси? возможно ли ?

  • alex пишет:
    25 Дек 2011 в 1:57 пп

    «используя метод SendToRaw из модуля Synapse httpsend.»
    это я так полагаю ошибка, в коде используется модуль smtpsend который может отправлять  похоже только через сокс5 прокси? возможно ли через http прокси отправлять почту?

  • Vlad пишет:
    25 Дек 2011 в 3:14 пп

    alex, я сам через прокси никогда с почтой не работал. Поэтому сказать можно или нет — не могу.

Ваш ответ

Внимание: Все комментарии модерируются, и это может вызвать задержку их публикации. Отправлять комментарий заново не требуется.

Пожалуйста, заключайте исходный код в тэги [code][/code].
Если код большой, то воспользуйтесь Вставкой кода на отдельной странице и оставьте в комментарии ссылку на исходник

   


ipod touch 8gb купить