Article Rating

  • 0 Rating(s)
  • 0
  • 0
  • 0
  • 0
  • 0
Check also Build New Mail Message

procedure TForm1.btnLoadClick(Sender: TObject);   
var   
   msg: TStrings;   
begin   
   if not OpenDialog1.Execute() then Exit;   
   msg := TStringList.Create();   
   try   
      msg.LoadFromFile(OpenDialog1.FileName);   
      clMailMessage1.MessageSource := msg;   
   finally   
      msg.Free();   
   end;   
end;    
 
 
procedure TForm1. clMailMessage1SaveAttachment(Sender: TObject;   
   ABody: TclAttachmentBody;   
   const AFileName: string; var AData: TStream; var Handled: Boolean);   
begin   
   SaveDialog1.FileName := AFileName;   
   Handled := SaveDialog1.Execute();   
   if not Handled then Exit;   
   AData := TFileStream.Create(SaveDialog1.FileName, fmCreate);   
end;   
 
 

Article ID: 33, Created On: 1/23/2010, Modified: 3/28/2012