Delphi Studio » Примеры на Delphi » Примеры на Delphi Сеть Интернет » Отправка email сообщения (IdSMTP, IdMessage). Пример на Delphi

    "Уважаемые посетители, если вы хотите задать вопросы и получить ответы, то регистрируйтесь и добавляйте свои вопросы тут: " Задать вопрос.
      Delphi Studio Отправка email сообщения (IdSMTP, IdMessage). Пример на Delphi

      Отправка email сообщения (IdSMTP, IdMessage). Пример на Delphi

      Сейчас я вам покажу пример, как можно отправить email сообщение на Delphi. Положите на форму компонент IdSMTP и IdMessage
      Создаём процедуру отправки сообщения
      procedure mailsend;
      var
      attach: TidAttachment;
      msg: tidmessage;
      i: integer;
      begin
      f.idSMTP1.AuthenticationType:= atLogin;
      f.idSMTP1.Username:='login'; // ваш логин
      f.idSMTP1.Password:='pass';  // пароль
      f.idSMTP1.Host:='smtp.mail.ru'; // хост mail.ru
      f.IdSMTP1.Port:=2525; // порт mail.ru
      msg:=TIdMessage.Create(nil);
      msg.Body.Add('Body'); // сообщение письма
      msg.Subject:='mail'; // заголовок письма (Тема)
      msg.From.Address:='[email protected]'; // от кого отправляем письмо
      msg.From.Name:='message'; // имя отправителя
      msg.Recipients.EMailAddresses:='[email protected]'; // кому отправить письмо
      msg.IsEncoded:=true;
      attach:=TIdAttachment.Create(msg.MessageParts,'attach.exe'); // раскоментируйте эту строчку если хотите отправить письмо с вложением, где attach.exe, файл который должен лежать в той же директории что и сама программа
      f.idSMTP1.Connect();
      if f.idSMTP1.Connected then
      begin
      f.idSMTP1.Send(msg);
      end
      else
      f.IdSMTP1.Disconnect;
      end;

      Теперь вызываем процедуру mailsend
      procedure Tf.Button1Click(Sender: TObject);
      begin
      mailsend;
      f.IdSMTP1.Disconnect;
      end;

      Если вы хотите отправлять сообщение email через какой-то промежуток времени, просто поместите
      mailsend;
      f.IdSMTP1.Disconnect;

      в Timer1, задав таймеру нужный промежуток времени.

      Теперь приведу пример для ручного ввода данных для отправки email сообщения. Положите на форму компонент IdSMTP и IdMessage
      procedure Tf.FormCreate(Sender: TObject);
      begin
      Edit1.Text := 'login'; // ваш логин
      Edit2.Text := 'pass'; // пароль
      Edit3.Text := 'smtp.mail.ru'; // хост mail.ru
      Edit4.Text := '2525';  // порт
      Edit5.Text := 'mail'; // заголовок письма (Тема)
      Edit6.Text := 'ваше имя';  // имя отправителя
      Edit7.Text := '[email protected]';  // кому отправить письмо
      Edit8.Text := '[email protected]';  // от кого отправляем письмо
      Memo1.Text := 'привет';  // сообщение письма
      end;

      Теперь отправляем письмо по нажатию Button1
      procedure Tf.Button1Click(Sender: TObject);
      var
      msg:tidmessage;
      i:integer;
      begin
      f.idSMTP1.AuthenticationType := atLogin;
      f.idSMTP1.Username := Edit1.Text;
      f.idSMTP1.Password := Edit2.Text;
      f.idSMTP1.Host := Edit3.Text;
      f.IdSMTP1.Port := StrToInt(Edit4.Text);
      msg:=TIdMessage.Create(nil);
      msg.Body.Add(Memo1.Text);
      msg.Subject := Edit5.Text;
      msg.From.Address := Edit8.Text;
      msg.From.Name := Edit6.Text;
      msg.Recipients.EMailAddresses := Edit7.Text;
      msg.IsEncoded := true;
      f.idSMTP1.Connect();
      if f.idSMTP1.Connected then
      begin
      f.idSMTP1.Send(msg);
      end
      else
      f.IdSMTP1.Disconnect;
      ShowMessage('Сообщение отправлено!');
      end;
      • 0
       (голосов: 0)
      24799 | 0

        Информация
        Информация

          Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

            Лучшее на Delphi Studio

            Лучшие книги по Delphi

            • Книга Delphi 2010 Handbook with Source Code
              Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
            • Книга Программирование в Delphi глазами хакера. Фленов
              Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
            • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов
              Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
            • Книга Библия Delphi Михаил Фленов (2-е издание) + CD
              Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
            • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б
              Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
            • Книга Delphi 7 Учебный курс С.Бобровский
              Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
            • Книга Delphi Быстрый Старт
              Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
            • Книга Indy in Depth. Глубины Indy
              Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
            • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов
              Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
            • Книга Delphi 7 для профессионалов. Марко Кэнту
              Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом


            Поиск на Delphi Studio




            На Delphi Studio нашли

            как написать калькулятор на delphi как написать калькулятор на delphi
            свойства Forms delphi свойства Forms delphi
            Win32 API в DELPHI Win32 API в DELPHI
            организация многопоточных программ Delphi организация многопоточных программ Delphi
            как скопировать исходник в компьютер как скопировать исходник в компьютер
            авторизация Windows + Delphi авторизация Windows + Delphi
            программ для парсинга  html программ для парсинга html
            delphi aeyrwbz GetFileSize delphi aeyrwbz GetFileSize
            сайты дельфи сайты дельфи
            работа со строками delphi stringreplace работа со строками delphi stringreplace
            скачать сборник задач Pascal скачать сборник задач Pascal
            дельфи запуск  нескольких потоков в цикле дельфи запуск нескольких потоков в цикле
            работа со строками Delphi 2009 работа со строками Delphi 2009
            функция скриншота в delphi функция скриншота в delphi
            advalertwindow example advalertwindow example
            tadvalertwindow кнопки tadvalertwindow кнопки
            добавление программы в автозагрузку в Делфи добавление программы в автозагрузку в Делфи
            программа для извлечения База данных dle сайта программа для извлечения База данных dle сайта
            timer delphi timer delphi
            книга delphi 2010 книга delphi 2010
            mail.ru mail.ru
            delphi передать ссылку в браузер delphi передать ссылку в браузер
            сохранение текстового файла в Вудзрш сохранение текстового файла в Вудзрш
            borland спрятать в трей borland спрятать в трей
            как добавить gif image в Delphi как добавить gif image в Delphi
            скрыть клавишу windows и панель задач  в Delphi скрыть клавишу windows и панель задач в Delphi
            webbrowser авторизация на сайте webbrowser авторизация на сайте
            бобровский delphi ,tcgkfnyj бобровский delphi ,tcgkfnyj
            Реферат.язык программирования Delphi история создания характеристики Реферат.язык программирования Delphi история создания характеристики
            автозагрузка программы  delphi автозагрузка программы delphi
            Delphi книги работа в форме
Delphi книги работа в форме
            как удалить заголовок memo1 в форме дельфи
как удалить заголовок memo1 в форме дельфи
            delphi idhttp
delphi idhttp
            исходники delphi
исходники delphi
            opendialog на кнопку в delphi
opendialog на кнопку в delphi
            delphi clientsocket
delphi clientsocket
            pos в delphi пример
pos в delphi пример


            Информация

            Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
            Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.


            Случайные новости


            Как загрузить в Memo текст из внешнего файла Пример на Delphi
            Как загрузить в Memo текст из внешнего файла Пример на Delphi - Пример на Delphi показывающий как можно загрузить в Memo текст из внешнего файла
            Как сделать в программе прозрачное окно? Пример на Delphi
            Как сделать в программе прозрачное окно? Пример на Delphi - Как сделать в программе прозрачное окно? Пример на Delphi


            Опрос

            Что вы хотите больше на Delphi Studio?
            Исходники
            Книги, Учебники
            Компоненты
            Статьи
            Примеры


            Лучшее на Delphi Studio


            Информация

            А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!


            rss