Ver Mensaje Individual
  #6  
Antiguo 15-05-2006
Metalmind Metalmind is offline
Registrado
 
Registrado: abr 2006
Posts: 6
Reputación: 0
Metalmind Va por buen camino
Enviar email con delphi 7 i indy 9

Primero debes activar la opciopn de tu cuenta yahoo, con la qual t indica un numero de puerto qu noi es el 25 convencional por lo menos en yahoo.es es el 587, luego con un cliente smpt i un mail message puedes usar el siguiente codigo:
procedure TForm2.Button3Click(Sender: TObject);
var
ServidorSMTP: TIdSMTP;
begin

// Creem els objectes necessaris
ServidorSmtp := TIdSMTP.Create(Self);
Mailmessage := TIdMessage.Create(Self);
// Preparem el correu bŕsicament
with Mailmessage do
begin
Subject := Assumpte.text;
Body.Text := 'aixo es una prova cridada desde una arxiu ini';


From.Address:= Origen.text;

Recipients.EMailAddresses := Desti.text+ ',' + CC.text+ ','+CCO.text;


end;

try
// Preparem i conectem amb el Smtp.
servidorSmtp.Host := Hostm.text;
ServidorSMTP.Port:= Strtoint(Nport.text);
ServidorSMTP.AuthenticationType:= atLogin;
ServidorSMTP.Username:= User.text;
servidorSMTP.Password:= Pass.text;
servidorSmtp.Connect(10000);


try
// Intentem enviar el correu.
servidorSmtp.Send(MailMessage);
// Sort, s'ha enviat

except
on E: Exception do // no ha funcionat
ShowMessage('Fallada al enviar: ' + E.Message);
end;

finally
// Finalment...
servidorSmtp.Disconnect;
servidorSmtp.Free;
Mailmessage.Free;
end;
close;
end;
Donde yo uso diversos edits, para que desde otra pantalla de configuracion, yo pueda recuperar informacion grabada en un archivo.ini, i pueda hacer funcionar mi aplicacion automaticamente, i la pueda hacer configurable para el usuario.
Prueba-lo y ya diras el que.
PD:Con yahoo.es despues de activar el servicio smtp me funciona.
Responder Con Cita