Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Mails Con Imágenes Incrustadas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Mails Con Imágenes Incrustadas 
 
Buenas tardes a todos, necesito de su apreciable ayuda, estoy desarrollando una rutina para el envió de facturas o pedidos a traves de email, menciono que tengo menos de un mes en el mundo de gambas2 por aquello de las burradas que cometa les pido una disculpa de antemano, buen el problema es las imágenes  no las puedo enviar como tal solo logro que en el mail aparezca el nombre del archivo a mandar osea en el cuerpo del mail en lugar de aparecer la imagen solo pone la ruta del archivo JPG que selecciono les pongo el código del modulo que estoy preparando para aprender como hacerlo. Estoy utilizando el envío con SMTP. De antemano agradezco su ayuda.

' gambas class file

PUBLIC imagen AS String

PUBLIC SUB Form_Open()

  ME.Center()

END

PUBLIC SUB DirView1_Click()

  FileView1.Dir = DirView1.Current

END

PUBLIC SUB FileView1_Click()

DIM ruta AS String
DIM archivo AS String
  
  ruta = DirView1.Current
  archivo = FileView1.Current
  imagen = ruta & "/" & archivo
  TextBox3.Text = imagen
  PictureBox1.Picture = Picture[imagen]

END

PUBLIC SUB Button3_Click()

  ME.Close

END

PUBLIC SUB Button2_Click()

 DIM Correo AS NEW SmtpClient

 DIM remitente AS String
 DIM Asunto AS String
 DIM Mime AS String
 DIM Mime2 AS String
 DIM Mensaje01 AS String
 DIM Mensaje02 AS String
  
   Asunto = (TextBox1.Text)
   Mime = "text/plain"
   Mime2 = "image/jpeg"
   remitente = "ventas@bcmcomunicaciones.com"
   Mensaje01 = "Por favor conserve una copia de este documento. \n\n "
   Mensaje02 = "Si tiene alguna duda sobre este documento contacte con el departamento administrativo."

  
'Envío del mensaje  
Correo.To.Add(TextBox2.Text)
Correo.Subject = Asunto
Correo.Add(imagen, Mime2, "xx" & "\n\n\n\n\n" & Mensaje01 & Mensaje02)
Correo.From = remitente
Correo.Host = "mail.bcmcomunicaciones.com"
Correo.Port = "26"
Correo.Send()
message.Info("Mensaje Enviado")
TextBox1.Clear()
TextBox2.Clear()
TextBox2.SetFocus

END
 



 
pcastanedardz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mails Con Imágenes Incrustadas 
 
Creo que en la línea:

Correo.Add(imagen, Mime2, "xx" & "\n\n\n\n\n" & Mensaje01 & Mensaje02)


estás mezclando la ruta de la imagen y el texto del mensaje. No he usado nunca gb.net.smtp, pero prueba a hacerlo así:

Correo.Add(imagen, Mime2, "xx")
Correo.Add( "\n\n\n\n\n" & Mensaje01 & Mensaje02)
 


Evidentemente "imagen" debe contener una ruta válida hacia tu imagen.

Según la página oficial, no todos los tipos Mime están soportados aún, así que puede que sea el caso de jpg. Prueba con otros formatos como gif o png.

Suerte
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mails Con Imágenes Incrustadas 
 
Buenas noches Jesús, de antemano gracias por tu tiempo, ya realice los cambios indicados sin embargo no lo logre intente cambiar los tipos de mime correspondientes a cada tipo de archivo , sin resultados lo único es que en el mail me manda un archivo adjunto como si fuera imagen pero vacío.
 



 
pcastanedardz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mails Con Imágenes Incrustadas 
 
Buenas noches a todos, resolví el problema ( a medias )  de la siguiente forma

cambie el mime a text/html
agregue lo siguiente , Mensaje = "<body><img src='http://www.bcmcomunicaciones.com/images/" & Temporal & "'></body>"
y envío el mensaje, y llega como imagen incrustada en el mail

pero ahora tengo el problema de montar el archivo que se enviara en un servidor FTP, para lo cual agregue la siguiente rutina

PUBLIC SUB Button1_Click()

DIM FtpBCM AS NEW FtpClient

 DIM servidor AS String
 DIM usuario AS String
 DIM pass AS String
 DIM directorio AS String
  
   directorio = "/httpdocs/facturas"  ' carpeta donde se guardara el archivo
   servidor = "bcmcomunicaciones.com" & directorio
   usuario = "11010011"
   pass = "ricardo1103"
  

'Envío del FTP  
FtpBCM.Close()
FtpBCM.URL = servidor
FtpBCM.Timeout = 10
FtpBCM.User = usuario
FtpBCM.Password = pass
FtpBCM.Put(imagen)   'imagen es el archivo a mandar al servidor FTP
END IF

y sorpresa , no me hace nada , me pueden ayudar??, que estoy haciendo mail o que no estoy haciendo??, de antemano mil gracias por su tiempo.
 



 
pcastanedardz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mails Con Imágenes Incrustadas 
 
esto...... el problema del mail, imagino que es que es porque tienes que formatearlo en HTML tal y como lo has solucionado tu mismo...

no obstante te escribia para decirte que cuidaillo con lo que publicas, nose si son ciertos, ni voy a mirarlo siquiera... pero te cito una parte de tu codigo:

" servidor = "bcmcomunicaciones.com" & directorio
   usuario = "11010011"
   pass = "ricardo1103" "

cuidadin y un saludo!
 



 
CanihoJR - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Mails Con Imágenes Incrustadas 
 
Buenos días JR, tienes toda la razón descuido solucionado.
 



 
pcastanedardz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Ayuda Con El Envio De Mails alan General 1 Sabado, 15 Enero 2011, 22:00 Ver último mensaje
soplo
No hay nuevos mensajes Ecnriptar Imágenes Shell General 3 Sabado, 06 Septiembre 2014, 10:11 Ver último mensaje
Shell
No hay nuevos mensajes Buscador De Imágenes En Bing netking86 Aplicaciones/Fragmentos de Código 4 Martes, 11 Septiembre 2012, 21:55 Ver último mensaje
jguardon
No hay nuevos mensajes Imágenes En GridView (Solucionado) ljma Aplicaciones/Fragmentos de Código 6 Domingo, 06 Marzo 2011, 01:21 Ver último mensaje
ljma
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario