Comunidad Gambas-es

Versión completa: Smtp attach file
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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.
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
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]
@cogier, perfecto !! esto es lo que me faltaba, introducir la parte del String que realiza el Load del archivo.
Muchas gracias por vuestra ayuda.
Buenas tardes,

Alguien sabe como configurar el smtp  para que funcione con gmail?

siempre me sale error de conexión con el servidor.

     
GAMBAS
  1. sender.host = "smtp.gmail.com"
  2.       sender.User = "ppppp@gmail.com "
  3.       sender.password = "xxxx "
  4.       sender.Authentication = 0
  5.       sender.From = "ppppp@gmail.com "
  6.       sender.To.add(Destinatario)
  7.       sender.From = "ppppp@gmail.com "
  8.       sender.Subject = Asunto
  9.       sender.Body = cos_missatge
  10.       sender.Add(sAttach, "application / pdf", Adjuntar)
  11.       sender.send


En este tema del foro anterior tal vez encuentrs algo
https://foro.gambas-es.org/viewtopic.php...smtp+gmail

    SmtpClient1.Host = "smtp.googlemail.com"
    SmtpClient1.User= "miusuario"
    SmtpClient1.Password= "micontraseña"
    SmtpClient1.Encrypt = Net.SSL
    SmtpClient1.Port = 465
    SmtpClient1.to.Add(para.Text)
    SmtpClient1.From = de.Text
    SmtpClient1.Subject = asunto.Text
    SmtpClient1.Add(texto.Text)
    SmtpClient1.Send()


Saludos.