Arsip: Ambil data text dari format email

 
user image
more 12 years ago

RoenZ

Hi all, Saya mau tanya apakah ada komponen yang bisa mengubah format data email ke text file ? Maksudnya kita hanya ambil isi dari email tersebut tapi header nya kita buang alias nga kita masukkan ke text file tersebut. Mohon bantuannya. Thanks BR, RoenZ :D
user image
more 12 years ago

_aa_

pake regex aja btw, data imelnya dalam format apa? native/teks apa html?
user image
more 12 years ago

RoenZ

hmm... format email dari Yahoo aja si... jadi dari Yahoo, saya ambil data text isi nya aja. Thanx
user image
more 12 years ago

herux

Pake indy ya ? coba gini

var
 I, IMsg: Integer;
 Msg: TIdMessage;
begin
 Msg := TIdMessage.create;
 idpop3.RetrieveHeader(I, Msg); // I adalah index email atau email yang ke I, Msg adalah isi dari email incl. attachment  didalam
 // jadi u iterasi aja menjadi begini
 for IMsg := 0 to Pred(Msg.MessageParts.Count) do
 begin
   //kalo attachment nya mo di simpan or download buat var dg type TIdAttachmentFile jadi attfile: TIdAttachmentFile; trus
  //buat something like this
   if (Msg.MessageParts.Items[IMsg] is TIdAttachmentFile) then
   begin
     attfile := TIdAttachmentFile(Msg.MessageParts[IMsg]);
     attfilename := TIdAttachmentFile(Msg.MessageParts.Items[att_count]).Filename;
     attfile.SaveToFile(suatuharidisebuahfolder+attfilename);
   end;
   if not (Msg.MessageParts.Items[IMsg] is TIdAttachmentFile) then
   bla.. bla... // yang di cari text nya aja khan ??
 end;
 Msg.free;
end;
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com