[Delphi] Delphi Xe3 + Indy 10

- Delphi 5 + indy 9

with IdMessage1 do

begin

        Clear;

From.Address := 'test@test.co.kr';

From.Name := 'test';

Sender.Address:= 'test123@test.co.kr';

Sender.Name:= 'test';

Subject := '테스트 메일입니다.';

ContentType := 'TEXT/HTML';

CharSet := 'KS_C_5601-1987';

Recipients.EMailAddresses :=a_cAddress;

IdMessage1.MessageParts.clear;

 for aiI := 0 to Listbox1.Items.Count-1 do

TIdAttachment.Create(IdMessage1.MessageParts, Listbox1.Items[aiI]);

end;

IdSMTP1.Send(IdMessage1);

- Delphi Xe3 + indy 10

uese IdAttachmentFile 추가

TIdAttachmentFile.Create(IdMessage1.MessageParts, Listbox1.Items[aiI]);