Dette eksemplet viser hvordan du sender HTML e-post ved hjelp av Delphi og Indy, med innebygde bilder
bruker idMessage; prosedyre TForm1.Button1Click (Sender: TObject);. Var html: TStrings; htmpart, txtpart: TIdText; bmppart: TIdAttachment; e-post: TIdMessage; filnavn: string; begynne filnavn: = ExtractFilePath (Application.ExeName) + 'us.jpg'; html: = TStringList.Create (); html.Add ('< html >'); html.Add ('< head >'); html.Add ('< /head >'); html.Add ('< body > < h1 > Hei < /h1 >'); html.Add ('< img src = " cid: us.jpg " />'); html.Add («Dette er et bilde av oss <! /body > '); html.Add ('< /html >'); epost: = TIdMessage.Create (null); email.From.Text: = '[email protected]'; email.Recipients.EMailAddresses: = '[email protected]'; email.Subject: = 'Hei'; email.ContentType: = 'multipart /mixed'; email.Body.Assign (html); txtpart: = TIdText.Create (email.MessageParts); txtpart.ContentType: = 'text /plain'; txtpart.Body.Text: '' =; htmpart: = TIdText.Create (email.MessageParts, html); htmpart.ContentType: = 'text /html'; bmppart: = TIdAttachment.Create (email.MessageParts, filnavn); bmppart.ContentType: = 'image /jpeg'; bmppart.FileIsTempFile: = true; bmppart.ContentDisposition: = 'inline'; bmppart.ExtraHeaders.Values ​​['content-id']: = 'us.jpg'; bmppart.DisplayName: = 'us.jpg'; prøv idSMTP.Connect (); prøv idSMTP.Send (e); ShowMessage ('Sendte'); unntatt på E: Exception gjøre ShowMessage ('Feilet:' + E.Message); ende; endelig idSMTP.Disconnect (); email.Free (); html.Free (); end, end;