Foros Club Delphi - Usando SMTP con user y pass

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Usando SMTP con user y pass (https://www.clubdelphi.com/foros/showthread.php?t=17634)

zeopix

16-01-2005 10:39:02

Usando SMTP con user y pass

Hola amigos, tengo que hacer un cliente de correo, estoy empezando por el SMTP, el delphi, me trae el cliente SMTP, pero yo ahora quiero mandar un email con el.
Tengo las siguientes líneas ( el smtp se llama idSMTP1):

Código:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 idSMTP1.Username := 'zeopix2';

 idSMTP1.Password := 'xxxxxxx';

  idSMTP1.Host := 'smtp.correo.yahoo.es';

 idSMTP1.Connect(30);

idSMTP1.QuickSend('smtp.correo.yahoo.es','asunto','zeopix2@yahoo.es','yahoo@yahoo.es','mensaje');

end;

Bueno, me dice que no estoy autentificado, y esque no se como mandar el email autentificandome, weno, adiós y gracias.

Toñico

16-01-2005 12:15:49

Hola Zeopix,

Con Delphi viene un ejemplo de como usar el componente SMTP, a mi me sirvió de mucho para poder aplicarlo a un programa que hice.

Un saludo.

zeopix

16-01-2005 13:38:16

En delphi 7?
me puedes concretar un poco más, donde se encuentra el ejemplo?
Bye gracias!

seath

17-01-2005 00:38:57

Cita:

Empezado por zeopix

Bueno, me dice que no estoy autentificado, y esque no se como mandar el email autentificandome.

Hola, tienes una propiedad del IdSMTP que es sobre la autenticación. Para activarla tendrias que poner esto

Código:

  

IdSMTP1.AuthenticationType :=atLogin;

Eso si esto es solo cuando tu nombre de usuario y contraseña para la autenticación, es el mismo que usas para revisar tu correo.

Toñico

17-01-2005 09:26:40

Oops, me pillaste. Yo utilizo Delphi 6. Me he fijado que estás usando un componente Indy. En delphi 6 existe la pestaña FastNet donde hay un componente TNMSMTP que es el que utilizo yo. Si está en Delphi 7 utilizalo que es mas sencillo y además tienes el ejemplo en

C:\Archivos de programa\Borland\Delphi6\Demos\FastNet\Smtp

He visto que tienes un ejemplo del otro componente en

C:\Archivos de programa\Borland\Delphi6\Demos\Indy\MailClient

Espero que te sirva, un saludo.

zeopix

17-01-2005 12:51:44

Bueno, muchas gracias, acabo de comprar el delphi 2005, ahora vere, si con este va un poco mejor...
acias!!!

zeopix

17-01-2005 13:24:43

Siento molestar pero mirad, este es mi code actual:

Código:

begin

 liAns := Application.MessageBox('Are you a Delphi fan?',

  'Yes or No?', MB_YesNoCancel);

 case liAns of

  2: ShowMessage('You chose Cancel');

  6: ShowMessage('You chose Yes.');

  7: ShowMessage('You chose No.');

 end;

//class procedure TIdSMTP.QuickSend (const AHost, ASubject, ATo, AFrom, AText : String);



  LSMTP := TIdSMTP.Create(nil);

  try

    LMsg := TIdMessage.Create(LSMTP);

    try

      with LMsg do

      begin

        Subject := 'hola';

        Recipients.EMailAddresses := 'zeopix@gmail.com';

        From.Text := 'zeopix2@yahoo.es';

        Body.Text := 'Bienvenido!';

      end;

      with LSMTP do

      begin

        Host := 'smtp.correo.yahoo.es';

        Username := 'zeopix2';

        Password := 'xxxxxx';

        AuthenticationType :=atLogin;



        Authenticate;

        Connect; try;

          Send(LMsg);

        finally Disconnect; end;

      end;

    finally

      FreeAndNil(LMsg);

    end;

  finally

    FreeAndNil(LSMTP);

//end;

end;

end;

Espero que me podais ayudar! bye!

zeopix

17-01-2005 13:43:52

Am lo de authentificationtype pe has puesto eso, pero yo lo pongo así:
AuthType :=atLogin;
pk si no no da bién, pero me dice que atLogin no esta definido, que debo hacer? como y con que tipo de objeto lo defino?

La franja horaria es GMT +2. Ahora son las 21:22:39.