half gedaan met dit voorbeeld toont aan hoe aan de,, b: //europa.eu.int /comm /Delphi en gedaan met behulp van indy, met die images.,,,,,,,,   gebruikt, idMessage; de procedure TForm1.Button1Click (Sender: TObject);  , var, html: TStrings;,   htmpart, txtpart: TIdText;,   bmppart: TIdAttachment,  ; e - mail: TIdMessage;   filename:, touw, ik,  ; bestandsnaam: = ExtractFilePath (Application.ExeName) +'us.jpg';,,  : //europa.eu.int /comm /: = TStringList.Create (); html.Add,   ('< html> "),  ; html.Add ('< head>"),  ; html.Add ('< /head> "),,   html.Add ('< body> < h1> Hello< /h1>"),  ; html.Add ('< IMG - src=" cid: us.jpg" /> "),  ; html.Add (dit is een foto van ons.< /body> "),  ; html.Add ('< /html>"); e - mail:,,   = TIdMessage.Create (nul); en   email.From.Text: ='[email protected]';,,   email.Recipients.EMailAddresses: ='[email protected]';,   email.Subject: = "';,   email.ContentType: ='multipart/mixed',   email.Body.Assign (http: //europa.eu.int).  ;,, txtpart: = TIdText.Create (email.MessageParts); en   txtpart.ContentType: ='text/plain';,   txtpart.Body.Text: =";,,   htmpart: = TIdText.Create (email.MessagePartshttp: //europa.eu.int); en   htmpart.ContentType: ='text/html';,,   bmppart: = TIdAttachment.Create (email.MessageParts, wordt,   bmppart.ContentType: =);'image/jpeg';,   bmppart.FileIsTempFile: = waar,   bmppart.ContentDisposition: ='inline';,,   bmppart. Extraheaders. Een waarde van ['content-id "we]:=. JPG", "we bmppart.displayname:=;  . JPG";,,   proberen,       idsmtp. Verbinding ();  ,     proberen,           idsmtp. Stuur (E - mail); ('sent,           worden "), met uitzondering van      ;,           e: uitzonderingen,               showMessage ('failed:" + e.message); en, tot slot,      ;,   eindelijk       idsmtp. Disconnect ();  ,     e - free (). Http: //europa.eu.int  ;,    . Gratis (); aan het einde van het einde van  ,,,,,,,,,,,  ,