Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

Borrar este aviso
El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Smtp attach file
#1

Buenas a todos en esta nueva y muy modernizada versión del foro. He buscando en el anterior foro (historial) sobre cómo adjuntar un archivo utilizando Gambas, y he encontrado la forma de poder pasarlo a formato html pero no la de realizar un attach de un archivo: 

GAMBAS
  1. Public Sub enviarmail(aTo As String[], cAsunto As String, cTexto As String, Optional cFrom As String, Optional bcc As String[], Optional adjuntos As Variant[])
  2.  
  3.   Dim destino As String
  4.   Dim enviador As New SmtpClient
  5.  
  6.   enviador.host = "miservidor de correo"  'Estos datos que te pongo entre comillados no los recibo como parámetros, por cuanto los saco de una clase "Usuario" que se instancia en el momento del login  
  7.   enviador.user = "miusuariodecorreo"
  8.   enviador.password = "miclavedeusuariodecorreo"
  9.   If Not cFrom Then cFrom = "micuenta@remitentedecorreo"
  10.   enviador.Alternative = True
  11.   enviador.From = cFrom
  12.   For Each destino In aTo
  13.       enviador.to.Add(destino)
  14.   Next
  15.   enviador.Subject = cAsunto
  16.   enviador.Add(cTexto, "text/plain")
  17.   enviador.send  
  18.     
  19. End​​​​​​



Es posible que sea añadiendo un:

enviador.Add(... ,"application/pdf", "nombre del archivo)    ????

El attachment sería siempre de un pdf.

gracias y saludos.
Responder
#2

Te pregunto desde el desconocimiento total desde gambas. Si se pero en Visual Basic y con un servidor smtp elegido por mi.

¿Has probado el código que has puesto?

¿Te funciona lo que has puesto?

Solo me refiero al código antes de añadir un archivo adjunto.

Saludos Smile
Responder
#3

Esto funcionó para mí.

GAMBAS
  1. Public Sub Form_Open ()
  2.  
  3.   Dim sender As New SmtpClient
  4.   Dim sAttach As String = File.Load ("Text1.pdf")
  5.  
  6.   sender.host = "mail.world.com"
  7.   sender.User = "charlie@world.com "
  8.   sender.password ="xxxxxxxx "
  9.   sender.From ="charlie@world.com "
  10.   sender.To.add ("calcena@world.com ")
  11.   sender.From ="charlie@world.com "
  12.   sender. Subject = "Sending subject"
  13.   sender.Body = "Hello me, it's me!"
  14.   sender.Add (sAttach, "application / pdf", "Text1.pdf")
  15.  
  16.   sender.send
  17.  



[Imagen: email.png] [/b]
Responder
#4

@cogier, perfecto !! esto es lo que me faltaba, introducir la parte del String que realiza el Load del archivo.
Muchas gracias por vuestra ayuda.
Responder


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)