Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
// Кинуть на форму компонент IdSMTP1 ... usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress; ... procedure
TForm1.Button1Click(Sender: TObject); var
M: TIdMessage; begin
M := TIdMessage.Create(Form1); M.Body.Add('Типа первая строчка собщения'); M.Body.Add('Типа вторая строчка собщения'); M.From.Text := '"Рустик" <boris@uacity.com>'; //отправитель M.Recipients.Add; M.Recipients.Items[0].Text := '"Тест" <antohha@ukr.net>'; //Получатель M.Subject := 'Ну чо? потестим? =)'; //Тема письма IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'uacity.com'; IdSMTP1.Username := 'boris'; IdSMTP1.Password := '1234'; // - ну свой пароль я те не выдам :-Р IdSMTP1.Connect(); if
IdSMTP1.Connected then
begin
IdSMTP1.Send(M); end
; IdSMTP1.Disconnect; end
;