Con este codigo mandas un mail, espero que les sirva
Código:
TIdMessage* mess= new TIdMessage( Application->MainForm );
mess->Clear();
mess->Recipients->EMailAddresses = "destinatarior@xx.com";
mess->From->Address = "remitente@exactas.unlp.edu.ar";
mess->Body->Add("prueba");
IdSMTP1->AuthenticationType = atNone;
IdSMTP1->Connect();
IdSMTP1->Send(mess);
mess->Free();
IdSMTP1->Disconnect();
Estoy choco lo logre
Nos vemos hasta la proxima consulta
Nicocer el que se auto contesta.