سؤال عن الإيميل

1- عن طريق اوتلوك

uses
  ComObj;

procedure MailItem;
const
  olMailItem = 0;
var
  Outlook: OLEVariant;
  MailItem: Variant;
begin
  try
	Outlook := GetActiveOleObject('Outlook.Application');
  except
	Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(olMailItem);
  // send to email address here
  MailItem.Recipients.Add('xxx@xxx.com');
  // su
  MailItem.Subject := 'your subject';
  MailItem.Body := 'This is sample text';
  MailItem.Attachments.Add('C:\Windows\Win.ini');
  MailItem.Send;
  Outlook := Unassigned;
end;

2- مثال ارسال عن طريق مكونات Indy في المرفقات

SendMail.rar

بارك الله فيك يا أخي الكريم و جعلها الله في ميزان حسناتك

عندي سؤال هل يوجد كود أي دون مكون لإرسال الإيميل

شكرا

راجع هذا الرابط فربما يفيدك

/index.php?showtopic=132138

ترد مكون ؟

مع انه يمكنك عمل ذلك دون مكون

جرب:

َ UtilMind sendmail

http://www.appcontrols.com/components.html

TSMMAPIMail component

http://www.scalabium.com/mapimail.htm

ChilkatMail

http://www.chilkatsoft.com/ChilkatMail.asp

TSmtpRelayServer

http://www.legitima.com/delphi.htm

المزيد ؟

http://www.vclcomponents.com/catalog/Mail

شكر للإخوة الكرام على الإهتمام