طلب مساعده من الاخ SUM او من يستطيع بخصوص هذا الكود

عملت هذا الكود لأرسال بريد ولكن لم يشتغل معي جيدا فما السبب

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Psock, NMsmtp;

type

TForm1 = class(TForm)

SMTP: TNMSMTP;

host: TEdit;

fromadr: TEdit;

fromnam: TEdit;

subject: TEdit;

toadr: TEdit;

Memobody: TMemo;

username: TEdit;

attachem: TEdit;

addattach: TButton;

startsending: TButton;

Openattach: TOpenDialog;

Label1: TLabel;

Button1: TButton;

procedure addattachClick(Sender: TObject);

procedure startsendingClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.addattachClick(Sender: TObject);

begin

OpenAttach.Execute;

if OpenAttach.FileName = '' then Exit;

Attachem.Text := OpenAttach.FileName;

end;

procedure TForm1.startsendingClick(Sender: TObject);

begin

SMTP.Host := Host.Text;

SMTP.PostMessage.Attachments.Add(Attachem.Text);

SMTP.PostMessage.Body.Add(MemoBody.Text);

SMTP.PostMessage.FromAddress := FromAdr.Text;

SMTP.PostMessage.FromName := FromNam.Text;

SMTP.PostMessage.LocalProgram := 'The name of your program';

SMTP.PostMessage.ReplyTo := FromAdr.Text;

SMTP.PostMessage.Subject := Subject.Text;

SMTP.PostMessage.ToAddress.Add(ToAdr.Text);

SMTP.UserID := UserName.Text;

SMTP.Connect;

try SMTP.SendMail; except

ShowMessage('خطأ');

Exit;

end;

end.

طلب مساعده من الاخ SUM او من يستطيع بخصوص هذا الكود

مواضيع مشابهة

عدد الزوار حالياً