IdSmtp

[faustino36]

que tal compañeros, soy uevo en este foro y necesito ayuda para enviar mails utilizando los componentes Indy, cheque este codigo y es el que estoy probando, pero marca un error de que no encuentra el host, los parametros que le paso a la funcion son estos:

email2('www.hotmail.com','[email protected]','*****',25,'[email protected]','faustino36@ hotmail.com','Prueba','cuerpo del mail','');

y esta es la funcion:


procedure email2(host:string;nombre:string;password:string;port:integer;desde:string;
hasta:string;asunto:string;cuerpo:string;adjunto:string);
var
IDSMTP1: TIDSMTP; // Componente de envio de correo
mensaje: TIdMessage;
begin
IDSMTP1:=TIDSMTP.Create(nil);
IdSMTP1.AuthenticationType :=atLogin;
IdSMTP1.UserNAME := nombre;
IdSMTP1.Password := password;
IdSMTP1.Host := host;
IdSMTP1.Port := port;
MENSAJE:=TIDMESSAGE.CREATE(nil);
with Mensaje do
begin
Body.Add(CUERPO);
From.Text := desde;
Recipients.EMailAddresses := hasta;
Subject := asunto;
Priority := TIdMessagePriority(mpHighest);//prioridad del mensaje
CCList.EMailAddresses := '';
BccList.EMailAddresses := '';
TIdAttachment.Create(Mensaje.MessageParts,adjunto);
end; //configuracion server smtp
with idsmtp1 do
begin
try
Connect;
try
// Envio el mensaje.
Send(Mensaje);
finally
Disconnect;
end;
// MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
except
// Capturo algunas excepciones que pueden ocurrir
ON E: EIdProtocolReplyError do begin
MessageDlg('No se ha podido enviar el email.' + #13 +
'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
end;
on E: EFOpenError do begin
MessageDlg('No se ha podido enviar el email.' + #13 +
'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
end;
on E: EIdSocketError do begin
MessageDlg('No se ha podido enviar el email.'+ #13 +
'Host desconocido o incorrecto.', mtError, [mbOK], 0);
end
else begin
MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
end;
end;
end;
END;

los valores que paso a la funcion son correctos?? o cual es el error???
se agradece su ayuda!!

[genyus00]

TIdAttachment.Create(Mensaje.MessageParts,adjunto);

estoy intentando enviar un mail con archivos adjuntos utilizando DELPHI XE, y el compilador me dice que la linea anterior, tiene parametros demas... segun deberia ser..

TIdAttachment.Create(Mensaje.MessageParts);

la preguntas es.. entonces como asigno el/los archivo(s) adjunto(s)???

he utilizado de cuanto he visto en internet y nada.. lo ulitimo fue esto..

for i := 0 to lFicherosAdjuntos.Count-1 do
if FileExists(lFicherosAdjuntos.items[i]) then
with TIdAttachment.Create(idmessage.MessageParts) do
begin
idmessage.ContentType := 'text/pdf';
idmessage.ContentTransferEncoding:='base64';
idmessage.extraheaders.Add('Content-ID: <somelogo>');
end;

en el create.. no se me acepta colocar.

TIdAttachment.Create(idmessage.MessageParts,lFicherosAdjuntos.items[i])

por que me da el error de extra parametro, y si continuo la aplicacion asi como esta, me envia un error: