15-05-2014, 10:35 AM
السلام عليكم
اين اجد مكون TNMSMTP المستخدم في هذا الكود
عما ان هذا الكود لأرسال ايميل سأقوم بأضافته لتعم الفائدة الجميع
اين اجد مكون TNMSMTP المستخدم في هذا الكود
عما ان هذا الكود لأرسال ايميل سأقوم بأضافته لتعم الفائدة الجميع
كود :
// You must use the component TNMSMTP from FastNet tools.
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'mail.host.com';
NMSMTP1.UserID := 'Username';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'admin@delphitricks.com';
NMSMTP1.PostMessage.ToAddress.Text := 'user@host.com';
NMSMTP1.PostMessage.ToCarbonCopy.Text := 'AnotherUser@host.com';
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'AnotherUser@host.com';
NMSMTP1.PostMessage.Body.Text := 'This is the message';
NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt';
NMSMTP1.PostMessage.Subject := 'Mail subject';
NMSMTP1.SendMail;
ShowMessage('Mail sent !');
NMSMTP1.Disconnect;
end;
الحمد لله الذي وفقني

