Sayfayı Yazdır | Pencereyi Kapat

e-mail gönderme programı

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1835
Tarih: 26.Nisan.2024 Saat 14:57


Konu: e-mail gönderme programı
Mesajı Yazan: 007musta
Konu: e-mail gönderme programı
Mesaj Tarihi: 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 - http://i0911.hizliresim.com/2009/11/30/1618.jpg


Cevaplar:
Mesajı Yazan: 007musta
Mesaj Tarihi: 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

Mesajı Yazan: Deadly_scorpion
Mesaj Tarihi: 13.Nisan.2010 Saat 21:14

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



-------------
Belki bir parça tuhafım...


Sayfayı Yazdır | Pencereyi Kapat