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
Mails Con Imágenes Incrustadas
Objetivo: Re: Mails Con Imágenes Incrustadas
Creo que en la línea:
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í:
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
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)
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
Objetivo: 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.
Objetivo: 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.
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.
Objetivo: 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!
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!
Objetivo: Re: Mails Con Imágenes Incrustadas
Buenos días JR, tienes toda la razón descuido solucionado.
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4781s (PHP: -84% SQL: 184%)
Consultas SQL: 45 - Debug off - GZIP Activado