El envío de correos HTML con ics

El envio de correos HTML con ics

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

procedimiento THtmlMailForm.SendButtonClick(Sender: TObject)
begin
si FRunning, a continuacion, empezar
MessageBeep(MB_OK)
Display ('**** YA en EJECUCION ****')
Salir
fin

FRunning := TRUE
prueba
{ Dar el componente de los distintos datos que se necesitan }
HtmlSmtpClient.Texto := PlainTextMemo.Lineas
HtmlSmtpClient.HtmlText := HtmlTextMemo.Lineas
HtmlSmtpClient.EmailImages := ImageFilesMemo.Lineas
HtmlSmtpClient.EmailFiles := AttachedFilesMemo.Lineas

{ Inicializar todos SMTP propiedades de un componente de nuestra GUI }
HtmlSmtpClient.Host := HostEdit.Texto
HtmlSmtpClient.Puerto := PortEdit.Texto
HtmlSmtpClient.Inicio De Sesion := SignOnEdit.Texto
HtmlSmtpClient.FromName := FromEdit.Texto
HtmlSmtpClient.HdrFrom := FromEdit.Texto
HtmlSmtpClient.HdrTo := ToEdit.Texto
HtmlSmtpClient.HdrCc := CcEdit.Texto
HtmlSmtpClient.HdrSubject := SubjectEdit.Texto
HtmlSmtpClient.AuthType := smtpAuthNone

{ lista de Destinatarios se calcula a partir de, Para, Cc y Cco }
HtmlSmtpClient.RcptName.Claro
HtmlSmtpClient.RcptNameAdd(ToEdit.Texto, CcEdit.Texto, BccEdit.de texto)
si PlainTextCheckBox.Comprobado, a continuacion,
HtmlSmtpClient.ContentType := smtpPlainText
else
HtmlSmtpClient.ContentType := smtpHtml

Display('Conexion con el servidor SMTP...')

{ Inicio de la primera operacion que hacer para enviar un correo electronico }
{ siguientes operaciones se inician desde OnRequestDone evento }
HtmlSmtpClient.Conecte
excepto
en E:Excepcion empiezan
Pantalla(E. ClassName ': 'E. Mensaje)
FRunning := FALSE
fin
fin

final

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

procedimiento THtmlMailForm.HtmlSmtpClientRequestDone(
Sender : TObject
RqType : TSmtpRequest
codigo de error : Word)
begin
{ Para cada operacion, se mostrara el estado }
si (ErrorCode > 0) y (ErrorCode < 10000), a continuacion,
Display('RequestDone Rq=' IntToStr(Ord(RqType))
' Error=' HtmlSmtpClient.ErrorMessage)

else
Display('RequestDone Rq=' IntToStr(Ord(RqType))
' Error=' IntToStr(ErrorCode))

si no FRunning, a continuacion,
Salir

{ Inicio de la siguiente operacion, pero en primer lugar comprobar si el anterior fue ACEPTAR }
si ErrorCode <> 0 then begin
FRunning := FALSE { Terminar All-In-One demo }
Display('Error, parar.')
Salir
fin

caso RqType de
smtpConnect: begin
si HtmlSmtpClient.AuthType = smtpAuthNone, a continuacion,
HtmlSmtpClient.Helo
else
HtmlSmtpClient.Ehlo
fin

smtpHelo: HtmlSmtpClient.MailFrom
smtpEhlo: HtmlSmtpClient.Auth
smtpAuth: HtmlSmtpClient.MailFrom
smtpMailFrom: HtmlSmtpClient.RcptTo
smtpRcptTo: HtmlSmtpClient.Datos
smtpData: HtmlSmtpClient.Dejar de fumar
smtpQuit: begin
Display('Hecho !')
FRunning := FALSE
fin
fin
fin