Mail göndərmə proqramı yığıram kodlarda səhv var

[AliZairov]

Hamıya salam. Mən Delphi 7 ilə Mail Göndərmək proqramı yığıram. Amma kodlar düz gəlmir. Səhv nədə ola bilər?

 

 

Bu şəkildəki kimi istəyirəm edim kodlaşmanı.

 

Kodları budur.

 

Avtomatik olaraq E-mail göndərmək

 

Bunun üçün 'TNMSMTP' komponentindən istifadə edəcəyik

 

procedure TForm1.Button1Click(Sender: TObject);

begin

NMSMTP1.Host := 'smtp.mailserver.com'; \\\\ misal üçün : smtp.live.com

NMSMTP1.UserID := 'windows-az.com'; \\\\ username burda yazılır

NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'windows-az.com@box.az'; \\\\ göndərənin ünvanı

NMSMTP1.PostMessage.ToAddress.Text := 'windows-az.com@box.az'; \\\\göndəriləcək ünvan

NMSMTP1.PostMessage.Body.Text := 'Məktubun metni';

NMSMTP1.PostMessage.Subject := 'Mətnin mövzusu';

NMSMTP1.SendMail;

end;

[Ʌüsal]

windows-az.com

bu username ola bilmez oz emalini yazmalisan

[AliZairov]

Ʌüsal salam. Olmur oşıbka verir. Mənə video dərslə və ya yazılı olaraq tam izah edə bilrsən. 3 dənə kod yoxladım olmadı.

[Ʌüsal]

asibka vermesi normaldi cunki burda emal adresin password kodu yoxdu

cunki email ayzilirsa paswordda yazilmalidir

[AliZairov]

Vüsal salam. Bax bunlarıda yoxladım yenə olmur.

 

Delphi ile email göndermek..

Cogumuzun yazdigi programlarda en önemli ihtiyaclardan biri de gerekli yerlere gerekli mesajlarin iletilebilmesidir. Bunuda en saglikli olarak email yolu ile yapabiliriz. Delphide bir email adresine email göndermek asagidaki sekille yapilir.

 

NMSMTP componentini formun üstüne yerlestirin;

 

Öncelikle Mail server`a baglanmaniz gerekmekte bunun icin:

 

SMTP.Host := 'mail.isbank.com.tr'

 

SMTP.Connect;

 

Daha sonra NMSMTPnin OnConnectine asagidaki komutlari size uygun sekilde yazin;

 

procedure TMainForm.SMTPConnect(Sender: TObject);

 

begin

 

with SMTP.PostMessage do begin

 

FromAddress := 'deneme@deneme.com';

 

ToAddress.add('admin@ergenchukukgrubu.com');

 

subject := 'Konu';

 

body.add('Bu bir deneme mesajidir');

 

end;

 

SMTP.SendMail;

 

end;

 

 

 

Delphi de MaiL Gönderme

7

фев

 

Delphi’de e-mail bir çok yolla gönderilebilir. Projede e-mail sunucusu olarak SMTP kullanılmıştır. Eğer e-mail’ lerin görülmesi istenseydi POP3 sunucu kullanmak gerekirdi.

 

Forma Indy Clients menüsünden “IdSMTP” ve Indy Misc menüsünden ”IdMessage” bileşenleri yerleştirilir. IdSMTP nesnesi SMTP mail sunucusuna bağlanmayı sağlar.

 

IdSMTP nesnesi seçili iken Properties kısmından Authentication özelliği AtLogin seçilip mail adresinin şifreli olanı seçilir. Properties kısmından Host kısımına gelinir. Bu kısım mail sunucusunun adresinin yazıldığı yerdir. Bu adres mail gönderimi yapacak mail adresinin mail sunucusunun adresi olmalıdır.

 

Burada kendi Domain’ imiz üzerinden bir e-mail adresi alıp o sunucuyu kullanmış bulunmaktayız. Domain’ imiz “tuncayozer.com” dur. Server üzerinde mail sunucuları “mail” subdomain’ i üzerine kurulu gelmektedir. Böylelikle mail host adresimiz “mail.tuncayozer.com” olur. Bu adres host kısmına yazılır. Port kısmına ise Properties penceresinden Server’ ın mail portu yazılarak geçilir. Bu port bizim kullandığımız Server’ da “25” veya Türk Telekom tarafından atanan "587" Port kısmına da bu yazıldıktan sonra username ve password kısımlarına, Authentication kısmı Atlogin seçildiği için kullanıcı adı ve şifre verilmesi gerekir.

Bu bilgiler e-mail adresimizin kendi bilgileri olacaktır. Username kısmına “@” yerine “+” kullanılmak üzere mail adresi yazılır. Şifreye ise e-mail’ i açarken ayarlanan şifre yazılır. Böylelikle IdSMTP bağlantıya hazır konuma gelir. Sonra gönder tuşuna gerekli kodlar eklenir e-mail göndermeye hazır konuma getirilir.

 

IdMessage memo’ daki gönderilmek üzere tutulmuş yazıyı tutup ve konuyu da subject olarak alıp mail tipinde saklamaktadır. IdMessage nesneside SMTP’ ye yönlendirildiği zaman yazılı olan metni sunucuya bağlı olan mail Server’ ını kullanarak tanıtılmış olan mail adresine gönderim yapar.

 

KODLAR:

//Gönder butonuna eklenecek kod

 

procedure TMailGonder.Button2Click(Sender: TObject);

begin

 

//SMTP Ayarı

 

//setup mail message MailMessage.From.Address := dbedit1.Text;

 

MailMessage.Recipients.EMailAddresses := 'xxxx@gmail.com';

 

MailMessage.Subject := dbedit2.Text; MailMessage.Body.Text := dbmemo1.Text;

 

//maiLi Gönder

 

try SMTP.Connect(1000); SMTP.Send(MailMessage);

 

finally if SMTP.Connected then SMTP.Disconnect; end; AdoTable1.Post; showmessage('Mailiniz gönderilmiştir');

 

end;

 

 

En son olarakta OnSuccess `e asagidakileri yazin;

 

procedure TForm1.SMTPSuccess(Sender: TObject);

begin

SMTP.disconnect;

end;

[Ʌüsal]

IdSMTP1 ve IdMessage1 komponentlerini menyudan elave edirsen

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
form1.IdSMTP1.Host :=edit1.Text; // smtp adresi yazilmalidir
form1.IdSMTP1.Username :=edit2.Text;
form1.IdSMTP1.Password :=edit3.Text;
form1.IdSMTP1.AuthenticationType:=atLogin;
form1.idsmtp1.Port:= 25;
try
form1.IdSMTP1.Connect;
except

end;
form1.IdMessage1.From.Address :=edit2.Text; // kimden
form1.IdMessage1.Recipients.EMailAddresses:=edit5.Text;// kime
form1.IdMessage1.Subject :=edit4.Text; // movzu
form1.IdMessage1.Body.add(memo1.Text);// mesaj
form1.IdSMTP1.Send(form1.IdMessage1);
form1.IdSMTP1.Disconnect;
form1.IdMessage1.Clear;
label1.Caption:='E-Mail Ugurla Gonderildi!';
end;
end;

Qeyd edimki bu kodu Mail Sender v1.0 versiyasinin kodudur

[AliZairov]

Vüsal tşk. Allah razı olsun. Alındı.

[Huseyn.]

Vusal bunun dizayni 1 az yaxwi olani var..???

[Ʌüsal]

nece yeni?

[Huseyn.]

Vusal IdSMTP1 ve IdMessage1 bunlari nece elave eliyim . Ede bilmedim mene komekliy ede bilersen Mumkunsa 1 video cekde.

 

..??

[Ʌüsal]

1.jpg

2.jpg

[Huseyn.]

Mende onlar yoxdu axi ...

[Ʌüsal]

sen hansi delphini yuklemisen?

[Huseyn.]

BU saytdan yuklemiwem Delphi7 isdifadecisinin yuklediyi.

[Ʌüsal]

adini tam yaz

[Huseyn.]

Tapdim tezden yukledim duzeldi. Indi onlari forma elave eliyim ..??

 

Vusal vaxdin olsa 1 video duzelt de bunun ucun 1 de onlari forma elave eledim sonra forma buton da elave eliyim ...???????

[Ʌüsal]

sekilde gostermisem forumda neler var

[Huseyn.]

Eliyirem nese alinmir....

[Ʌüsal]

kodlari yendien incele

[Huseyn.]

Onu bilmirem axi hara nece elave eliyim ..

[Ʌüsal]

Buttona kli kedirsen asagiaki kodu yazirsan

 

begin

form1.IdSMTP1.Host :=edit1.Text; // smtp adresi yazilmalidir

form1.IdSMTP1.Username :=edit2.Text;

form1.IdSMTP1.Password :=edit3.Text;

form1.IdSMTP1.AuthenticationType:=atLogin;

form1.idsmtp1.Port:= 25;

try

form1.IdSMTP1.Connect;

except

 

end;

form1.IdMessage1.From.Address :=edit2.Text; // kimden

form1.IdMessage1.Recipients.EMailAddresses:=edit5.Text;// kime

form1.IdMessage1.Subject :=edit4.Text; // movzu

form1.IdMessage1.Body.add(memo1.Text);// mesaj

form1.IdSMTP1.Send(form1.IdMessage1);

form1.IdSMTP1.Disconnect;

form1.IdMessage1.Clear;

label1.Caption:=\'E-Mail Ugurla Gonderildi!\';

end;

end;

[Huseyn.]

Bilmirem axi neyi hara elave eliyim hansi butona ..?? nece ..?? 1-ci defedi delphi iwdedirem.

[Ʌüsal]

delphi haqda derslilere abx menyularini oyren sonra program yigmaga basla.

[Huseyn.]

Biraz baxib oyrendim eee prosda sen onu bir az aciq aydin yaz da men forma o 2 dene yazdiglarivi elave eledim eee kodu da yazdim . amma yoxlamaq ucun play vururam kodda sehv gosderir mumkunse senin elinde 2 deqiqelik iwdi onun videosunu cekde ...............????????

[Huseyn.]

Kimse mene komekliy eliye biler..????