Boa Tarde,
Segue abaixo um passo-a-passo de como mandar email em DELPHI, sem ser um
tutorial, mas sim detalhando passo a passo como pode utilizar, as funções. O
que gostaria do grupo é que analisa-se e falassem como poderia melhorar e se
essa receitinha funcionaria normalmente em um programa de envio de email?
Como criar um programa para envio de email
1º Passo: Colocar dois componentes no formulário:
-IdSMTP(Paleta IndyClients)
-IdMessage (palheta Indy Misc);
2º Passo: Incluir no Formulário componentes(Edit,Label), dados que deseja
ser configurado manualmente.
Exemplo: Para(To), Assunto(Subject), Corpo da Mensagem(Body);
3º Passo: Configurar o componente que irá enviar as mensagens:
-IdSMTP
-->[nomedoIdSmtp].Host := servidor.smtp.com.br;
-->[nomedoIdSmtp].UserName := [EMAIL PROTECTED];
-->[nomedoIdSmtp].Password := senhadelogin;
//A linha abaixo é utilizada quando o usuário
necessita fazer o login no servidor de email
-->[nomedoIdSmtp].AuthenticationType := atLogin;
4º Passo: Terá de conectar no servidor de email:
-->[nomedoIdSmtp].Connect;
5º Passo: Inserir um bloco de tentativa/exceções(try);
Try
{dentro deste bloco conterá o código para montar e tentar
enviar a mensagem}
//Inserir os próximos passos aqui.
Finally
-->[nomedoIdSmtp].disconnect;
End;
6º Passo: Configurar a mensagem a ser enviada:
//Configura o endereço que está enviando o email
-->[nomedoIdMessage].From.Address := nome ou componente que
contenha o nome;
//Configura o nome de envio
-->[nomedoIdMessage].From.Name := nome ou componente que contenha o nome;
//Configura para qual e-mail será enviada a mensagem;
-->[nomedoIdMessage].Recipients.EmailAdresses := nome ou
componente que contenha o nome;
//Configurar a prioridade desejada
-->[nomedoIdMessage].priority := nome ou componente que contenha
as prioridades;
//Configura o assunto da mensagem
-->[nomedoIdMessage].Subject := assunto ou nome do componente que contenha o
asssunto;
//Configura o corpo da mensagem
-->[nomedoIdMessage].Body := nomedocomponente ou corpodotextodamensagem;
//Configura a mensagem para aceitar ou não text/html
-->[nomedoIdMessage].ContentType := text/html;
7º Passo: Enviar a Mensagem
-->[nomedoIdSmtp].Send(nomedoIdMessage);
Um forte abraço a todos.
Ass:
Marco Aurélio
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
