FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Envió de Correo desde mi aplicación con Adjunto
Saludos
Amigos Necesito enviar desde mi Aplicación Correos electrónicos de mis reportes, es decir con adjunto, ya he buscado en el FORO todas los Link y ejemplos que colocaron, y la verdad NINGUNO me ha servidor, Todos me dan algún tipo de error, he probado con varios tipos de cuenta (Gmail, Hotmail),, pero nada.. Sera este teme algo muy complicado ??? Existe algún ejemplo por allí que funcione del cual yo pueda revisar como ejemplo... y adaptarlo.... Nota: Uso Delphi 2009 Pleases |
#2
|
||||
|
||||
Ejemplo Gmail (Está escrito casi de cabeza mirando un programa mío, creo que está bien y debería funcionar:
Donde pone "//Es una lista" es que puedes poner esa línea dentro de un bucle y rellenar varios datos.
__________________
La Madurez se llama... ~~~Gaia~~~ |
#3
|
|||
|
|||
Gracias por tan pronta Respuesta..
Efectivamente ya logre con esta Rutina Enviar el correo, por cierto con el puerto 465.. El problema que tengo es que cuando reviso el correo NO me muestra el Adjunto,,, OJO cuando veo el correo a modo lista dice que tiene adjunto, pero al abrirlo NO lo muestra,,, Hice la prueba de Reenviando el correo y me muestra un Archivo ATT00001 y no deja abrirlo (este caso es enviando el correo a una Cuenta Hotmail) Tambien hice la prueba con un correo Gmail y si lo muestra pero el nombre me dice NONAME y no reconoce automáticamente el tipo de archivo que estoy enviando.. En mi Caso necesito enviar un correo con un Archivo PDF adjunto.. Saludos Última edición por Efren2006 fecha: 04-08-2014 a las 03:49:21. |
#4
|
|||
|
|||
Adjunto Mi Programa:
|
#5
|
|||
|
|||
Hola,
Por si os sirve de algo. Adjunto el codigo que yo utilizo y funciona bien enviando adjuntos. Me pasaba algo parecido, si el mail no tenia adjuntos, se veia bien, pero si tenia adjunto, lo indicaba pero no se veia. El cambio que hice fue: NO tiene adjunto: compMensaje.ContentType := 'text/html' ; SI tiene adjunto: compMensaje.ContentType := 'multipart/mixed' ; y me funciona bien. function TFmails.enviarEmail(servidor : string; usuario : string; contrasena : string; puerto : integer; asunto : string; mensaje : TStringList; conAutenticacion : boolean; emisor : string; nombreEmisor : string; destinatario : string; cc : string) : boolean; var compMensaje : TIdMessage; envioCorrecto : boolean; var Linea: string ; var b, FlagAdjuntos: Integer; begin if conAutenticacion then begin compEnvioEmail.AuthType := satDefault; compEnvioEmail.Username := usuario; compEnvioEmail.Password := contrasena; end else compEnvioEmail.AuthType := satNone; compMensaje := TIdMessage.Create (nil); compMensaje.From.Address := emisor; compMensaje.From.Name := nombreEmisor; compMensaje.Recipients.Add.Address := destinatario; if Trim(cc) <> '' then compMensaje.CCList.Add.Address := cc; compMensaje.ContentType := 'text/html' ; compMensaje.CharSet := 'iso-8859-1' ; compMensaje.Subject := asunto; compMensaje.ReplyTo.Add.Address := emisor; FlagAdjuntos := 0 ; ListaAdjuntos := Trim(ListaAdjuntos) + ';'; if Length(ListaAdjuntos) > 1 then begin i := 1 ; while ( i <= 10 ) do begin nFicheros[i] := '' ; ListaAdjuntos := Trim(ListaAdjuntos); Largo := Length(ListaAdjuntos) ; Posicion := Pos(';', ListaAdjuntos); if Posicion > 0 then begin FlagAdjuntos := 1 ; nFicheros[i] := Copy(ListaAdjuntos, 1,Posicion-1); ListaAdjuntos := Copy(ListaAdjuntos, Posicion+1, Largo+Posicion) ; TIdAttachmentFile.Create(compMensaje.MessageParts, Trim(nFicheros[i])); end; i := i + 1; end; end; if FlagAdjuntos = 1 then compMensaje.ContentType := 'multipart/mixed' ; for b:=0 to mensaje.count -1 do begin if FlagAdjuntos = 1 then Linea := mensaje[b] else Linea := mensaje[b] + '<BR>'; compMensaje.Body.Add(Linea); end; envioCorrecto := true; try compEnvioEmail.Send(compMensaje); except envioCorrecto := false; end; TIdAttachment.NewInstance.Free ; compMensaje.Free; enviarEmail := envioCorrecto; end; |
#6
|
|||
|
|||
Cita:
Amigo Juan Gracias por tu respuesta, pero como veras en el post anterior (Programa Fuente) ya coloque el Valor de la Propiedad: .. y sigo con el mismo problema. Saludos |
#7
|
|||
|
|||
NAda
Este ejemplo, me da este error: Invalid Pointer Operation. Como lo puedo corregir? |
#8
|
||||
|
||||
Cita:
Revisa la guia de estilo de los foros. Crea un nuevo hilo y explica bien tu problema. También puedes editar el mensaje anterior y corregirlo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#9
|
||||
|
||||
¿El error no será que no tienes conexión a internet?
|
#10
|
|||
|
|||
Solucionado - Solucion
Usando el ejemplo de Envio de correo con Synapse pude enviar correo pude enviar.
Uso Win 10 64 bits Delphi 10 32bits EMBARCADERO RAD Studio. La solucion es q en la cuenta gmail q vas a usar debes dale permiso al programa q vas a usar como gestor. Aqui les dejo un enlace de como se hace la configuracion de la cuenta gmail. https://www.ovalsoft.es/configura-gm...s-de-terceros/ En concreto el codigo completo. Gracias a todos por sus aportes. El codigo es tomado de este sitio!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Última edición por Neftali [Germán.Estévez] fecha: 19-04-2023 a las 08:23:37. Razón: Añado TAGs y corrijo el código |
#11
|
||||
|
||||
16. Si alguien te remite a la guía de estilo, no te molestes en leerla. Tú tienes cosas más importantes que hacer y a fin de cuentas, nadie la lee.
|
#12
|
||||
|
||||
Cita:
Gracias por publicar la solución. Te recuerdo que cuando tengas un momento revises La guía de estilo y coloques tags cuando añadas código al mensaje. He editado tu mensaje para ajustar el link y añadir los tags.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error en envío de mail con adjunto + Indy 10 | agustibaldo | Internet | 8 | 23-01-2015 21:23:31 |
Envío de mail con un archivo adjunto. | y_a_p | Varios | 16 | 08-06-2013 23:40:46 |
Problema con envio de correos con fichero adjunto | apicito | OOP | 5 | 09-02-2012 13:29:36 |
Como envío correo desde Excel sin que me pida confirmación? | luisdevis | Varios | 3 | 11-10-2006 23:18:18 |
Envio de correo desde una ISAPI | anitra_cattivo | Internet | 1 | 22-10-2003 23:12:42 |
|