код
Код: Выбрать все
unit SMTP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdAntiFreezeBase, IdAntiFreeze,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP;
type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdAntiFreeze1: TIdAntiFreeze;
IdMessage1: TIdMessage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
AttachmentFileFullName: string;
att:TIdAttachment;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
AttachmentFileFullName := 'E:\lampada.jpg';
idSmtp1.Host:='mail.hostland.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='logs@gansta-paradise.com';
idSmtp1.Password:='123412345';
idMessage1.Body.Text:='fgdfgdfgdfgfgsdfg32423423';
idMessage1.From.Text:='logs@gansta-paradise.com';
idMessage1.Recipients.EMailAddresses:='ooo-ses@yandex.ru';
idMessage1.Subject:='te';
TIdAttachment.Create(Form1.idMessage1.MessageParts,AttachmentFileFullName);
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect();
ShowMessage('Отправленно!');
end;
end.