36 respuestas en este tema

[Desart]

Hola compañeros. he estado buscando en el Club y en la red y no he conseguido nada que me funcione, si podéis ayudarme en como mandar un correo electrónico con delphi 2010, sin tener que acudir a gestores de correo, y aprovechando el mensaje de como mandar un archivo adjunto.  Como siempre muchas Gracias

[egostar]

Hola Jose Luis

Y porque no utilizas los Indy ?

Salud OS

[eduarcol]

Esto me funciona en delphi 7 y 2007

delphi

class function TdmCorreo.correo(chostcorreo, cusername, cPassword, cDestinatario, cAsunto, cArchivo: String; cportcorreo: Integer; lsCuerpo: TStringList): Boolean;
begin
   with TdmCorreo.Create(Application) do
   begin
     idMessage1.Clear;
     idMessage1.ContentType := 'text/html';
     idMessage1.FromList.EMailAddresses := cUserName;
     idMessage1.Recipients.EMailAddresses := cDestinatario;
     idMessage1.Subject := cAsunto;
     idMessage1.Body.AddStrings(lsCuerpo);
     if FileExists(cArchivo) then
        TIdAttachmentFile.Create( idMessage1.MessageParts, cArchivo );
     idSMTP1.Username := cUserName;
     idSMTP1.Password := cPassword;
     idSMTP1.Host := cHostCorreo;
     idSmtp1.Port := cPortCorreo;
 
 
        if not idSMTP1.Connected then
           idSMTP1.Connect;
        idSMTP1.Send(IdMessage1);
        Result := True;
 
   end;
end;

[Desart]

Egostar he probado con varios códigos y nada.
Eduarcol, mañana por la tarde lo probare.

[Wilson]

Me uno a las voces de Egostar y Eduarcol, con Indy es la movida.

De aquí,  descarga el  ejemplo de nombre IdPOP3 / IdSMTP / IdMessage, es una aplicación  para manejar completamente una cuenta de correo usando POP y SMTP, permite adjuntar archivos  y muchas otras cosas.

Saludos

[Wilson]

Me uno a las voces de Egostar y Eduarcol, con Indy es la movida.

De aquí,  descarga el  ejemplo de nombre IdPOP3 / IdSMTP / IdMessage, es una aplicación  para manejar completamente una cuenta de correo usando POP y SMTP, permite adjuntar archivos  y muchas otras cosas.

Saludos

Me olvidaba, si usas Delphi 2010, te va a dar un pequeño error (que debe ser de versiones) que se soluciona cambiando:

delphi

   case SmtpAuthType of
      0: SMTP.AuthType := atNone;
      1: SMTP.AuthType := atDefault; {Simple Login}
   end;

por:

delphi

   case SmtpAuthType of
      0: SMTP.AuthType := satNone;
      1: SMTP.AuthType := satDefault; {Simple Login}
   end;

Saludos.

[egostar]

Te he enviado un correo desde una pequeña prueba que hice con Delphi XE, espero que te haya causado risa el cuerpo del mensaje y te haya gustado el cuerpo del adjunto

También subo la función que uso para enviar los correos, que prácticamente es lo mismo que Eduardo ha publicado.

Salud OS

PD, Por cierto, esto lo hice con Turbo Delphi y la migración fué transparente.

[escafandra]

Aunque es posible que no sea exactamente lo que buscas, quizás esto te sirva de alguna ayuda.


Saludos.

[Desart]

debo de estar muy torpe, porque o me faltan datos o algo estoy haciendo mal, no lo he logrado con ninguno, podéis montarme una demo simple por favor.

[egostar]

debo de estar muy torpe, porque o me faltan datos o algo estoy haciendo mal, no lo he logrado con ninguno, podéis montarme una demo simple por favor.

Hola Desart

Te marca algún error, no se conecta al servidor de correo, se conecta pero no envia el correo, No envia los adjuntos, ya hiciste un trace de la aplicación para ver donde se atora ???

Si no te urge, en la noche (GMT-6) te mando un ejecutable donde solo coloques los datos para el SMTP.

Salud OS

[Desart]

Gracias Egostar, no me urge, en el caso de las funciones, probablemente, sea la llamada a alguna uses, o algún componente, ya que no me compila, en el caso de las demos de indy 9 y 10, algunas compilan, pero me dan un error de llevar tiempo sin conectarse.

Los parámetros que le pongo por lo que entiendo son  correo desde lo mando, uno antiguo que no uso, pero funciona

Desart@eresmas.com, smtp.eresmas.com, Usuario y clave, a destino sería desart@misabueso.com cabecera, mensaje.

[eduarcol]

Si colocas los errores que te salen exactamente a lo mejor sabemos por donde vienen los tiros

[egostar]

Hola Desart

Lo prometido es deuda, hice una pequeña aplicación para enviar correo colocando todos los datos que se necesitan, espero que te sirva como referencia.

Salud OS

Archivos adjuntos

•  2208_cfa02542933a590dffaa5741e0ffcba8b72314d9.zip   574,26KB   33 descargas

[Desart]

Hola Egostar, en primer lugar Gracias, me gustaria si puedes mandes los fuentes, en segundo lugar me da el error


Socket Error #10022  Invalid argument.

[egostar]

Hola Egostar, en primer lugar Gracias, me gustaria si puedes mandes los fuentes, en segundo lugar me da el error


Socket Error #10022  Invalid argument.

Hola Desart

Los fuentes los publico hoy por la noche, ya sabes GMT-6

Acerca del error, me parece que tu firewall está bloqueando la conexión con el servidor de correo, agrega la aplicación al firewall e intenta de nuevo.

Salud OS

[egostar]

Hola

Espero que puedas abrir y compilar los fuentes, yo los he podido abrir y compilar hasta con Turbo Delphi (BDS 2006).

Salud OS

Archivos adjuntos

•  2212_89124a24ec1941c2286c3306f9c6ecbc0e70730d.zip   6,75KB   29 descargas

[Desart]

Hola Egostar, probé tu código, le di acceso a mi firewall y aun así me sale el siguiente error

    Projectxxx raised exeption class EidSocketError with message 'Socket Error # 10060 Connection timed out.'.

[egostar]

Hola Egostar, probé tu código, le di acceso a mi firewall y aun así me sale el siguiente error

    Projectxxx raised exeption class EidSocketError with message 'Socket Error # 10060 Connection timed out.'.

Vaya, pues si que es raro, a mi me funciona perfectamente, el problema es que no te puedes conectar al sevidor, ¿ están bien los datos que usas para conectarte ? no veo otra causa, a menos claro que sea como en México, que mi proveedor de internet bloqueo el puerto 25 para el envio de correos con otros proveedores de correo.

Salud OS

[Caral]

Hola
He probado el programa y funciona perfectamente (el exe).
He tratado de ver el codigo y a la hora de ejecutarlo me muestra errores de que faltan dcu aqui:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdSMTP, IdAttachmentFile, IdMessageParts,
  IdText ;

[Fatal Error] Unit1.pas(7): File not found: 'IdAttachmentFile.dcu'

Me deben faltar estas dcu en delphi 6, no se.
Saludos

PD: Parece que estos son componentes INDY version 10 y no tengo ninguna version.

[egostar]

Así es amigo, esta creado con Indy 10. Lo siento mucho

Salud OS