Imam problem sa slanjem attachmenta
Kod je
procedure TForm1.Button2Click(Sender: TObject);
begin
IdMessage1 := TIdMessage.Create(Self);
IdSMTP1.Connect;
IdMessage1.From.Address := '
[email protected]';
IdMessage1.Subject := 'My test email';
IdMessage1.Recipients.Add.Address := '
[email protected]';
IdMessage1.Body.Text := 'pozdrav';
TIdAttachment.Create(IdMessage1.MessageParts,('c:\AeroAdminLog.txt'));
IdSMTP1.Send(IdMessage1);
showmessage('test mail sent');
end;
program nece da se kompajlira i pokazuje gresku na ('c:\AeroAdminLog.txt'))
tacnije kad dodje do (.