Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #10  
Antiguo 27-09-2024
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 638
Poder: 22
mRoman Va por buen camino
Retomando el tema

Amigos, retomando el tema:

Instalé en una Maquina virtual win7 32 bits, instalé Delphi7, Desinstalé Indy9 e Instalé Indy10.

Lo anterior para hacer pruebas de envío de correo.

CASIMIRO me paso unas DLL que ya bajé y copié al mismo directorio donde esta mi ejecutable.

Envía el siguiente error

https://ibb.co/dJS2vMn

CODIGO
Código Delphi [-]
procedure TForm1.btnEnviarClick(Sender: TObject);
begin
    SMTP.Port     :=587;
    smtp.Host     :='smtp.gmail.com';
    smtp.AuthType :=atDefault;
    smtp.Username :='correo.origen@gmail.com';
    smtp.Password :='fayhxquevfbflre';
    smtp.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
    smtp.UseTLS   :=utUseExplicitTLS;

     with correo do
     begin
          Recipients.Add;
          Recipients[0].Name:='CLIENTE';
          Recipients[0].Address:='correo.destino@gmail.com';
          From.Name:='LAVANDERIA';
          From.Address:='correo.origen@gmail.com';
          Subject:='Envío de nota 99999 - LAVANDERIA';
          Body.Text:='CORREO DE PRUEBA';
     end;

     smtp.Connect;
     try
       try
         smtp.Send(correo);
         ShowMessage('Correo enviado satisfactoriamente');
       except
         on E: Exception do
            ShowMessage(E.Message);
       end;
     finally
       if smtp.Connected then
          smtp.Disconnect;
       correo.Free;
       smtp.Free;
     end;

end;

Agradeciendo sus aportes y comentarios de antemano, muchas gracias. Como puedo corregir este error??

p.d.1 Casimiro, gracias por último aporte -código- q me enviaste en este hilo, si me ayudó.
p.d.2 También copie las DLL en Windows\System32

Saludos y Gracias.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!

Última edición por mRoman fecha: 27-09-2024 a las 23:40:51.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Envio de correos SIN SSL Rc96 Internet 4 15-09-2017 19:42:58
?Envio de correos ? jasmad Lazarus, FreePascal, Kylix, etc. 16 02-10-2012 15:45:02
Error Al Obtener el Body de correos electronicos con Indy9 Enan0 Internet 1 27-01-2010 15:59:43
Envio de Correos Masivo Esau Internet 2 10-04-2007 01:46:11


La franja horaria es GMT +2. Ahora son las 18:34:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi