едно примитивно примерче как се прави с Indy .. за да стане добро за използване иска доста работа още

под delphi7 се компилира



unit Unit1;

interface

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

type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
btnSend: TButton;
btnAttach: TButton;
eHost: TEdit;
eUser: TEdit;
Label1: TLabel;
Label2: TLabel;
ePassword: TEdit;
Label3: TLabel;
Button1: TButton;
OpenDialog1: TOpenDialog;
ListBox1: TListBox;
Label4: TLabel;
Label5: TLabel;
eTo: TEdit;
procedure btnSendClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure btnAttachClick(Sender: TObject);
private
{ Private declarations }
IDMessage:TIdMessage;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSendClick(Sender: TObject);
begin
if not Assigned(IDMessage) then
raise Exception.Create('Click "New message" first!');
IdSMTP1.Host := eHost.Text;
IdSMTP1.Username := eUser.Text;
IdSMTP1.Password := ePassword.Text;
IdSMTP1.Connect(10);
IdSMTP1.Send(IDMessage);
FreeAndNil(IDMessage);
end;

procedure TForm1.Button1Click(Sender: TObject);
var addr:TIdEMailAddressItem;
begin
IDMessage:= TIdMessage.Create(nil);
IDMessage.From.Name := 'pencho';
IDMessage.From.Address := 'pencho@penchohome.com';
IDMessage.IsEncoded:=True;
addr:=TIdEMailAddressItem.Create(IDMessage.Recipients);
addr.Address := eTo.Text;
ListBox1.Clear();
end;

procedure TForm1.btnAttachClick(Sender: TObject);
begin
if OpenDialog1.Execute() then
begin
TIdAttachment.Create(IDMessage.MessageParts,OpenDialog1.FileName);
ListBox1.Items.Add(OpenDialog1.FileName);
end;
end;

end.

---------------------------------

object Form1: TForm1
Left = 188
Top = 127
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 156
Top = 42
Width = 20
Height = 13
Caption = 'host'
end
object Label2: TLabel
Left = 156
Top = 66
Width = 20
Height = 13
Caption = 'user'
end
object Label3: TLabel
Left = 156
Top = 90
Width = 50
Height = 13
Caption = 'passsword'
end
object Label4: TLabel
Left = 60
Top = 180
Width = 59
Height = 13
Caption = 'Attachments'
end
object Label5: TLabel
Left = 60
Top = 162
Width = 13
Height = 13
Caption = 'То'
end
object btnSend: TButton
Left = 48
Top = 84
Width = 75
Height = 25
Caption = 'btnSend'
TabOrder = 0
OnClick = btnSendClick
end
object btnAttach: TButton
Left = 48
Top = 120
Width = 75
Height = 25
Caption = 'btnAttach'
TabOrder = 1
OnClick = btnAttachClick
end
object eHost: TEdit
Left = 228
Top = 36
Width = 121
Height = 21
TabOrder = 2
Text = 'mail.mailserver.com'
end
object eUser: TEdit
Left = 228
Top = 60
Width = 121
Height = 21
TabOrder = 3
Text = 'az'
end
object ePassword: TEdit
Left = 228
Top = 84
Width = 121
Height = 21
TabOrder = 4
end
object Button1: TButton
Left = 6
Top = 24
Width = 117
Height = 25
Caption = 'New message'
TabOrder = 5
OnClick = Button1Click
end
object ListBox1: TListBox
Left = 60
Top = 192
Width = 415
Height = 97
ItemHeight = 13
TabOrder = 6
end
object eTo: TEdit
Left = 78
Top = 156
Width = 145
Height = 21
TabOrder = 7
Text = 'niakoi@niekoihome.com'
end
object IdSMTP1: TIdSMTP
MaxLineAction = maException
ReadTimeout = 0
Port = 25
AuthenticationType = atNone
Left = 432
Top = 108
end
object OpenDialog1: TOpenDialog
Left = 444
Top = 174
end
end