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 := '[email protected]' correo electrónico.Los destinatarios.EMailAddresses := '[email protected]' 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 := '[email protected]' correo electronico.Los destinatarios.EMailAddresses := '[email protected]' 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
By Consejos Y Trucos
El envío de correos HTML con indy : Multi-millones de consejos para hacer su vida más fácil.