Confirando o Form : Envio de E-mail - Delphi 2010 - Parte 1

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