dbgrid/outlook

[gsilvei]

Hola a todos, en un DBGrid, cargo una lista con mas de 200 E-mails.

Utilizo a siguiente funcion:

procedure TForm1.EnviarCorreoMultiple(DBGrid :TDBGrid; CampoEmail, Asunto :String);
var
Direcciones :String;
begin
Direcciones := '';
with DBGrid.DataSource.DataSet do
begin
First; //Vamos al primer registro...
while not Eof do //Recorramos el DataSet hasta el ultimo registro...
begin
Direcciones := Direcciones + FieldByName(CampoEmail).AsString + ';'; //Agrega Direcciones...
Next;
end;
end;

SetLength(Direcciones, Length(Direcciones) -1); //Quitemos el punto y coma que sobra...

ShellExecute(Handle, 'open',
pchar('mailto:'+Direcciones+'?subject='+Asunto), '', '',SW_SHOW);
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
EnviarCorreoMultiple(DBGrid1, 'email', Lista...');
end;


funciona todo bien,
solo que me repare que el Outlook Express 6 tiene un limite para adicionar direcciones de e-mail, me podrian ayudar para que puede de alguna forma, para enviar por ejemplo de a 50 e-mails?
gracias nuevamente,
saludos.

[gsilvei]

ninguna sugerencia?

[eduarcol]

Cambia la forma en la que envias los correos, no utilizes el outllok, revisa este hilo para que encuentres otra forma de enviar correos, Espero no sea para spam que lo utilizas.

Enviar Correo (http://www.clubdelphi.com/foros/showthread.php?t=46274&highlight=correo)

Leelo bien y entenderas que a pesar de lo que dicen si se puede

[marcoszorrilla]

Has probado a utilizar la opción CC.

Un Saludo.

[gsilvei]

Hola, no es spam,
es un sistema para una academia, donde tiene mas de 200 alumnos registrados, y de ahi quieren enviar e-mails en cantidad, para todos juntos

[AzidRain]

manda los mails dentro de tu aplicación. Por ahi en uno de lo hilos publiqué el código de un programa que incluye esta rutina y hace precisamente lo que necesitas.