Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: e-mail gönderme programı
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

e-mail gönderme programı

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
007musta Açılır Menü Göster
Newbie
Newbie


Kayıt Tarihi: 30.Kasim.2009
Bulundugu Yer: samsun
Online: Sitede Değil
Gönderilenler: 2
  Alıntı 007musta Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: e-mail gönderme programı
    Gönderim Zamanı: 30.Kasim.2009 Saat 11:07
slm beyler bn yaptığım programın tutulan loglarını postama gelmesini istiyorum bunun için open diyolog olmasını istemiyorum cunku log herzaman aynı yerde aynı isimde kayıt ettiği için dosya yolunu tanıması lazım bide gmail şifreli ama bn mynet kodu buldum(gmaile göndermemiz lazım)(yani atnone atlogin olcak ama işin içinden cıkamadım) yardımcı olursanız sevinirim.(gmail host da lazım)
 

􀂙 Birinci adımda formunuza “Indy Client” yaprağında yer alan “IdSMTP

kontrolünü yerleştiriniz.

􀂙 İkinci adımda formunuza “Indy Misc” yaprağında yer alan “IdMessage

kontrolünü yerleştiriniz.

􀂙 Üçüncü adımda formunuza bir adet “OpenDialog” kontrolü yerleştiriniz.

􀂙 Dördüncü adımda aşağıda verilen kod bloğunu “Unit” pencerenize

ekleyin

 

procedure TForm1.Button1Click(Sender: TObject);

begin

IdSMTP1.Host:='www.mynet.com';

IdSMTP1.AuthenticationType:=atnone;//şifre yok

IdSMTP1.Username:=Edit1.Text;

IdSMTP1.Port:=25;

IdSMTP1.Connect;

IdMessage1.From.Name:=Edit1.Text;

IdMessage1.From.Address:='n_demirli@mynet.com';

IdMessage1.Subject:=Edit4.Text;//Başlık

IdMessage1.Body.Assign(Memo1.Lines);//Mesaj İçeriği

IdMessage1.ReplyTo.EMailAddresses:='n_demirli@mynet.com';

IdMessage1.Recipients.EMailAddresses:=Edit2.Text;//Buraya Yolla

IdMessage1.BccList.EMailAddresses:=Edit3.Text;//Bunlarada gitsin

IdSMTP1.Send(IdMessage1); //yolla

IdSMTP1.Disconnect;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

yol:AnsiString;

begin

if OpenDialog1.Execute Then

yol:=OpenDialog1.FileName;

TIdAttachment.Create(IdMessage1.MessageParts,yol);//ekle

if CheckBox1.Checked=false Then

begin

CheckBox1.Visible:=true;

CheckBox1.Checked:=true;

CheckBox1.Caption:=ExtractFileName(yol);//dosyanın adını yaz

CheckBox1.Enabled:=false;

end

else if CheckBox2.Checked=false Then

begin

CheckBox2.Visible:=true;

CheckBox2.Checked:=true;

328

CheckBox2.Caption:=ExtractFileName(yol);

CheckBox2.Enabled:=false;

end

else if CheckBox3.Checked=false Then

begin

CheckBox3.Visible:=true;

CheckBox3.Checked:=true;

CheckBox3.Caption:=ExtractFileName(yol);

CheckBox3.Enabled:=false;

end

else

showMessage('Maximum 3 Dosya Ekleyebilirsiniz');

Edit5.Text:=yol;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

CheckBox1.Visible:=false;

CheckBox2.Visible:=false;

CheckBox3.Visible:=false;

Edit1.Text:='Nihat Demirli';

Edit2.Text:='n_demirli@mynet.com';

Edit3.Text:='prestige@prestigeturk.com';

Edit4.Text:='Yeni Kitaplar İçin Görüş';

end;

http://i0911.hizliresim.com/2009/11/30/1618.jpg
Yukarı Dön
007musta Açılır Menü Göster
Newbie
Newbie


Kayıt Tarihi: 30.Kasim.2009
Bulundugu Yer: samsun
Online: Sitede Değil
Gönderilenler: 2
  Alıntı 007musta Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 30.Kasim.2009 Saat 11:19
resimdeki örneğin resmi,bn öle istemiyorum acılınca direk o uzantıdaki dosyayı yollasın bana istiyorum öle dosya ekle  gönder falan istemiyorum anlıcanız 30 dk bi posta atsın istiyorum
Yukarı Dön
Deadly_scorpion Açılır Menü Göster
Newbie
Newbie
Simge
YaŞaYan Ölü

Kayıt Tarihi: 21.Temmuz.2007
Bulundugu Yer: Hüzün Adası
Online: Sitede Değil
Gönderilenler: 166
  Alıntı Deadly_scorpion Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 13.Nisan.2010 Saat 21:14

Smtp mail gönderimi gmail, mynet gibi email sitelerinden olmuyor şuan.

Belki bir parça tuhafım...
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,215 Saniyede Yüklendi. [power by : WebWiz]