Jump to content
Forum Windows-az.com

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


AliZairov

Recommended Posts

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?

 

KHJFI_4613.jpg

 

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;

Link to comment
Share on other sites

Proqramlar telegramda

asibka vermesi normaldi cunki burda emal adresin password kodu yoxdu

cunki email ayzilirsa paswordda yazilmalidir

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

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;

Link to comment
Share on other sites

d75c122fb08f.jpg


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

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

  • 2 hafta sonra...

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;

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...