Buscar por:

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.