Buscar

Enviando Email delphi 7 com Indy

Código

Coloque no form o componente IdMessage e IdSMTP.


IdMessage.Recipients.EMailAddresses := Edit1.Text; //email destinatario
IdMessage.Subject := Edit2.Text;//assunto
IdMessage.Body := Memo1.Lines; // Mensagem que será enviada

IdMessage.From.Address := 'Seu email'; // Email do Remetente
IdMessage.From.Name := 'Seu nome'; // Nome do Remetente, que aparecerá qdo chegar.

IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally

IdSMTP.Disconnect;
Application.ProcessMessages;
end;
Application.MessageBox('Email Enviado!', 'Confirmãção',  MB_ICONINFORMATION + MB_OK);


Espero ter ajudado.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 19/09/08
Por: Djalmo Etiene Cardinal
Visualizada: 42960 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009