MyMessage.Body.Text:=Memo1.Text; 

  MyMessage.From.Address:='Gladiator@barnamenevi  s.org'; 

  MyMessage.Recipients.EMailAddresses:=edit1.Tex  t; 

  MyMessage.Subject:=edit2.Text; 

  TIdAttachment.Create(MyMessage.MessageParts,Op  enDialog1.FileName);  

  SMTP.Send(MyMessage);


برای ارسال نامه الکترونیک از طریق ایندی شما به یک کامپوننت TidMessage نیاز دارید ٬ به واسطه این کامپوننت شما میتونید بدنه نامه رو بسازید و بعد از طریق TidSMTP ارسال کنید .

در کد فوق من کامپوننت TidMessage رو به MyMessage تغییر نام دادم و همچنین TidSMTP رو به SMTP .

MyMessage.Body.Text:=Memo1.Text;

ابتدا متن نامه رو از طریق یک Memo میگیریم .

MyMessage.From.Address:='Gladiator@barnamenevi  s.org';

براش مشخص میکنیم که نامه از طرف چه کسی ارسال شده .

MyMessage.Recipients.EMailAddresses:=edit1.Tex  t;

مشخص میکنیم که نامه به چه آدرس یا آدرسهایی باید ارسال بشه .

MyMessage.Subject:=edit2.Text;

عنوان نامه رو مشخص میکنیم .

تا اینجا بدنه نامه الکترونیک رو هم Setup کردیم . اگر نیاز دارید که همراه این نامه یک فایل ضمیمه نیز ارسال کنید ٬ کافیه مسیر فایل مورد نظر رو مشخص کنید و به شکل ذیل عمل کنید :

TIdAttachment.Create(TidMessage.MessageParts,O  penDialog1.FileName);


TidAttachment به شما این امکان رو میده که به همراه پیام یک فایل رو هم ارسال کنید .

حالا نوبت به ارسال Email میرسه :

TidSMTP.Send(IdMessage);