Delphi Studio Отправка email сообщения (IdSMTP, IdMessage). Пример на Delphi
Delphin | 18-04-2010, 13:33 | Примеры на Delphi » Примеры на 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)
 10629 | 0
mail, пример, почта, сообщение, delphi, IdSMTP, IdMessage

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

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

        Лучшее на 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 OpenDialog delphi OpenDialog
        Как открыть текстовый файл через Delphi Как открыть текстовый файл через Delphi
        delphi работа с календарем delphi работа с календарем
        как сделать прозрачное memo delphi как сделать прозрачное memo delphi
        delphi delphi
        Как сохранить изображение из Delphi Как сохранить изображение из Delphi
        Delphi 2010 дополнительные функции для браузера Delphi 2010 дополнительные функции для браузера
        Delphi дополнительные функции для браузера Delphi дополнительные функции для браузера
        Delphi как написать браузер Delphi как написать браузер
        свернуть программу в трей delphi свернуть программу в трей delphi
        открыть сидиром открыть сидиром
        компонент Tmemo компонент Tmemo
        примеры пос примеры пос
        как закрыть программу в трее как закрыть программу в трее
        Как проверить существование папки в Delphi Как проверить существование папки в Delphi
        поиск в делфи поиск в делфи
        Род Стивенс Примеры программ в Делфи Род Стивенс Примеры программ в Делфи
        Скачать книгу Разработка интернет-приложений в Delphi Скачать книгу Разработка интернет-приложений в Delphi
        делфи сохранение части экрана делфи сохранение части экрана
        браузер на delphi браузер на delphi
        создание браузера delphi c авторизацией создание браузера delphi c авторизацией
        delphi отправка форм delphi отправка форм
        WebBrowser нажать на кнопку на delphi WebBrowser нажать на кнопку на delphi
        процедуры memo delphi процедуры memo delphi
        создание браузера в картинках delphi создание браузера в картинках delphi
        как авторизоваться на сайте с помощью delphi как авторизоваться на сайте с помощью delphi
        datetostr datetostr
        передача из дельфи в php передача из дельфи в php
        Учебник для хаккеров Учебник для хаккеров
        delphi работа с tcp пример delphi работа с tcp пример
        IdMessage компонент Delphi IdMessage компонент Delphi
        скачать готовые программы в delphi скачать готовые программы в delphi
        Delphi количество подряд Delphi количество подряд
        компонент PopupMenu в Delphi компонент PopupMenu в Delphi
        примеры работы графиков в делфи примеры работы графиков в делфи
        примеры баз данных на delphi примеры баз данных на delphi
        программная перезагрузка компьютера программная перезагрузка компьютера


        Информация

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


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

        Книга Delphi 7 для профессионалов. Марко Кэнту
        Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом
        Как свернуть и развернуть чужое окно в Windows Пример на Delphi
        Как свернуть и развернуть чужое окно в Windows Пример на Delphi - Пример на Delphi показывающий как можно свернуть и развернуть чужое окно в Windows
        Как создать Горячую клавишу для программы (StdCtrls). Пример на Delphi
        Как создать Горячую клавишу для программы (StdCtrls). Пример на Delphi - Пример создания для программы на Delphi Горячей клавиши. В uses добавить StdCtrls


        Опрос

        Что вы хотите больше на 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