El envío de correos HTML con indy

El envío de correos HTML con indy


en Este ejemplo se muestra cómo enviar correos HTML usando Delphi y de Indy, con imágenes incrustadas.


usos
idMessage
procedure TForm1.Button1Click(Sender: TObject)
var
html: TStrings
htmpart, txtpart: TIdText
bmppart: TIdAttachment
correo electrónico: TIdMessage
filename: string
begin
filename := ExtractFilePath(Application.ExeName) 'us.jpg'
html := TStringList.Crear()
de html.Add('')
de html.Add('')
de html.Add('')
de html.Add('

Hola

')
de html.Add('')
de html.Add('Esta es una foto de nosotros!')
de html.Add('')
correo electrónico := TIdMessage.Create(nil)
correo electrónico.De.Text := 'Pete@NooooSpammmm.Droopyeyes.com'
correo electrónico.Los destinatarios.EMailAddresses := 'Pete@NoooSpammmm.droopyeyes.com'
correo electrónico.Asunto := 'Hola'
correo electrónico.ContentType := 'multipart/mixed'
correo electrónico.Cuerpo.Asignar(html)
txtpart := TIdText.Crear(por correo electrónico.MessageParts)
txtpart.ContentType := 'text/plain'
txtpart.Cuerpo.Text := '
htmpart := TIdText.Crear(por correo electrónico.MessageParts, html)
htmpart.ContentType := 'text/html'
bmppart := TIdAttachment.Crear(por correo electrónico.MessageParts, el nombre de archivo)
bmppart.ContentType := 'image/jpeg'
bmppart.FileIsTempFile := true
bmppart.ContentDisposition := 'inline'
bmppart.ExtraHeaders.Valores['content-id'] := 'us.jpg'
bmppart.DisplayName := 'us.jpg'
prueba
idSMTP.Connect()
prueba
idSMTP.Enviar(por correo electrónico)
ShowMessage('Enviar')
excepto
en E: Exception
ShowMessage('Error:' E. Mensaje)
fin
finalmente
idSMTP.Desconectar()
correo electrónico.Free()
de html.Free()
fin
fin









El envio de correos HTML con indy


El envio de correos HTML con indy : Multi-millones de consejos para hacer su vida mas facil.


en Este ejemplo se muestra como enviar correos HTML usando Delphi y de Indy, con imagenes incrustadas.


usos
idMessage
procedure TForm1.Button1Click(Sender: TObject)
var
html: TStrings
htmpart, txtpart: TIdText
bmppart: TIdAttachment
correo electronico: TIdMessage
filename: string
begin
filename := ExtractFilePath(Application.ExeName) 'us.jpg'
html := TStringList.Crear()
de html.Add('')
de html.Add('')
de html.Add('')
de html.Add('

Hola

')
de html.Add('')
de html.Add('Esta es una foto de nosotros!')
de html.Add('')
correo electronico := TIdMessage.Create(nil)
correo electronico.De.Text := 'Pete@NooooSpammmm.Droopyeyes.com'
correo electronico.Los destinatarios.EMailAddresses := 'Pete@NoooSpammmm.droopyeyes.com'
correo electronico.Asunto := 'Hola'
correo electronico.ContentType := 'multipart/mixed'
correo electronico.Cuerpo.Asignar(html)
txtpart := TIdText.Crear(por correo electronico.MessageParts)
txtpart.ContentType := 'text/plain'
txtpart.Cuerpo.Text := '
htmpart := TIdText.Crear(por correo electronico.MessageParts, html)
htmpart.ContentType := 'text/html'
bmppart := TIdAttachment.Crear(por correo electronico.MessageParts, el nombre de archivo)
bmppart.ContentType := 'image/jpeg'
bmppart.FileIsTempFile := true
bmppart.ContentDisposition := 'inline'
bmppart.ExtraHeaders.Valores['content-id'] := 'us.jpg'
bmppart.DisplayName := 'us.jpg'
prueba
idSMTP.Connect()
prueba
idSMTP.Enviar(por correo electronico)
ShowMessage('Enviar')
excepto
en E: Exception
ShowMessage('Error:' E. Mensaje)
fin
finalmente
idSMTP.Desconectar()
correo electronico.Free()
de html.Free()
fin
fin


El envío de correos HTML con indy

El envío de correos HTML con indy : Multi-millones de consejos para hacer su vida más fácil.
Recommander aux amis
  • gplus
  • pinterest

Comentario

Dejar un comentario

Clasificación