L'envoi d'e-mails HTML avec indy

L'envoi d'e-mails HTML avec indy : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet exemple montre comment envoyer des e-mails HTML a l'aide de Delphi et Indy, avec des images incorporees.

utilise idMessage procedure TForm1.Button1Click(Sender: TObject) var html: TStrings htmpart, txtpart: TIdText bmppart: TIdAttachment email: TIdMessage nom du fichier: string begin filename := ExtractFilePath(Application.ExeName) 'us.jpg' html := TStringList.Creer() html.Add('') html.Add('') html.Add('') html.Add(' Bonjour ') html.Add('') html.Add('Ceci est une photo de nous!') html.Add('') courriel := TIdMessage.Create(nil) e-mail.Partir de.Text := '[email protected]' e-mail.Destinataires.EMailAddresses := '[email protected]' e-mail.Sujet := 'Bonjour' e-mail.ContentType := 'multipart/mixed' e-mail.Corps.Attribuer(html) txtpart := TIdText.Creer(e-mail.MessageParts) txtpart.ContentType := 'text/plain' txtpart.Corps.Text := ' htmpart := TIdText.Creer(e-mail.MessageParts, html) htmpart.ContentType := 'text/html' bmppart := TIdAttachment.Creer(e-mail.MessageParts, le nom de fichier) bmppart.ContentType := 'image/jpeg' bmppart.FileIsTempFile := true bmppart.ContentDisposition := 'inline' bmppart.ExtraHeaders.Valeurs['content-id'] := 'us.jpg' bmppart.DisplayName := 'us.jpg' idSMTP.Connect() idSMTP.Envoyer(par courriel) ShowMessage ('Envoye') sauf E: Exception ne ShowMessage('Failed:' E. Message) fin enfin idSMTP.Disconnect() e-mail.Free() html.Free() fin fin