Ver Mensaje Individual
  #1  
Antiguo 02-03-2012
phyrian phyrian is offline
Registrado
NULL
 
Registrado: dic 2011
Posts: 6
Reputación: 0
phyrian Va por buen camino
Envio Mail Delphi 2010

He mirado varios post y no consigo encontrar solucion. Os comento loq ue sucede

Tengo un websmartHosting con PiensaSolutions y hace poco mi tio se paso a esa misma empresa de Hosting.

Le estoy haciendo una aplicacion que entre otras cosas envia mails a los clientes. Las pruebas las Hice con los datos de mi hosting, servidor SMTP, cuenta etcc. Y todo Fue y va correcto.

El problema es que ahora cuando puse la configuracion del servidor de mi tio No funciona. No hay manera.
.....

Código Delphi [-]
for long :=0 to dire.Items.Count-1 do
begin


smtp1.Host :='smtp.hostingtio.com';
smtp1.Port := 25; //smtp service usually runs on this port
smtp1.Password:='pass';
smtp1.Username:='user';
  //setup idmessage
idmessage.From.address:='[email protected]';
idmessage.Recipients.EMailAddresses:='[email protected]';  //dire.Items[long];
idmessage.Subject :=edSubject.Text;
idmessage.Body.Text := trat.Text+' '+ names.Items[long]+':'+ #10 + #10  +memo1.Lines.Text;


   //send mail
 try
try

     smtp1.Connect;
     smtp1.send(idmessage);

           except
        on E: EIdSMTPReplyError do
    begin
  ShowMessage(E.Message);
    enviar.Enabled:=true;
    end;
   end;
  finally
    if smtp1.Connected then
    begin
      smtp1.Disconnect;

    end;
  end;
end;


Como os digo si uso lso datos de mi correo propio va pero con el de llos nada de nada. Sin esto la aplicacion es inservible....

Agradezco vuestra ayuda.

PD: me ta saltando este error:First chance exception at $74FCB9BC. Exception class EIdSMTPReplyError with message <[email protected]> Sender address rejected: need fully-qualified address. Sale directo nada ams tocar el boton

Bueno he conseguido enviar a hotmail pero llega como corre no deseado. a la cuenta de otro hosting no ha llegado....

Última edición por Casimiro Noteví fecha: 02-03-2012 a las 09:55:23. Razón: Poner etiquetas [delphi] [/delphi]
Responder Con Cita