danielmj
17-02-2012, 13:02:41
hola, estoy realizando una pequeña utilidad para uso personal, en concreto es una aplicación que almacena en una checklist, direcciones de correo electronico de empresas a las que enviarle el cv como archivo adjunto. Ya sé que hay muchas aplicaciones para esto, pero la diferencia está en que con este programa que quiero o intento hacer, solo con pulsar un boton se envia el mismo correo a cada empresa, de echo podria hacer que se cargue al inicio de windows y que el solo con un temporizador envie el cv cada x tiempo y otra diferencia es que no quiero que cada empresa a la que le llegue mi cv vea que tambien se lo envié a otras. Y si uso el comando BCC en thunderbird, aparece "destinatarios no revelados" pero da pista de que el mismo cv se lo he enviado tambien a otras empresas. Este es el proposito de la aplicacion y este el codigo que estoy usando:
procedure TForm1.Button4Click(Sender: TObject) ;
begin
Memo.Clear;
SMTP := TIdSMTP.Create( nil );
SMTP.Host := 'smtp.ono.com';
SMTP.Port := 25;
smtp.Password:='xxx';
smtp.Username:='xxx';
SMTP.AuthType := satDEFAULT;
SMTP.Connect;
idms.Recipients.Add;
idms.From.Name:='xxx';
idms.From.Address := 'xxx';
idms.Recipients.EMailAddresses := 'xxx';
idms.Subject := 'prueba';
idms.Body.Text := 'prueba de correo desde delphi';
{if FileExists(edit2.Text) then
TIdAttachment.Create(idms.MessageParts, edit2.Text) ;}
try
try
except on E:Exception do
memo.Lines.Insert(0, 'ERROR: ' + E.Message) ;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end
Lo de enviar el arcvhivo adjunto, de momento lo dejo, por que quiero resolver el problema de que no me llega ningun correo. No me da error de compilación ni de ejecución, simplemente no envia nada a la cuenta de correo del destinatario.
Como podeis ver, uso SMTP y la cuenta es de ONO, como ejemplo de destinatarios he probado con cuentas de hotmail y gmail, pero no llega nada a ninguna de ellas.
¿Donde esta el fallo? uso delphi 2010
un saludo y espero podáis ayudarme.
procedure TForm1.Button4Click(Sender: TObject) ;
begin
Memo.Clear;
SMTP := TIdSMTP.Create( nil );
SMTP.Host := 'smtp.ono.com';
SMTP.Port := 25;
smtp.Password:='xxx';
smtp.Username:='xxx';
SMTP.AuthType := satDEFAULT;
SMTP.Connect;
idms.Recipients.Add;
idms.From.Name:='xxx';
idms.From.Address := 'xxx';
idms.Recipients.EMailAddresses := 'xxx';
idms.Subject := 'prueba';
idms.Body.Text := 'prueba de correo desde delphi';
{if FileExists(edit2.Text) then
TIdAttachment.Create(idms.MessageParts, edit2.Text) ;}
try
try
except on E:Exception do
memo.Lines.Insert(0, 'ERROR: ' + E.Message) ;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end
Lo de enviar el arcvhivo adjunto, de momento lo dejo, por que quiero resolver el problema de que no me llega ningun correo. No me da error de compilación ni de ejecución, simplemente no envia nada a la cuenta de correo del destinatario.
Como podeis ver, uso SMTP y la cuenta es de ONO, como ejemplo de destinatarios he probado con cuentas de hotmail y gmail, pero no llega nada a ninguna de ellas.
¿Donde esta el fallo? uso delphi 2010
un saludo y espero podáis ayudarme.