Merhaba hocalar... Edit. Box lara yazılan yazıların Button a tıklandığı anda benim e-mail adresime yollanmasını nasıl sağlayabilirim? since 2005 // tbt

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdPOP3, IdMessage, ComCtrls, ImgList, XPMenu, Buttons; type TForm1 = class GroupBox1: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; IdPOP31: TIdPOP3; Label4: TLabel; Label5: TLabel; Button1: TButton; Button2: TButton; ListView1: TListView; IdMessage1: TIdMessage; Button3: TButton; GroupBox2: TGroupBox; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; ListBox1: TListBox; SaveDialog1: TSaveDialog; Button4: TButton; Memo1: TMemo; Button5: TButton; ImageList1: TImageList; XPMenu1: TXPMenu; SpeedButton1: TSpeedButton; procedure Button1Click ; procedure Button2Click ; procedure Button3Click ; procedure ListView1Click ; procedure Button4Click ; procedure Button5Click ; procedure Edit3KeyPress ; procedure SpeedButton1Click ; private public end; var Form1: TForm1; implementation uses Unit2; procedure TForm1. Button1Click ; var adet, Boyut:integer; begin ( if (edit1. text='')or(edit2. Text='') or(edit3. text='') then MessageDlg('Boş Alanları Doldurunuz!', mtWarning, , 0) else begin IdPOP31. Reset; end; ) // Boş alanları sorgulama IdPOP31. Host:=Edit1. Text; IdPOP31. UserId:=Edit2. Text; IdPOP31. Password:=Edit3. Text; try IdPOP31. Connect; Label5. Font. Color:=clBlue; Label5. Caption:='Bağlandı'; SpeedButton1. Enabled:=True; Button2. Enabled:=True; Button1. Enabled:=False; adet:=IdPOP31. CheckMessages; Boyut:=IdPOP31. RetrieveMailBoxSize div 1024; Label5. Caption:=IntToStr +' yeni mesaj var ' + IntToStr + 'kb'; except Label5. Font. Color:=ClRed; Label5. Caption:='Bağlantı Sağlanamadı'; end; end; procedure TForm1. Button2Click ; begin if not IdPOP31. Connected then Label5. Caption:='Zaten Bağlı Değil' else IdPOP31. Disconnect; Button2. Enabled:=False; Button1. Enabled:=True; end; procedure TForm1. Button3Click ; var i, adet, boyut:integer; begin adet:=IdPOP31. CheckMessages; if adet=0 then begin Label5. Font. Color:=ClRed; Label5. Caption:='Yeni Mesajınız Bulunmamaktadır'; exit; end; ListView1. Clear; For i:=1 to adet do begin IdMessage1. Clear; IdPOP31. RetrieveHeader(i, IdMessage1); with ListView1. Items. Add do begin Caption:=IdMessage1. Subject; SubItems. Add(IdMessage1. From. Text); SubItems. Add(DateToStr(IdMessage1. Date)); SubItems. Add(IntToStr(IdPOP31. RetrieveMsgSize ; end; end; end; procedure TForm1. ListView1Click ; var i:integer; begin if ListView1. Selected=nil then exit; IdMessage1. Clear; IdPOP31. Retrieve(ListView1. Selected. Index + 1, IdMessage1); Caption:=IntToStr(ListView1. Selected. Index); Edit4. Text:=IdMessage1. From. Text; Edit5. Text:=IdMessage1. CCList. EMailAddresses; Edit6. Text:=DatetimeTostr(IdMessage1. Date); Edit7. Text:=IdMessage1. Subject; ListBox1. Items. Clear; for i:= 0 to Pred(IdMessage1. MessageParts. Count) do if (IdMessage1. MessageParts. Items is TIdAttachment) then ListBox1. Items. Add(TIdAttachment(IdMessage1. Messag eParts. Items ). FileName) else if IdMessage1. MessageParts. Items is TIdText then begin Memo1. Lines. Clear; Memo1. Lines. AddStrings(TIdText(IdMessage1. MessageP arts. Items ). Body); end; end; procedure TForm1. Button4Click ; var i:integer; begin for i:=0 to IdMessage1. MessageParts. Count - 1 do if IdMessage1. MessageParts is TIdAttachment then begin SaveDialog1. FileName:=TIdAttachment(IdMessage1. Mes sageParts. Items ). FileName; if SaveDialog1. Execute then TIdAttachment(IdMessage1. MessageParts. Items ). SaveToFile(SaveDialog1. FileName); end; end; procedure TForm1. Button5Click ; begin if ListView1. Selected <> nil then begin IdPOP31. Delete(ListView1. Selected. Index + 1); ListView1. Selected. Delete; end; end; procedure TForm1. Edit3KeyPress ; begin if key=#13 then Button1. SetFocus; end; procedure TForm1. SpeedButton1Click ; begin Form2. ShowModal; end; end. Componentler gayet acık ama biraz ugrastırabilir :/ %40 indirimli olarak "Centos Sistem ve Sunucu Ynetimi" adlı kitabımızı satın alarak, Linux üzerine yapılacak olan devam projeleri icin destekte bulunabilirsiniz : http://www.hepsiburada.com/centos-sistem-ve-sunucu-yonetimi-oku-izle-dinle-ogren-p-KKODLAB01579

manyaki. bi tane form mail bul netten. onu bi hosta upload et. ardından idhttp compodentini kullanarak editteki bilqilerinni hosta post et. bu kadar :)

. m il msn vermen mümkün mü çok bıdı bıdı yapmam :) since 2005 // tbt