smtp'nin body kısmına .txt dosyası ekleme

[anlerduran]

Merhaba benim sorum şu..
Gene sforumdan araştırıp-sorup öğrendiğim bilgilerle ekli mail gönderiyorum..yalnız smtp kullanıyorum ve şunu bi türlü çıkaramadım..mesela idmessage1.body kısmına örneğin c:\deneme.txt içindeki yazıları koymak istiyorum..bunu kod olarak nasıl yapabilirim fikir verirseniz sevinirim ,,,,
şimdiden teşekkürler

[abdulkadir]

Merhaba

Kod: Tümünü seç

procedure TForm1.Button7Click(Sender: TObject);
var
  Dosya: TStringList;
begin
  try
    Dosya := TStringList.Create; // olustur
    Dosya.LoadFromFile('C:\akl_dosya.txt'); // Dosyayı aktar
    //IdMessage1.Body.Clear; //Body  temizle
    Memo1.Lines.Add(Dosya.Text); // kullan
    //IdMessage1.Body.AddStrings(Dosya.Text); // kullan
  finally
    Dosya.Free; // ve yok et
  end;
end;

Sevgiler.

[anlerduran]

teşekkürler abdulkadir abi ama

son satırda yani

-------IdMessage1.Body.AddStrings(Dosya.text);-------incompatible types tstrings and strings diyor?

[abdulkadir]

sadece dosyayı aktaracaksan
bu sekilde degiştir olur inşaallah.

Kod: Tümünü seç

Body.Text:=Dosya.Text; 

ekleme yapacaksan.

Kod: Tümünü seç

 Memo1.Lines.Add(Dosya.Text);// veya dosyayı bir stringe aktar.
  Body.Assign(Memo1.Lines);//ekle

kolay gelsin.