E-mail gönderme...

[Zeynep_87]

forumda arama yaptırdım böyle bi konu açılmış hatta bilgi verilmiş. Ama anlamadım:(
Smtp den bahsedilmiş. Daha doğrusu bunu biri anlatırsa çok sevinirim.Nasıl e-mail gönderebilirim. Mail server nedir nasıl bulabilirim açıklayabilir misiniz?
Şimdiden teşekkürler...

[Delphi Kitabı]

[akrep]

Malzemeler;
1 adet ortaboy Memo,
1 adet IdMessage bileşeni,
1 adet IdSMTP bileşeni,
1 çimdik TButton.
(kodların çalışmama ihtimaline karşı denemek üzere "uses" kısmına eklenecek olan IdTCPConnection, IdTCPClient, IdMessageClient. Böyle söylüyorum çünkü uses kısmında bunların olması gerekiyomuydu tam hatırlamıyorum)

En basit haliyle;

Kod:

procedure TForm1.Button1Click(Sender: TObject);
var
gonderen,alici,konu,smtphost,smtpkullanici,smtpsifre:string;
smtpport:integer;
begin
IdMessage1.Clear;
IdMessage1.From.Text :=gonderen;
IdMessage1.ReplyTo.EMailAddresses:=gonderen;
IdMessage1.Recipients.EMailAddresses:=alici;
IdMessage1.Date:=Date;
IdMessage1.Subject:=konu;
IdMessage1.Priority:=mpNormal;
//server baglanti
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:=smtphost;
IdSMTP1.Port:=smtpport;
IdSMTP1.UserId:=smtpkullanici;
IdSMTP1.Password:=smtpsifre;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
memo1.Lines.Clear;
Showmessage('Gönderttim işte !');
end;

değişkenlere değer atamayı unutmayın, portlar,hostlar kullanacağınız mail adresine server'ına göre değişir. ayrıca "smtpkullanici" ve "smtpsifre", sizin e-mail adresiniz ve şifreniz olabilir.

isteğe göre üzerine hindistan cevizi..
Afiyet...

[akrep]

Noooooot : Arkadaşlarımıza "bilmemkim@bilmemne.gov.tr" yada "falanca@filancabank.com.tr" adresinden "15.000 ytl borcunuz bulunmaktadır ! Ödeyiniz!" şeklinde şaka maili göndermeden önce, mailin aslında nereden geldiğini anlamanın çok zor olmadığını, bu tür işlerin "pishing" adı verilen ve Türk Ceza Kanunu'na göre ciddi suç teşkil eden eylemlere çok benzediğini ve şakaların ciddiye alınabileceğini, tatsız olaylarla karşılaşılabileceğini unutmuyoruz.
O yüzden naapmıyoruz? öyle şaka yapmıyoruz.... hadi bakalım.

[Zeynep_87]

Çok saol. Eğer yine sorun olursa sorarım

[Zeynep_87]

IdSMTP  bu bileşen nerde...Biri acil söylesin lütfen....

[olsunartik]

component palette de indy clients tab inda.

[SelçuK]

IdSMTP  bu bileşen nerde...Biri acil söylesin lütfen....

sağolsun Akrep arkadaşım sana yardımcı olmuş. Beni de yanlış anlamassın
umarım şevkini kırmak istemem ancak bence hiç araştırma yapmıyorsunuz burası yeri
değil bunu  yazmak için ama belirtmeden de edemeyeceğim.
"Kodu" bir arkadaş vermiş, "component"in yerini bir arkadaş sölemiş delphiyi açınca otomatik
"form" açılıyor zaten peki burda program mı yazmış oluyoruz. Dediklerim için inşallah
sinirlenmez hırslanırsınız. İyi çalışmalar.

[Zeynep_87]

Bütün yorumlara ve cevaplara teşekkür ederim.
Fakat ben yaptım soket hatası diyo... Bunu nasıl hallederim....
Mail server nedir nasıl bulabilirim açıklayabilir misiniz?

[Kocaturk]

Bütün yorumlara ve cevaplara teşekkür ederim.
Fakat ben yaptım soket hatası diyo... Bunu nasıl hallederim....
Mail server nedir nasıl bulabilirim açıklayabilir misiniz?

Zeynep_87 öncelikle şunu tespit etmekte fayda var kodlama konusunda deneyimin ne? malum yenisin ama ne kadar yeni?  kullandığın IDE yi yeterince tanıyormusun? standart VCL bileşenleri hakkında ön bilgin varmı? bir yardım almadan standart VCL bileşenleri ile bir kaç farklı proje hazırlayabilirmisin? isteren sen bu gibi konular için Makaleler bölümüne de bir bak böyle kara düzen olmaz, sürekli aynı yerde dönüp dolaşırsın.
Kolay gelsin.