Datakent Forum : e-mail gönderme programı http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : e-mail gönderme programı Sat, 25 Apr 2026 14:21:16 +0000 Tue, 13 Apr 2010 21:14:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=1835 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ e-mail gönderme programı : Smtp mail gönderimi gmail, mynet... http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4119#4119 Yazar: Deadly_scorpion
Konu: 1835
Gönderim Zamanı: 13.Nisan.2010 Saat 21:14

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

]]> Tue, 13 Apr 2010 21:14:30 +0000 http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4119#4119 e-mail gönderme programı : resimdeki örneğin resmi,bn öle... http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4022#4022 Yazar: 007musta
Konu: 1835
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]]> Mon, 30 Nov 2009 11:19:57 +0000 http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4022#4022 e-mail gönderme programı : slm beyler bn yaptığım programın... http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4021#4021 Yazar: 007musta
Konu: 1835
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]]> Mon, 30 Nov 2009 11:07:40 +0000 http://forum.datakent.com/forum_posts.asp?TID=1835&PID=4021#4021