Alguem sabe...
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?
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?
Ladeira
Curtidas 0
Respostas
Anonymous
24/02/2003
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´);
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´);
GOSTEI 0
Ladeira
24/02/2003
Value mesmo, vou fazer uns testes, obrigado...
GOSTEI 0