PDA

View Full Version : ارسال ایمیل



hamzehshabani
پنج شنبه 24 اردیبهشت 1388, 17:11 عصر
سلام دوستای عزیزم
من تازه برنامه نویسی رو شروع کردم و اطلاعاتم راجع بهش خیلی کمه، میخواستم یه برنامه بنویسم که یه فرم با چندتا تکست باکس داشته باشه و کاربر مشخصات خودشو تو فرم وارد کنه (مثل نام-نام خوانوادگی و...) و وقتی رو کلید ارسال کلیک کرد برنامه یه ایمیل به آدرس من بفرسته (hamzeh.shabani@gmail.com) و مشخصاتش مثل یه نامه بهم سند بشه.
چطور میتونم این برنامه رو بنویسم؟
میشه کمکم کنید و سورس یا آموزشی برای این کار بذارید؟

سعید صابری
پنج شنبه 24 اردیبهشت 1388, 17:57 عصر
سلام

منبع كد Delphi.about.com




StatusMemo.Clear;

//setup SMTP
SMTP.Host := ledHost.Text;
SMTP.Port := 25;

//setup mail message
MailMessage.From.Address := ledFrom.Text;
MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;

MailMessage.Subject := ledSubject.Text;
MailMessage.Body.Text := Body.Text;

if FileExists(ledAttachment.Text) then TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text) ;

//send mail
try
try
SMTP.Connect(1000) ;
SMTP.Send(MailMessage) ;
except on E:Exception do
StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message) ;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;

end; (* btnSendMail Click *)


اينم ادرس سورش
http://delphi.about.com/library/weekly/code/src020304.zip