Vedhæfte fil ved brug af Indy

Følgende virker hos mig:

procedure send_email(server, toadr, fromadr, subject, body : string);

var
  smtp : TIdSMTP;
  msg : TIdMessage;

begin
  msg := TIdMessage.Create;
  msg.Recipients.EMailAddresses := toadr;
  msg.From.Address := fromadr;
  msg.Subject := subject;
  msg.Body.Text := body;
  smtp := TIdSMTP.Create;
  smtp.Host := server;
  smtp.Port := 25;
  smtp.Connect;
  smtp.Send(msg);
  smtp.Destroy;
  msg.Destroy;
end;

procedure send_email_attachment(server, toadr, fromadr, subject, body, fnm : string);

var
  smtp : TIdSMTP;
  msg : TIdMessage;

begin
  msg := TIdMessage.Create;
  msg.Recipients.EMailAddresses := toadr;
  msg.From.Address := fromadr;
  msg.Subject := subject;
  msg.Body.Text := body;
  TIdAttachmentFile.Create(msg.MessageParts, fnm);
  smtp := TIdSMTP.Create;
  smtp.Host := server;
  smtp.Port := 25;
  smtp.Connect;
  smtp.Send(msg);
  smtp.Destroy;
  msg.Destroy;
end;

Det vil jeg lige checke på mandag når jeg kommer på arbejde. Så hører du nærmere.

Det ser ud til at virke.
Jeg checkede dog Destroy i hjælpen og den siger at man skal bruge Free i stedet for.

Smidt et svar for at lukke.

OK