Alguem sabe...

Question

como enviar email pelo delphi 7.0, se tiverem um exemplo f�cil eu agrade�o...No 5.0 eu usava o nmsmtp e agora tenho que usar o indy [idSMTP] mas n�o sei como...Algu�m pode me ajudar?...

Anonymous · Answer

Use um componente idSMTP e um idMESSAGE

IdMessage.From.Address := edRemetente.Text;
IdMessage.Subject := edAssunto.Text;

IdSMTP.Host := edHost.Text;
IdSMTP.Port := 25;
IdSMTP.Connect;

IdMessage.Body.Assign(memoCorpo.Lines);
IdMessage.Recipients.EMailAddresses := edDestinatario.Text;

IdSMTP.Send(IdMessage);
IdSMTP.Disconnect;

ShowMessage(�Teste de envio de e-mail�);

Ladeira · Answer

Value mesmo, vou fazer uns testes, obrigado......