Foro, encontre la solución al hilo que inicie, y aqui lo pongo por si a alguien le sirve, saludos.
Código Delphi
[-]
lMessage := TIdMessage.Create(Self);
try
lMessage.From.Name := sSenNomMail;
lMessage.From.Address := sSenderMail;
with lMessage.Recipients.Add do begin
Name := sNomCliente;
Address := sMailCliente;
end;
with lMessage.CCList.Add do begin
Name := 'Cliente';
Address := 'razadi33@hotmail.com';
end;
lMessage.Subject := sAsuntoMail;
lMessage.Body.Text := '';
lTextPart := TIdText.Create(lMessage.MessageParts);
lTextPart.Body.Text := 'Sistemas';
lTextPart.ContentType := 'text/plain';
lTextPart := TIdText.Create(lMessage.MessageParts);
lTextPart.Body.Text := 'Aqui se pone el código en HTML
Puede poner, cualquier objeto
O puede incluir archivos HTML';
lTextPart.ContentType := 'text/html';
lMessage.Priority := mpNormal;
lAttachPart := TIdAttachment.Create(lMessage.MessageParts, sArchivoPDF);
EnviarMail(lMessage);
finally
lMessage.Free;
end;
end;