mail to:

[nicocer]

Con este codigo mandas un mail, espero que les sirva

TIdMessage* mess= new TIdMessage( Application->MainForm );

mess->Clear();
mess->Recipients->EMailAddresses = "[email protected]";
mess->From->Address = "[email protected]";
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.