Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Kendi Mail Gönderme Programınızı Yapın - Delphi7
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="YoRuMSuZ" data-source="post: 107473" data-attributes="member: 1"><p>Öncelikle şunu belirtmeliyim ki programdan sağlık verimli alabilmeniz için SMTP desteği veren bir mailiniz olması gerekir. Eğer bir hosting sahibiyseniz size host firması bu desteği zaten veriyordur.</p><p></p><p>Ücretsiz SMTP desteği veren hotpop.com var ancak çok sağlıksız çalışıyor.</p><p></p><p><a href="https://www.cerezforum.com/konu/gizli-mail-istediginiz-adresten-mail-gonderin.18103/" target="_blank"><strong>Burada</strong></a> tanıttığım program da aynı mantıkla çalışıyor. Tek farkı eklenti eklenebilmesi.</p><p></p><p><strong>Programımıza geçelim. </strong>Çok yeni olsanız bile anlayacağınız şekilde anlatıyorum.</p><p></p><p>Form üzerine <strong>Standart </strong>sekmesinde bulunan bileşenlerden 4 adet Edit, 1 adet Memo, 2 adet Button yerleştiriyoruz. Bir de mail gönderme durumumuzu gösteren Label bileşeni ekliyoruz. (Edit kutuları açıklamaları için de kendinize göre labeller girebilirsiniz)</p><p></p><p>Şimdi <strong>Indy Clients </strong>sekmesinden bir adet IdSMTP, ve <strong>Indy Misc </strong>sekmesinden bir adet IdMessage bileşeni ekliyoruz.</p><p></p><p>Artık formumuz yaklaşık alttaki gibi görünüyor olmalı. Siz tabii farklı bir yerleşim seçebilirsiniz.</p><p></p><p>Form üzerine yerleştirdiğimiz <strong>IdSMTP1 </strong>bileşenini seçili hale getirip <strong>Object Inspector > Properties </strong>sekmesinden gerekli ayarları yapıyoruz. Buradaki ayarlar;</p><p></p><p><strong>AuthenticationType</strong> : atLogin</p><p><strong>Host </strong>: SMTP destekli host adresi (SMTP ayarlarında bunun nasıl girileceği zaten gösteriliyor)</p><p><strong>Password </strong>: Mail adresimizin şifresi</p><p><strong>Usarname</strong> : Mail adresimiz.</p><p></p><p>Bu işlemde bittiğine göre "<strong>Gönder</strong>" butonuna tıklayarak mailimizi göndermek için gerekli kodları girmek kaldı.</p><p></p><p>Form üzerine yerleştirdiğimiz botonlardan birinin <strong>Caption </strong>özelliğine Gönder, diğerine <strong>Kapat </strong>yazalım.</p><p></p><p>Şimdi Button1'e çift tıklayıp OnClick yordamına şu kodları girin.</p><p></p><p>[code]</p><p> IdMessage1.From.Address := Edit1.Text;</p><p> IdMessage1.Recipients.EMailAddresses := Edit2.Text;</p><p> IdMessage1.BccList.Add.Address := Edit3.Text;</p><p> IdMessage1.Subject := Edit4.Text;</p><p> IdMessage1.Body.Text := Memo1.Text;</p><p></p><p> try</p><p> try</p><p> Label6.Caption := 'Lütfen Bekleyiniz ...';</p><p> IdSMTP1.Connect(1000);</p><p> IdSMTP1.Send(IdMessage1);</p><p> except on E:Exception do</p><p> Label6.Caption := 'Server meşgul. Daha sonra deneyin!';</p><p> end;</p><p> finally</p><p> Label6.Caption := 'MESAJINIZ GÖNDERİLDİ';</p><p> if IdSMTP1.Connected then IdSMTP1.Disconnect;</p><p> end;</p><p>[/code]F12 ye basıp form ekranına dönün ve Button2'ye çift tıklayıp OnClikk yordamına;</p><p>[code]Close;[/code]yazdık.</p><p></p><p>İşlemimiz bu kadar. Artık F9 'a basıp programımızı derleyebilir ve hemen kendi mailimize bir ileti göndermekle deneme yapabiliriz.</p><p></p><p>Kolay gelsin.</p><p></p><p>Bu programla ilgili kaynak kodları <a href="http://e-cozum.net/?dl_id=78" target="_blank"><strong>BURADAN</strong></a> indirebilirsiniz.</p><p></p><p>Program derlenmiş halede şu şekilde görünecek.</p><p></p><p><img src="http://i.imgur.com/ev7LLfh.png" alt="" class="fr-fic fr-dii fr-draggable " style="" /></p><p></p><p>Form kaynak kodları yaklaşık alttaki şekilde görünüyor olmalı.</p><p>[code]unit Unit1;</p><p></p><p>interface</p><p></p><p>uses</p><p> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p> Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,</p><p> IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;</p><p></p><p>type</p><p> TForm1 = class(TForm)</p><p> Edit1: TEdit;</p><p> Edit2: TEdit;</p><p> Edit3: TEdit;</p><p> Label1: TLabel;</p><p> Label2: TLabel;</p><p> Label3: TLabel;</p><p> Edit4: TEdit;</p><p> Label4: TLabel;</p><p> Memo1: TMemo;</p><p> Label5: TLabel;</p><p> Button1: TButton;</p><p> Button2: TButton;</p><p> IdSMTP1: TIdSMTP;</p><p> IdMessage1: TIdMessage;</p><p> Label6: TLabel;</p><p> procedure Button1Click(Sender: TObject);</p><p> procedure Button2Click(Sender: TObject);</p><p> private</p><p> { Private declarations }</p><p> public</p><p> { Public declarations }</p><p> end;</p><p></p><p>var</p><p> Form1: TForm1;</p><p></p><p>implementation</p><p></p><p>{$R *.dfm}</p><p></p><p>procedure TForm1.Button1Click(Sender: TObject);</p><p>begin</p><p> IdMessage1.From.Address := Edit1.Text;</p><p> IdMessage1.Recipients.EMailAddresses := Edit2.Text;</p><p> IdMessage1.BccList.Add.Address := Edit3.Text;</p><p> IdMessage1.Subject := Edit4.Text;</p><p> IdMessage1.Body.Text := Memo1.Text;</p><p></p><p> try</p><p> try</p><p> Label6.Caption := 'Lütfen Bekleyiniz ...';</p><p> IdSMTP1.Connect(1000);</p><p> IdSMTP1.Send(IdMessage1);</p><p> except on E:Exception do</p><p> Label6.Caption := 'Server meşgul. Daha sonra deneyin!';</p><p> end;</p><p> finally</p><p> Label6.Caption := 'MESAJINIZ GÖNDERİLDİ';</p><p> if IdSMTP1.Connected then IdSMTP1.Disconnect;</p><p> end;</p><p>end;</p><p></p><p>procedure TForm1.Button2Click(Sender: TObject);</p><p>begin</p><p> Close;</p><p>end;</p><p></p><p>end.[/code]</p></blockquote><p></p>
[QUOTE="YoRuMSuZ, post: 107473, member: 1"] Öncelikle şunu belirtmeliyim ki programdan sağlık verimli alabilmeniz için SMTP desteği veren bir mailiniz olması gerekir. Eğer bir hosting sahibiyseniz size host firması bu desteği zaten veriyordur. Ücretsiz SMTP desteği veren hotpop.com var ancak çok sağlıksız çalışıyor. [URL='https://www.cerezforum.com/konu/gizli-mail-istediginiz-adresten-mail-gonderin.18103/'][B]Burada[/B][/URL] tanıttığım program da aynı mantıkla çalışıyor. Tek farkı eklenti eklenebilmesi. [B]Programımıza geçelim. [/B]Çok yeni olsanız bile anlayacağınız şekilde anlatıyorum. Form üzerine [B]Standart [/B]sekmesinde bulunan bileşenlerden 4 adet Edit, 1 adet Memo, 2 adet Button yerleştiriyoruz. Bir de mail gönderme durumumuzu gösteren Label bileşeni ekliyoruz. (Edit kutuları açıklamaları için de kendinize göre labeller girebilirsiniz) Şimdi [B]Indy Clients [/B]sekmesinden bir adet IdSMTP, ve [B]Indy Misc [/B]sekmesinden bir adet IdMessage bileşeni ekliyoruz. Artık formumuz yaklaşık alttaki gibi görünüyor olmalı. Siz tabii farklı bir yerleşim seçebilirsiniz. Form üzerine yerleştirdiğimiz [B]IdSMTP1 [/B]bileşenini seçili hale getirip [B]Object Inspector > Properties [/B]sekmesinden gerekli ayarları yapıyoruz. Buradaki ayarlar; [B]AuthenticationType[/B] : atLogin [B]Host [/B]: SMTP destekli host adresi (SMTP ayarlarında bunun nasıl girileceği zaten gösteriliyor) [B]Password [/B]: Mail adresimizin şifresi [B]Usarname[/B] : Mail adresimiz. Bu işlemde bittiğine göre "[B]Gönder[/B]" butonuna tıklayarak mailimizi göndermek için gerekli kodları girmek kaldı. Form üzerine yerleştirdiğimiz botonlardan birinin [B]Caption [/B]özelliğine Gönder, diğerine [B]Kapat [/B]yazalım. Şimdi Button1'e çift tıklayıp OnClick yordamına şu kodları girin. [code] IdMessage1.From.Address := Edit1.Text; IdMessage1.Recipients.EMailAddresses := Edit2.Text; IdMessage1.BccList.Add.Address := Edit3.Text; IdMessage1.Subject := Edit4.Text; IdMessage1.Body.Text := Memo1.Text; try try Label6.Caption := 'Lütfen Bekleyiniz ...'; IdSMTP1.Connect(1000); IdSMTP1.Send(IdMessage1); except on E:Exception do Label6.Caption := 'Server meşgul. Daha sonra deneyin!'; end; finally Label6.Caption := 'MESAJINIZ GÖNDERİLDİ'; if IdSMTP1.Connected then IdSMTP1.Disconnect; end; [/code]F12 ye basıp form ekranına dönün ve Button2'ye çift tıklayıp OnClikk yordamına; [code]Close;[/code]yazdık. İşlemimiz bu kadar. Artık F9 'a basıp programımızı derleyebilir ve hemen kendi mailimize bir ileti göndermekle deneme yapabiliriz. Kolay gelsin. Bu programla ilgili kaynak kodları [URL='http://e-cozum.net/?dl_id=78'][B]BURADAN[/B][/URL] indirebilirsiniz. Program derlenmiş halede şu şekilde görünecek. [IMG]http://i.imgur.com/ev7LLfh.png[/IMG] Form kaynak kodları yaklaşık alttaki şekilde görünüyor olmalı. [code]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit4: TEdit; Label4: TLabel; Memo1: TMemo; Label5: TLabel; Button1: TButton; Button2: TButton; IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; Label6: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin IdMessage1.From.Address := Edit1.Text; IdMessage1.Recipients.EMailAddresses := Edit2.Text; IdMessage1.BccList.Add.Address := Edit3.Text; IdMessage1.Subject := Edit4.Text; IdMessage1.Body.Text := Memo1.Text; try try Label6.Caption := 'Lütfen Bekleyiniz ...'; IdSMTP1.Connect(1000); IdSMTP1.Send(IdMessage1); except on E:Exception do Label6.Caption := 'Server meşgul. Daha sonra deneyin!'; end; finally Label6.Caption := 'MESAJINIZ GÖNDERİLDİ'; if IdSMTP1.Connected then IdSMTP1.Disconnect; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; end.[/code] [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Ülkemizin kuzeyindeki deniz hangisidir? (bitişik yazınız)
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Kendi Mail Gönderme Programınızı Yapın - Delphi7
Top