e-mail gönderme programı

   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

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
007musta Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Arkadaş Listeme Ekle Newbie Kayıt Tarihi: 30.Kasim.2009 Bulundugu Yer: samsun Online: Sitede Değil Gönderilenler: 2	Alıntı Cevapla 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

007musta Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Arkadaş Listeme Ekle Newbie Kayıt Tarihi: 30.Kasim.2009 Bulundugu Yer: samsun Online: Sitede Değil Gönderilenler: 2	Alıntı Cevapla 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

Deadly_scorpion Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Newbie YaŞaYan Ölü Kayıt Tarihi: 21.Temmuz.2007 Bulundugu Yer: Hüzün Adası Online: Sitede Değil Gönderilenler: 166	Alıntı Cevapla 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...