es cierto el codigo era algo confuso diculpenme, no he agregado ni borrado , solo editado como me lo pide scafandra diculpenme
Cita:
IdMessage1->Clear();
IdMessage1->From->Name = "NOMBRE";
IdMessage1->From->Address = "DIRECCION";
IdMessage1->Recipients->Add();
IdMessage1->Recipients->Items[0]->Name = "NOMBRE DESTINO";
IdMessage1->Recipients->Items[0]->Address = "EMAIL DESTINO"
IdMessage1->Subject = "Envio de totales";
IdMessage1->Body->Add("Correo electronico automático");
// No destruir manualmente las instancias de TIdAttachment // ya que TIdMessage lo hará automáticamente
Ruta = RUTA_E + "\\EnvCabPed.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
Ruta = RUTA_E + "\\EnvCabTic.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
Ruta = RUTA_E + "\\EnvCaja.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
Ruta = RUTA_E + "\\EnvLinPed.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
Ruta = RUTA_E + "\\EnvLinTic.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
Ruta = RUTA_E + "\\EnvStock.txt";
if (FileExists(Ruta))
new TIdAttachment(IdMessage1->MessageParts, Ruta);
IdSMTP1->Host = "SERVIDOR SMTP";
// Yo lo he hecho usando la versión 9 de Indy, pero la que
// viene de fabrica en el BCB6 es una versión anterior y creo
// que en esta en vez de usar "Username" hay que usar "UserId"
// No se si habran mas cambios entre las dos versiones ya que
// no lo puedo probar de momento en la versión que trae el BCB
IdSMTP1->Username = "USUARIO";
// Actualmente muchos servidores requieren el uso
// de una clave que suele ser la misma que para POP3
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Password = "CLAVE";
try
{
IdSMTP1->Connect();
}
catch(...)
{
MessageBox(0, "Error al conectar al servidor", "Atención", MB_TASKMODAL | MB_ICONERROR);
}
if (IdSMTP1->Connected())
{
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();
}
|