Olá galera, nesta Quick Tips, irei mostra como podemos criar um disparador de , para enviar em massa para nossos contatos, clientes, em formato HTML, recebi uns s a um tempo atrás de uma galera reclamando que ao tentar rodar os projetos de de feitos em Delphi 2006, quando tentavam compilar em Delphi 2010, dava erro, então este problema será resolvido neste artigo. Vamos inicialmente criar nossa tela principal de configuração, vamos à construção.
Vamos adicionar e configurar a tela, primeiramente vamos configurar a parte da “Mensagem”
Todos os componentes abaixo estão dentro de um PageControl, então antes de adicionar qualquer rum destes adicione um PageControl e 3 abas para ele:
Mensagem:
EdtNomeRemetente : TLabeledEdit;
EdtEmailResposta : TLabeledEdit;
EdtEmailRemetente: TLabeledEdit;
EdtCC: TLabeledEdit;
EdtCCO: TLabeledEdit;
EdtAssuntoEmail: TLabeledEdit;
ChckLstBxEmail : TCheckListBox
BtnEnviar : TBitBtn
BtnCancelar: TBitBtn
IdMessage: TIdMessage;
IdSMTP: TIdSMTP;
memoMensagem: TRichEdit;
WebBrowser1: TWebBrowser; //Este por sua vez esta na outra aba HTML
Parte de Baixo da mensagem:
BtnMarcarTudo: TBitBtn
BtnDesmarcarTudo : TBitBtn
BtnAdicionarEmail: TBitBtn
BtnDeletaEmail: TBitBtn
LblEmailEnviado: TLabel
GaugeProgresso: TGauge
Configurações: Nesta parte será feito a configuração do seu endereço de , usuário e senha, sendo salvo em um arquivo de configuração .ini
EdtConfigSMTP: TLabeledEdit
EdtConfigEMail: TLabeledEdit
EdtConfigUsuario: TLabeledEdit
EdtConfigSenha: TLabeledEdit
EdtConfigPorta: TLabeledEdit
EdtConfigTempo: TLabeledEdit
ChckBxConfigAutenticacao : TChequeBox
BtnSalvar: TBitBtn
Enviados: Nesta tela vamos apensar ter um TListBox, para apresentar os s enviados, simulando um Log
LstBxLog : TListBox
Feito toda a configuração vamos salvar nosso form como uFrmPrincipal.pas , a principio até ai nada de mais apensar o desenho do form, mas vamos por partes, na próxima vamos ver como criar um arquivo .ini, para ser utilizado na aba de configurações.
Fico por aqui ate à próxima Quick Tips.
Um abraço
