یک TidMessage و یک Tsmtp را از صفحه ی INdy روی فرم بگذارید
به توضیحات نوشته شده توجه کنید.
Function SendMail:boolean;
var
IP,ss:string;
begin
if not form1.SMTP.Connected then
begin
ip:='';
DetectHostIP(IP);
form1.SMTP.Host:='mx2.mail.yahoo.com';
form1.SMTP.Port:=25;
form1.SMTP.Username:=''//a yahoo username;
form1.SMTP.Password:=''//password of username above;
form1.MyMessage.Body.Text:=//uour password that you want send.;
form1.MyMessage.Recipients.EMailAddresses:=''// TO Address;
form1.MyMessage.Subject:=datetimetostr(now);
// TIdAttachment.Create(MyMessage.MessageParts,OpenDi alog1.FileName);
Try
try
form1.SMTP.Connect(100000);
form1.SMTP.Send(form1.MyMessage);
Result:=true;
Finally
Form1.SMTP.Disconnect
end;
except
Result:=False;
end;
end;
if form1.SMTP.connected then form1.SMTP.Disconnect;
end;