فرستان کلمه عبور به mail

[Batman]

با سلام
دوستان من یه برنامه نوشتم که دارای نام کاربری و کلمه عبور هستش
در زیر قسمتی کاربر نام کاربری و کلمه عبور مربوط به خودش رو وارد میکنه یه label به اسم
"یاداوری کردن کلمه عبور" گذاتشتم حالا میخوام زمانیکه کاربر اینو زد کلمه عبور به emailی که قبلا در قسمت "تعریف کاربر جدید" وارد کرده ارسال بشه
ممنون از راهنمایی دوستان

[dkhatibi]

خوب ایمیل رو بخون. کلمه ی رمز ذخیره شده رو هم. بعد تو سایت سرچ کن. در مورد فرستادن میل زیاد بحث شده. البته مشکلاتی هستو اما من تونستم این کار رو انجام بدم. برای یک برنامه هک این کار کردم.

[Batman]

جناب خطیبی عزیز میشه بگید چطوری؟

[dkhatibi]

یک 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;

[Batman]

ممنونم تستش میکنم