L

L'envoi d'e-mails HTML avec indy


Cet exemple montre comment envoyer des e-mails HTML à l'aide de Delphi et Indy, avec des images incorporées.


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.Créer()
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.Créer(e-mail.MessageParts)
txtpart.ContentType := 'text/plain'
txtpart.Corps.Text := '
htmpart := TIdText.Créer(e-mail.MessageParts, html)
htmpart.ContentType := 'text/html'
bmppart := TIdAttachment.Créer(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 ('Envoyé')
sauf
E: Exception ne
ShowMessage('Failed:' E. Message)
fin
enfin
idSMTP.Disconnect()
e-mail.Free()
html.Free()
fin
fin









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


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.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation