مساعدة: في ارسال ايميل مباشر بدون استعمال برامج خارجية

procedure TForm1.Button1Click(Sender: TObject);

begin

with NMSMTP1 do

begin

Host := 'smtp.mailserver.com';

UserID := 'salah';

Connect;

PostMessage.FromAddress := 'salah@mail.com';

PostMessage.ToAddress.Text := 'ahmed@mail.com';

PostMessage.Body.Text := 'نص الرسالة';

PostMessage.Subject := 'موضوع الرسالة';

SendMail;

end;

end;

begin

NMSMTP1.Host := 'mail.host.com';

NMSMTP1.UserID := 'Username';

NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'your_mail@host.com';

NMSMTP1.PostMessage.ToAddress.Text := 'to@mail.com';

NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com';

NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'your_mail@host.com';

NMSMTP1.PostMessage.Body.Text := 'This is the message from my Delphi project';

NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt';

NMSMTP1.PostMessage.Subject := 'Delphi is Great!';

NMSMTP1.SendMail;

ShowMessage('Mail sent !');

NMSMTP1.Disconnect;

end;

Components->Install Packages->Add->

dclnmf70.bpl

uses

IdSMTP, IdMessage;

procedure TForm1.Sendmail;

var

M: TIdMessage;

SMTP: TIdSMTP;

i:integer;

begin

M := TIdMessage.Create(nil)

M.From.Text := 'sendfrom@mail.com';

M.Recipients.Add;

M.Recipients.Items[0].Text := 'sendto@mail.com';

M.Subject := 'Test';

M.Body.Add('Hello');

SMTP := TIdSMTP.Create(nil);

SMTP.AuthenticationType := atLogin;

SMTP.Password:='password';

SMTP.Username:='login';

SMTP.Host := 'pop.mail.com';

SMTP.Connect;

if SMTP.Connected then

begin

For i:=1 to 100 do begin

SMTP.Send(M);

//Gauge1.Progress:=i;

Application.ProcessMessages;

end;

SMTP.Disconnect;

end;

end;