Avatar billede hugopedersen Nybegynder
05. september 2008 - 08:27 Der er 3 kommentarer og
1 løsning

Vedhæfte fil ved brug af Indy

Er der nogen der har et lille simpelt eksempel på hvordan man vedhæfter en fil til en email ved hjælp af Indy 10?

Jeg har ikke kunnet finde noget jeg har kunne få til at virke.
Avatar billede arne_v Ekspert
06. september 2008 - 04:36 #1
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;
Avatar billede hugopedersen Nybegynder
06. september 2008 - 13:12 #2
Det vil jeg lige checke på mandag når jeg kommer på arbejde. Så hører du nærmere.
Avatar billede hugopedersen Nybegynder
08. september 2008 - 07:45 #3
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.
Avatar billede arne_v Ekspert
08. september 2008 - 14:33 #4
OK
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester